Cómo dividir cada página de docenas de documentos de Word en archivos de Word separados y guardarlos

Cómo dividir cada página de docenas de documentos de Word en archivos de Word separados y guardarlos de la siguiente manera:

1. Método de programación:

A veces es necesario. para separar cada página del documento de Word se guarda como un documento de Word. Si lo hace manualmente, será muy agotador. Hoy usamos VBA para implementar el procesamiento automático por lotes. Ingrese el siguiente código en la página de códigos de ThisDocument en el documento y luego ejecute Sub SaveParagraph():

Opción explícita

Sub SaveParagraph()

Dim i como entero, número de página como entero

Atenuar aDoc como documento

Atenuar myDoc como documento

Atenuar sPage como cadena

Establecer myDoc = ThisDocument

'Establecer la vista del documento en modo página

ActiveWindow.View.Type = wdPageView

myDoc.Repaginate

'Obtener el página del documento Cuente y asígnela a la variable PageNo

PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)

For i = 1 To PageNo

myDoc.Activate

' Mueve el cursor al principio de una determinada página del documento

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i

' Selecciona todo de una determinada página del documento Todo el contenido

Selection.EndKey Unit:=wdStory, Extend:=wdExtend

sPage = Selection.Text

' Guardar en un archivo

Establecer aDoc = Documents.Add

aDoc.Content.Text = sPage

aDoc.SaveAs FileName:="c:\" amp; CInt(i) amp; " .doc"

aDoc.Close

Siguiente

Método de herramienta final

2. Ahora hay pequeños sitios web en Internet que se especializan en operar Word. La herramienta se puede descargar y utilizar directamente, lo cual también es muy conveniente.