|
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"
Set oblist = ActiveDocument
Counter = 1
For i = 1 To oblist.Tables(1).Rows.Count
Set DocName = oblist.Tables(1).Cell(i, 1).Range
DocName.End = DocName.End - 1 '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
Trackback(0)
 |
TrackBack URI para esta entrada
RSS feed Comments
Necesito combinar corresp en doc separados, pero no tengo idea de visual Basic, No aclararias mas detallado (ya se que esta detallado) el proceso para guardarlo en Visual Basic y bien q poner? mi mail es \n Esta dirección electrónica esta protegida contra spam bots. Necesita activar JavaScript para visualizarla '> Esta dirección electrónica esta protegida contra spam bots. Necesita activar JavaScript para visualizarla
Desde ya muchas gracias y muy buena tu disposicion. Alejandro