Generar un documento para cada registro de una combinación de correspondencia
Valoración del Usuario:
/ 8
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 i As Long, doctext As Range, target As Document
Set Source = ActiveDocument
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