I have a macro that can copy and paste Excel cells into Excel cells that is in a Word document. See the code below. My problem is to get the cells to be pasted into the Excel cells that i have in the header on the Word document.
Sub excelToWord_click() 'Open the word document Set wdApp = CreateObject("Word.Application") wdApp.documents.Open "H:\test_01.doc" wdApp.Visible = True 'copy cells Worksheets(1).Range("A1:B1").Select Selection.Copy 'insert cells wdApp.Activedocument.InlineShapes(1).Activate Range("A1:B1").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
I have tried to put in this code after "'insert cells" but it don't work.
Can someone please help me.