Cómo usar vb para implementar paginación forzada en Word

1. Abra el documento que necesita dividirse en Word (asumiendo que su nombre de archivo es "documento original.doc");

Escriba ALT+F11 para abrir el editor VBA y seleccione Menú "Insertar - Módulo";

Pegue el siguiente código:

Opción explícita

Sub SplitPagesAsDocuments()

Atenuar oSrcDoc como Documento, oNewDoc como documento

Dim strSrcName como cadena, strNewName como cadena

Dim oRange como rango

Dim nIndex como entero

Dim fso como objeto

Establecer fso = CreateObject("Scripting.FileSystemObject")

Establecer oSrcDoc = ActiveDocument

Establecer oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart

oRange.Select

Para nIndex = 1 a ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

oSrcDoc.Bookmarks("\page " ).Range.Copy

oSrcDoc.Windows(1).Activate

Application.Browser.Target = wdBrowsePage

Application.Browser.Next

strSrcName = oSrcDoc.FullName

strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _

fso.GetBaseName(strSrcName) & "_" & nIndex & " ." & fso.GetExtensionName(strSrcName))

Establecer oNewDoc = Documents.Add

Selection.Paste

oNewDoc.SaveAs strNewName

oNewDoc.Close False

Siguiente

Establecer oNewDoc = Nada

Establecer oRange = Nada

Establecer oSrcDoc = Nada

Establecer fso = Nada

MsgBox "¡Fin! "

End Sub

Escriba F5 para ejecutar y ver "¡Listo! "Finalizar.

2. Compruebe si se generan varios documentos denominados "documento original_n.doc" (n representa la página correspondiente en el documento original) en la ruta donde se encuentra el documento actual y compruebe si su contenido. son correctos. Corresponde al contenido de cada página del documento original.

Si hay saltos de sección en el documento, aparecerá una página en blanco en el documento descompuesto. Si desea evitar páginas en blanco después de la descomposición, debe eliminar los saltos de sección en el documento. Métodos para eliminar los saltos de sección:

Notas

Si reemplaza todos los saltos de sección, tenga en cuenta que el documento puede tener una composición tipográfica confusa después del reemplazo, en cuyo caso deberá escribirla manualmente. .