Inserting Text From Another Word Document

I would like to insert text into my currently open word document from another word document on one of my hard disk through the click event of a Button on my Form.
The following line of code does this for me.

Private Sub BringText_Click()

ChangeFileOpenDirectory "G:\My Folder\"
    Selection.InsertFile fileName:="Test Document.doc", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
End Sub

However the above code brings the whole of the Text Document into my Word Document. I would like to modify the above code such that it brings only the first paragraph from the "Test Document" into my currently open Word Document. I would appreciate your help with this. Thanks.

Private Sub BringText_Click()

ChangeFileOpenDirectory "G:\My Folder\"
    Selection.InsertFile fileName:="Test Document.doc", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
End Sub

Open in new window

LVL 1
FaheemAhmadGulAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

GrahamSkanRetiredCommented:
If you bookmark the bit of the incoming document, you can put the bookmark name for the Range parameter

Selection.InsertFile fileName:="Test Document.doc", Range:="MyBookmark", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
GrahamSkanRetiredCommented:
Otherwiae you could open it and do a copy and paste
Private Sub BringText_Click()
    Dim doc As Word.Document
    
    Set doc = Documents.Open("G:\My Folder\Test Document.doc")
    doc.Paragraphs(1).Range.Copy
    Selection.Paste
    doc.Close wdDoNotSaveChanges
End Sub

Open in new window

0
FaheemAhmadGulAuthor Commented:
Many thanks. My apologies for the delay in accepting the solution. I did not realise it has been posted because this time I did not receive any email to let me know that a comment has been posted on my question on the forum.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
.NET Programming

From novice to tech pro — start learning today.