Control Word Files From Excel

[Modeerf60]

I have been successful in moving data from Excel to Word in VB. From Excel
(2003 running on Windows XP Pro) I am able to create several Word files from
the same starting Word form. Now, using Excel VB, I need to connect these
files into one Word report and have three questions.

1) End of document
I need to move the insertion point to the end of the first file before I
insert the second file. I’ve recorded a macro in Word and tried the following:
WordApp.ActiveDocument.Selection.EndKey Unit:=6
But it does not work. Do you know what will work? Please provide code
examples.

2) Append Files
Then I need to append the next file. From the same Word macro I recorded I
have tried:
WordApp.ActiveDocument.Selection.InsertFile Filename:="File1.doc"
But it does not work. Do you know what will work? Please provide code
examples.

3) Insert Text
After they are all appended together, I need to insert some text before I
save and close the file. From the same Word macro I recorded I have tried:
WordApp.ActiveDocument.Selection.TypeText Text:="Text to be inserted"
But it does not work. Do you know what will work? Please provide code
examples.

Many Thanks
M

 

[michdenis]

Hi,

an example how to loop through every word files in a given folder
and add then content of each file in a new document.
I separated each content by a line showing the document name


'------------------------------------------------
Sub test()
Dim Wd As Object, MyDoc As Object
Dim Rg As Object, Dc As Object
Dim MyPath As String, DocName As Object
Dim MyFile As String

MyPath = "c:\Users\Your_Profile\Documents\"
MyFile = Dir(MyPath & "*.do*")

Application.ScreenUpdating = False

Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set MyDoc = Wd.Documents.Add

Do While MyFile <> ""
Set Dc = Wd.Documents.Open(MyPath & MyFile)
Set Rg = MyDoc.Content
Rg.Paragraphs.Add
Rg.InsertAfter Dc.Name
Set DocName = Rg.Paragraphs(Rg.Paragraphs.Count).Range
With DocName
.Font.Bold = True
.Font.Size = 14
.Font.Color = vbBlue
End With
Rg.Paragraphs.Add
Set DocName = Rg.Paragraphs(Rg.Paragraphs.Count).Range
With DocName
.Font.Bold = False
.Font.Size = 11
.Font.Color = wdColorAutomatic
End With
Rg.InsertAfter Dc.Content
Dc.Close False
MyFile = Dir()
Loop
Application.ScreenUpdating = True
End Sub
'------------------------------------------------



"Modeerf60" <[email protected]> a écrit dans le message de groupe de
discussion : (e-mail address removed)...
I have been successful in moving data from Excel to Word in VB. From Excel
(2003 running on Windows XP Pro) I am able to create several Word files from
the same starting Word form. Now, using Excel VB, I need to connect these
files into one Word report and have three questions.

1) End of document
I need to move the insertion point to the end of the first file before I
insert the second file. I’ve recorded a macro in Word and tried the following:
WordApp.ActiveDocument.Selection.EndKey Unit:=6
But it does not work. Do you know what will work? Please provide code
examples.

2) Append Files
Then I need to append the next file. From the same Word macro I recorded I
have tried:
WordApp.ActiveDocument.Selection.InsertFile Filename:="File1.doc"
But it does not work. Do you know what will work? Please provide code
examples.

3) Insert Text
After they are all appended together, I need to insert some text before I
save and close the file. From the same Word macro I recorded I have tried:
WordApp.ActiveDocument.Selection.TypeText Text:="Text to be inserted"
But it does not work. Do you know what will work? Please provide code
examples.

Many Thanks
M