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
Thanks you so much for your help.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:
Note: in Excel you need the Word object library checked as shown for this to work.VBA Code: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
View attachment 37784 > View attachment 37785
Before