Las capacidades de combinación de correspondencia estándar de Word le permiten combinar directamente con una impresora, un nuevo documento o una serie de mensajes de correo electrónico.

Sin embargo, puede haber ocasiones en las que necesite crear un documento individual para cada uno de los registros de la fuente de datos. Desafortunadamente, Word no proporciona una forma de hacer esto. Afortunadamente, puede crear una macro para que se encargue de la tarea por usted. La siguiente es una macro que «separará» un documento creado por la función de combinación de correspondencia. Cada sección del documento (hay una sección por registro de fuente de datos) se extrae y se guarda en su propio archivo de documento.

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

Cuando se ejecuta la macro, crea una serie de archivos denominados Ltr001 a Ltrxxx, donde xxx es el número de secciones del documento original.

En realidad, la macro crea un archivo «Ltr» menos que el número de secciones del documento. La última sección del documento se deja en el archivo original (el que está procesando). Si desea cambiar el nombre del archivo o dónde se guardan los archivos, cambie la configuración de la variable BaseName en la macro.

_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). Esta sugerencia (11593) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Creating_Files_with_Mail_Merge [Creación de archivos con combinación de correspondencia].