appending files?

[dazs]

Is there any way to append MS Word files together through VB? I've tried:

Open "c:\word.doc" For Append As #1
Open "c:\part1.doc" For Input As #2
Open "c:\part2.doc" For Output As #3

Do Until EOF(2)
Line Input 2, Z$
Print #1, Z$
Loop

Do Until EOF(3)
Line Input 3, Z$
Print #1, Z$
Loop


But all that is produced is garbage. Any ideas?

you cant just do it like that, because of all the formatting characters and crap like that.
use a macro in VBA to do what your trying to achieve.

[Fox]

join them binary:

Dim Temp() as Byte
Dim FileNumber as Integer

FileNumber = FreeFile
Open SourceFile for Binary as FileNumber
   ReDim Temp(LOF(FileNuber))

   Get FileNumber,, Temp
Close FileNumber

FileNumber = FreeFile
Open DestFile for Binary as FileNumber
   Putt FileNumber, LOF(FileNumber), Temp
Close FileNumber

Something like this...