Los documentos de Microsoft Word pueden contener páginas individuales que se adaptarían mejor a sus propios documentos. Por ejemplo, un documento puede contener docenas de páginas de formularios, cada uno de los cuales va a un departamento separado para su procesamiento. Para extraer una página individual, puede copiarla en un archivo en blanco. Para extraer todas las páginas de un documento, debe copiar y pegar cada uno de sus archivos, lo que puede llevar mucho tiempo y esfuerzo. Sin embargo, puede automatizar el proceso de extracción escribiendo una macro de Visual Basic.
1
Presione "Alt-F11" para abrir el editor de Visual Basic de Word.
2
Haga clic en el módulo "NewMacros" en la carpeta Módulos de la ventana "Proyecto", si Word no lo abre automáticamente.
3
Escriba lo siguiente para abrir una nueva macro:
Sub mcrExtractPages ()
4
Agregue el siguiente código para configurar la macro para navegar por el documento por página:
Application.Browser.Target = wdBrowsePage
5
Agregue el siguiente código, que abre un bucle que se ejecuta en cada página del documento:
Para i = 1 a ActiveDocument.BuiltInDocumentProperties ("Número de páginas")
6
Agregue lo siguiente para copiar el contenido de la página seleccionada:
ActiveDocument.Bookmarks (" página"). Rango. Copiar
7
Agregue el siguiente código para crear un nuevo documento:
Documents.Add
8
Agregue el siguiente código para pegar el código copiado en el nuevo documento:
Selección.past
9
Agregue el siguiente código para establecer el directorio donde Word guardará las páginas extraídas:
ChangeFileOpenDirectory "C: Users Ryan Documents"
10
Cambie "C: Users Ryan Documents" al directorio que desee.
11
Agregue el siguiente código para guardar el nuevo documento como un nuevo archivo en el directorio elegido:
DocNum = DocNum + 1 ActiveDocument.SaveAs FileName: = "ExtractedPage_" & DocNum & ".docx"
12
Cambie "ExtractedPage_" por el nombre que desee asignar a las páginas extraídas.
13
Agregue el siguiente código para cerrar el nuevo documento y pasar a la siguiente página del documento principal:
ActiveDocument.Close Application.Browser.Next
14
Agregue el siguiente código para cerrar el ciclo:
Siguiente i
15
Agregue el siguiente código para cerrar la macro:
End Sub
16
Presione "F5" para ejecutar la macro.