How to use VBA to copy and paste between Word Documents

GolferGuy45 · 11-20-2008, 11:48 AM

I am trying to copy several documents and paste them into a new document using VBA. All I seem to be able to get is a blank new document. Could someone let me know what keywords I should be using to be able to open a document, copy all of it's content, then paste that into another already opened document?

Thanks!

David M58 · 11-20-2008, 04:24 PM

The following example opens a document named Birdie_Putt.doc, copies its content, and pastes that content into an already-open document named GolferGuy45.doc:

Code:

Sub Copy_Content()
    Documents.Open "C:\Golf\Birdie_Putt.doc"
    Selection.WholeStory
    Selection.Copy
    Documents("GolferGuy45.doc").Activate
    Selection.EndKey wdStory
    Selection.PasteAndFormat wdPasteDefault
End Sub

11-20-2008, 11:48 AM	#1 (permalink)
GolferGuy45 Registered User Join Date: Oct 2008 Posts: 1 OS: Windows Server 2008	How to use VBA to copy and paste between Word Documents I am trying to copy several documents and paste them into a new document using VBA. All I seem to be able to get is a blank new document. Could someone let me know what keywords I should be using to be able to open a document, copy all of it's content, then paste that into another already opened document? Thanks!

11-20-2008, 04:24 PM	#2 (permalink)
David M58 Registered User Join Date: May 2008 Location: Baltimore, Maryland Posts: 160 OS: Windows XP SP3	Re: How to use VBA to copy and paste between Word Documents The following example opens a document named Birdie_Putt.doc, copies its content, and pastes that content into an already-open document named GolferGuy45.doc: Code: Sub Copy_Content() Documents.Open "C:\Golf\Birdie_Putt.doc" Selection.WholeStory Selection.Copy Documents("GolferGuy45.doc").Activate Selection.EndKey wdStory Selection.PasteAndFormat wdPasteDefault End Sub