Copy multiple .DOC's into a single .DOC

[ClarkJeff]

Anyone have a clue how to copy/merge multiple .DOC files into a single .DOC? Thanks.

 

[unica]

Hi ClarkJeff,

I assume you want this to be done using automation. Here's a procedure I think might be what you are looking for:

Private Sub GetFiles()

Dim sFile As String
Dim sFiles() As String
Dim sPath As String
Dim intCount As Integer

ReDim sFiles(0)

'enter the path where the files to be inserted are located
sPath = "C:\FilesDir"

'check for files with extension "doc"
sFile = Dir(sPath & "\*.doc", vbNormal)

'collect found files
Do While sFile <> &quot;&quot;
If (GetAttr(sPath & &quot;\&quot; & sFile) And vbNormal) = vbNormal Then
ReDim Preserve sFiles(intCount)
sFiles(intCount) = sFile
intCount = intCount + 1
End If

sFile = Dir

Loop

'if found collection is not empty then insert file
'and enter a pagebreak after each insertion
If sFiles(0) <> &quot;&quot; Then


For intCount = 0 To UBound(sFiles())

ChangeFileOpenDirectory sPath & &quot;\&quot;
Selection.InsertFile FileName:=sFiles(intCount)
Selection.InsertBreak Type:=wdPageBreak

Next intCount

End If


End Sub


Regards,
Unica

 

[Bowers74]

This should get you started (it's kinda like a Merge ):

Sub InsertDocumentAtEnd()
Selection.EndKey Unit:=wdStory
Selection.InsertFile FileName:="Document1.doc"
Selection.EndKey Unit:=wdStory
Selection.InsertFile FileName:="Document2.doc"
Selection.EndKey Unit:=wdStory
' etc. etc. etc. . . .
End Sub

I hope this helps you out!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!