Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Control Word Files From Excel
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. Ive 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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Control Word Files From Excel
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" a écrit dans le message de groupe de discussion : ... 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. Ive 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Navigating to Excel files over network slow, but not Word files | Excel Discussion (Misc queries) | |||
I want to attach word files or PDF files to an excel database | Excel Discussion (Misc queries) | |||
changing word files to excel files | Excel Discussion (Misc queries) | |||
Word Control in Excel | Excel Programming | |||
convert 400 word files to excel files fast? | Excel Programming |