How to copy word table from one word document to another word document using excel vba

**welchs101** · 10-06-2021, 02:10 PM

Hi,

I am trying to write an excel vba macro that takes data from several excel and word files and put the data into a word document. In this post i am trying to figure out how to copy a word table (in this case the action item table) from a word document called word_template_1 and paste it into a nother word document called word_template_2 under the Action Section.

**Haluk** · 10-07-2021, 09:20 AM

Hi there;

If all the files (Excel and Word files) are in the same folder, you can try the following Excel VBA code;

Sub Test()
    'Haluk - 07/10/2021
    'sa4truss@gmail.com
    'https://excelhaluk.blogspot.com/
    
    Dim wordFile1 As String, wordFile2 As String
    Dim objWord As Object, objDoc1 As Object, objDoc2 As Object
    
    Const wdGoToLine = 3
    Const wdGoToNext = 2
    Const wdSaveChanges = -1
    
    wordFile1 = ThisWorkbook.Path & "\word_template_1.docx"
    wordFile2 = ThisWorkbook.Path & "\word_template_2.docx"
    
    Set objWord = CreateObject("Word.Application")
    Set objDoc1 = objWord.Documents.Open(wordFile1)
    
    objDoc1.tables(3).Range.Copy
    
    Set objDoc2 = objWord.Documents.Open(wordFile2)
    
    With objWord.Selection.Find
        .ClearFormatting
        .Text = "Action Items:"
    End With

    If objWord.Selection.Find.Execute = True Then
        objWord.Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=2
        objWord.Selection.Paste
    End If
        
    objDoc1.Close SaveChanges:=wdSaveChanges
    objDoc2.Close SaveChanges:=wdSaveChanges
    objWord.Quit
    
    MsgBox "Done..!"

    Set objDoc1 = Nothing
    Set objDoc2 = Nothing
    Set objWord = Nothing
End Sub

**Haluk** · 10-08-2021, 01:43 AM

I misread the question and wrong table was inserted into the second word document. It is solved with the revised code given in my previous post.

**Haluk** · 10-08-2021, 04:26 PM

@welchs101, thx for the rep. I hope, your problem is solved...

.

**welchs101** · 10-10-2021, 09:20 PM

Hi,

I finally got around to reviewing in more detail the code you gave me. THanks again.

FYI: It does work but the code gets hung up if one of the word files is already open it shows the dialog box i am enclosing as a jpeg below.
Actually, it does not show up...the dialog box.......the program just sits there you have to press alt-tab to see it. then you have ot press
ok for the program to run.

i did have one question.
What are the contants you assigned wdgotoline and wdgotonext and wdsavechanges -1 what do these mean?
why did you pick these integer values?

**Haluk** · 10-10-2021, 11:49 PM

Originally Posted by welchs101

.....
...
i did have one question.
What are the contants you assigned wdgotoline and wdgotonext and wdsavechanges -1 what do these mean?
why did you pick these integer values?

When the Word Application is created by "Late Binding" using the "CreateObject" method, you can not use the enumerated constants with their names, you have to use their values.

In order to find their values, I use the "Object Browser" in MS Word.

.

How to copy word table from one word document to another word document using excel vba

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

How to copy word table from one word document to another word document using excel vba

Re: How to copy word table from one word document to another word document using excel vba

Re: How to copy word table from one word document to another word document using excel vba

Re: How to copy word table from one word document to another word document using excel vba

Re: How to copy word table from one word document to another word document using excel vba

Re: How to copy word table from one word document to another word document using excel vba

Thread Information

Users Browsing this Thread

Similar Threads

Copy multiple word documents into one new word document

How to use excel VBA to open word doc and copy ENTIRE word document and paste into excel

Extract Word header table data to excel (closed word document)

[SOLVED] VBA in Word, how to copy cells from a table into another word document that contentcontrol

Add text to Existing Word Document if it Doesn't exist create Word Document

[SOLVED] VBA word (2003) codes to check if a table fits in a single page of the word document

Macro to create table in a word document extracting data from the word file itself

Bookmarks

Bookmarks

Posting Permissions