¿Cómo fusiono archivos .doc?

Question

Tengo más de 500 archivos doc que necesito fusionar en un solo archivo. ¿Cómo puedo hacer eso? Intenté insertar --> desde un archivo de texto, pero solo se fusiona como los primeros 50 de ellos. ¿Algunas ideas?

Answer 1

Si la interfaz de usuario falla, sugeriría una macro. ¿Puedes enumerar los nombres de tus archivos en el documento de Word, un párrafo, un nombre? Luego, la siguiente macro reemplazará los nombres de los archivos con el contenido del archivo:

Sub Include()
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            Set oRange = .Paragraphs(i).Range
            sFname = oRange.Text
            sFname = Left(sFname, Len(sFname) - 1)
            sFname = "c:\tmp\" & sFname
            oRange.InsertFile FileName:=sFname
        Next
    End With
End Sub

Reemplace c:\tmp\con su camino.