Moving excel data to an already existing word document

Question

This is my third day of using VBA. I am currently working a 3 month contract for this company and have figured out how to automatically transfer data from excel to a new word document (a process they have wanted for years). I also found out how to open an existing word document from excel.

The thing is, I haven't worked out how to transfer data from excel to an existing word document.

Below is the code I am trying to write for the above reason. Can anyone point out where I'm going wrong? Any and all answers would be greatly appreciated :)

Sub CopyRangeToWord()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Set wordApp = GetObject("C:\Users\CoffeeFuelsMeNow\Documents\Ladedadeda\Testplate.dotx")

Set objDoc = objWord.Documents
objWord.Visible = True
Range("A1:B10").Copy
 With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range
       'All formatting goes here
    .Paste
    .Font.Name = "broadway"
    .Font.Color = wdColorBlue
    .Font.Bold = True
    .Font.Italic = True
     .Font.Allcaps = True
     .Font.Size = 20
End With
End Sub

Can you please say what you want to achieve? Keep the question straight to the point — eithed

Mathias Schmid Mathias Schmid · Accepted Answer · 2017-11-08T08:52:26

This works perfectly fine for me: It adds the rows to the document over and over again as a table if i execute the code

Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc =objWord.Documents.Open("C:\Users\schmidmath\Documents\test1.docx")

Range("A1:B10").Copy

With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range
   'All formatting goes here
   .Paste
   .Font.Name = "broadway"
   .Font.Color = wdColorBlue
   .Font.Bold = True
   .Font.Italic = True
   .Font.Allcaps = True
   .Font.Size = 20    
End With
objWord.Visible = True

Moving excel data to an already existing word document

2 Answers