RE:Como Concatenar 2 archivos .doc en vb6
Como ahorita estoy casi casi de ocioso, lo voy a hacer para ayudarte... ahí te va...+
Set Of_Word = Nothing
Set Of_Word = New Word.Application
Of_Word.Application.Visible = False 'si acaso no quieres que se vea la pantalla de Word
Of_Word.Documents.Open FileName:="""C:\doc1.doc""", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
Of_Word.Selection.EndKey Unit:=wdStory
Of_Word.Selection.InsertBreak Type:=wdPageBreak
Of_Word.Selection.InsertFile FileName:="C:\doc2.doc", Range:="", ConfirmConversions _
:=False, Link:=False, Attachment:=False
Of_Word.ActiveDocument.SaveAs FileName:="C:\doc3.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
Of_Word.Application.Visible = True ' para que pongas la aplicación visible, en caso de que quieras que se vez
Este código abre un archivo llamado doc1.doc, le inserta el archivo doc2.doc, luego graba el archivo como doc3.doc.
OJO: Los archivos doc1.doc y doc2.doc DEBEN DE EXISTIR, además el archivo doc3.doc NO DEBE DE EXISTIR, ya si quieres controlar esto... búscale como preguntar en VBasic si algún archivo existe o no...
Espero te sirva.
SALUDOS