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 p>
' 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.