Merge multiple Word Documents using VBA 2

[Cloonalt]

I have allow the user click a button to combine multiple Word documents into one, and then launch the final product. Any idea if this is possible?

(I'll know the names of the documents from a recordset)

Any help appreciated.

 

[Cloonalt]

Thanks for the quick reply.

I open Word and create a new blank document

I know the name of the Word document (and where it SHOULD be) that I'm merging into the new blank document.

However, if that document isn't in the directory where I think it is or doesn't exist, I need to handle that error.

Thanks.

 

[Remou]

Ah, sorry. You can use Dir:
[tt]If Dir("c:\Docs\Doc1.doc") = "" Then
'File does not exist[/tt]

 

[Cloonalt]

Thank you again!

 

[Cloonalt]

The documents all have a name that is five digits, with a three digit extension. The extension can be 001, 002, 003, etc.

For example, right now I using:

oapp.Selection.InsertFile "C:\" & Batch & "001.doc"

I need to grab the document with the highest extension. Think I can do this? Any ideas?

Thanks.

 

[JerryKlmns]

Function FindLastFile(File_Name As String, Search_Folder As String) As String

Dim rst As ADODB.Recordset

Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(Search_Folder)
Set fls = folder.files

Set rst = New ADODB.Recordset
With rst
   .CursorLocation = adUseClient
   .CursorType = adOpenDynamic
   .LockType = adLockBatchOptimistic
   .Fields.Append "Name", adVarChar, 252
   .Open
   For Each fl In fls
      .AddNew 
      .Fields("Name") = fl.Name
   Next
   .UpdateBatch
   .Filter "Name = " & File_Name & "???.doc"
   .Sort = "Name"
   If .EOF And .BOF Then
      FindLastFile = "Not Found" ' Handle this error!
   Else
      .MoveLast
      FindLastFile = .Fields("Name")
   End If
   .Close
End With
Set rst = Nothing

End Function

....
myMaxFileName = FindLastFile(Batch, "c:\")
....