Get data from a word document

[Daidal]

I have an Excel macro that opens two word documents. I want to be able to
select text from one word document and paste it into the second word document.

How do I do it?

I tried using the Range function but I keep getting a Type missmatch error
(13).

TIA.

[OJ]

Hi,
You probably need to post this on a Word forum but I believe you need
to look at the Paragraph property of each word document. It might be
easier to write the VBA code in word....

Hth
OJ

[michelxld]

Hello

you want to copy a part or all document ?

for all document you may try


Sub fusionnerDeuxDocumentsWord()
'activate Microsoft Word xx.x Object Library
'*************************
'copy first Word text (Doc1)
'Paste at the end ( and inserBreak) in the second Word doc (Doc2)
'*************************

Dim WordApp As Word.Application
Dim WordDoc1 As Word.Document, WordDoc2 As Word.Document

Set WordApp = New Word.Application
WordApp.Visible = True

Set WordDoc1 = WordApp.Documents.Open(ThisWorkbook.Path & "\Doc1.doc")
Set WordDoc2 = WordApp.Documents.Open(ThisWorkbook.Path & "\Doc2.doc")

WordDoc1.Content.Copy

With WordDoc2.Content
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdSectionBreakNextPage
.Paste
End With

End Sub



Regards ,
michel