Mail Merge issue

[ankit4mi]

I have created a excel file with all the formula and everything. Now I want to copy the table in excel file into word doc. can someone help me on that.

 

[kennypete]

This is not a "mail merge"? Isn't it "how to copy cells from Excel to Word"? If it really is, then something like this:

Sub subToWord()
    Selection.Copy 
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    With objWord
        .Documents.Add
        .Visible = True
        .Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
    End With
End Sub

Note: in Excel you need the Word object library checked as shown for this to work.

>

Before

 

[ankit4mi]

This is not a "mail merge"? Isn't it "how to copy cells from Excel to Word"? If it really is, then something like this:

Sub subToWord()
    Selection.Copy
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    With objWord
        .Documents.Add
        .Visible = True
        .Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
    End With
End Sub

Note: in Excel you need the Word object library checked as shown for this to work.
View attachment 37784 > View attachment 37785
Before

Thanks you so much for your help.
Can we have a code which can be run on Mac as well as this code is only running on Windows platform.
Thanks in Advance..!!!

 

[kennypete]

Not from me; I'm Mac-less. If you use Excel on the Mac too you should including that in your Version and Platform info:

 

[ankit4mi]

Can someone help me with the code which can be used in MAC as well..!!!