Cuando usa la función de combinación de correspondencia en Word, tiene la opción de imprimir sus resultados directamente o crear un nuevo documento. Si elige la última opción, el documento resultante contiene toda la información que normalmente habría ido a la impresora. Por ejemplo, si su documento de combinación es una carta de dos páginas, cada letra del documento resultante está separada por un salto de sección. Por lo tanto, si está fusionando la carta de dos páginas con 150 direcciones diferentes, terminaría con un documento de 300 páginas con 150 saltos de sección (uno cada dos páginas).

Para algunas personas, sería más útil si pudiera fusionar archivos individuales. Por ejemplo, dado el ejemplo anterior, es posible que desee 150 archivos de documentos individuales, cada uno de dos páginas. Desafortunadamente, esa no es una de las opciones disponibles cuando se usa la función de combinación de correspondencia de Word. La única respuesta para lograr esta tarea es crear una macro que, basándose en el documento combinado (el de 300 páginas mencionado anteriormente) tomará cada sección y la guardará en su propio archivo de documento.

Si busca en la base de conocimientos de Microsoft, encontrará que hay un artículo antiguo que trata este mismo problema:

http://support.microsoft.com/kb/216201

La macro presentada en el artículo, aunque fue escrita para una versión anterior de Word, funcionará bien en versiones posteriores. Le permite separar un documento combinado en archivos individuales, según los saltos de sección:

Sub BreakOnSection()

'Used to set criteria for moving through the document by section.

Application.Browser.Target = wdBrowseSection

'A mailmerge document ends with a section break next page.

'Subtracting one from the section count stop error message.

For i = 1 To ((ActiveDocument.Sections.Count) - 1)



'Select and copy the section text to the clipboard         ActiveDocument.Bookmarks("\Section").Range.Copy

'Create a new document to paste text from clipboard.

Documents.Add         Selection.Paste

'Removes the break that is copied at the end of the section, if any.

Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend         Selection.Delete Unit:=wdCharacter, Count:=1

ChangeFileOpenDirectory "C:\"

DocNum = DocNum + 1         ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"

ActiveDocument.Close         'Move the selection to the next section in the document         Application.Browser.Next     Next i     ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub

Sin embargo, es importante darse cuenta de que esta macro solo funcionará si el único lugar en el que se producen saltos de sección es entre documentos combinados. Si su documento original incluye saltos de sección, la macro no proporcionará resultados satisfactorios. Para obtener información adicional sobre el uso de la macro, consulte el artículo de la base de conocimientos en el enlace proporcionado anteriormente.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1538) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Merging_to_Individual_Files [Fusionando a archivos individuales].