Copy Content from One Word Doc to Another

[JonXL]

Hi,

I'm trying to append the contents from one Word file to another. Here is more or less what I'm doing now.

Sub AppendDocument()
    Dim wdDoc As Document, wdOutputDoc As Document
    
    Set wdDoc = Documents.Add
    Set wdDoc = Documents.Add
    
    With wdDoc
    
        Do
              
            'do some stuff to this document
            
            .Content.Copy
            
            With wdOutputDoc.Content
                .Collapse direction:=wdCollapseEnd
                .InsertBreak wdPageBreak
                .PasteAndFormat wdFormatOriginalFormatting
            End With
        
        Loop
    
    End With

End Sub

This works... except because it uses the clipboard, it's open to get junk in it if someone copies between the copy and paste commands of this code. (I tested this while it was running by rapidly and repeatedly copying 'blah' to the clipboard and in at least one instance the appended content was 'blah' and not the contents of the document I wanted appended.)

When I try by using like this ...

            With wdOutputDoc.Content
                .Collapse direction:=wdCollapseEnd
                .InsertBreak wdPageBreak
                .InsertAfter wdDoc.Content
            End With

... it doesn't include the headings, etc.

I've looked into InsertFile but as you can see from the code, both documents are created in the code and never saved, so there isn't a file location to use. If watching the screen while it runs, you see variably Document1, Document2 or Document3, Document6, etc. - they are not saved files. But maybe there's a way with InsertFile even though they aren't saved.

Otherwise, I'm not sure what options there are for this to work.

Thank you,
Jon

 

[Macropod]

Have you tried the code in the link in post #4? Except for your save format and naming convention (which you haven't given any details about), the code in that link does all you ask. The code even lets you choose the source folder without demanding it be a particular folder.

 

[Macropod]

Cross-posted at: Copy from one word document to another word document
Please read Mr Excel's policy on Cross-Posting in rule 13: Message Board Rules

 

[Satheesh9012]

Thank you @Macropod can you please help with a solution, sorry and i can remove the post from one of the forum,

 

[Macropod]

Have you actually tried the code referred to in post #4, as I said in post #11?

 

[Satheesh9012]

I have referred to your post #11, i believe that could be more useful for my solution,

To give you a background:

We have a folder which contains word documents which needs to have specific type of format, spacing, header and footer, for which i have a template in place how the word document should look like so i just need to copy all the contents from the word document to the template and save as specific naming format, this should be repeated in all the word documents available in that specific folder

my questions

Do i need to mark all the relevant fields in the template doc with"<>" so that the template gets filled automatically from the word documents available in the folder.

Please help and thank you for your patience in reviewing my question and responding to me

 

[Macropod]

What you are now describing is something different from what you first asked. Kindly don't hijack existing threads for different issues. Start your own thread with the full details of what you are trying to do.