Necesitamos el documento combinado. Partimos de ahí. Combinamos en un nuevo documento como siempre y nos generará todo en un archivo con varias páginas, tantas como registros tengamos.

El siguiente paso es crear un archivo en Word, como se desee con los nombres de documento que necesitemos. En ese archivo creado en Word NO creemos un encabezado sino directamente los nombres. Debemos crearlo de igual forma a como tenemos los nombres en la combinación, es decir, si el primer nombre es Antonio García el primer fichero a crear sería agarcia.doc, el segundo Jesús Lopez pues sería jlopez.doc, etc.

Llamaremos a ese archivo nombresarchivo.doc.

Bien, llegados a este punto y situándonos en e l documento generado por la combinación de correspondencia tenemos que ejecutar la siguiente macro, que es una adaptación de una macro de Doug Robbins para un proceso similiar. Para copiarla en nuestro archivo abrimos el Editor de Visual Basic, mediante Alt+F11 y la copiamos allí.

Sub Guardar()

Dim Source As Document, oblist As Document, DocName As Range, DocumentName As String
Dim i As Long, doctext As Range, target As Document
Set Source = ActiveDocument
'Aquí indicamos la ruta del documento en el que hemos creado el directorio de nombres de archivo. Debes indicar la ruta completa entre comillas.
 

Documents.Open FileName:="c:\nombresarchivo.doc"<br />Set oblist = ActiveDocument<br />Counter = 1<br />For i = 1 To oblist.Tables(1).Rows.Count<br />Set DocName = oblist.Tables(1).Cell(i, 1).Range<br />DocName.End = DocName.End - 1</div> <p><span style="font-family: courier new,courier,monospace;">'Aquí indicamos el directorio de destino de los archivos creados. Lo que se ve en rojo es la ruta al directorio en el que deseamos guardar la combinación

DocumentName = "c:\YO\ " & DocName.Text

Set doctext = Source.Sections(i).Range
doctext.End = doctext.End - 1
Set target = Documents.Add
  target.Range.FormattedText = doctext
  target.SaveAs FileName:=DocumentName
  target.Close

Next i
ActiveDocument.Close
ActiveDocument.Close _
SaveChanges:=wdDoNotSaveChanges

End Sub