2 formas rápidas de extraer páginas individuales de su documento de Word

En la p de hoyost, queremos compartir contigo 2 formas rápidas de extraer páginas individuales de tu documento de Word.

A veces, en un documento de Word, cada página puede contener contenidos bastante independientes, como una tabla. Y probablemente necesitará enviar diferentes tablas a diferentes personas. Luego, tendrá que guardar cada tabla que es cada página, como un archivo separado.

La primera idea que se nos ocurra debería ser el clásico copiar y pegar. Sin embargo, cualquier cosa relacionada con la selección puede ser molesta a veces, ya que arrastrar y seleccionar puede hacer que uno termine fácilmente sin ninguna selección. Por esta razón, le recomendamos 2 métodos rápidos que utilizan macro para hacer el trabajo.

Método 1: extraer la página actual y guardarla como un documento nuevo

1. Primero y primeroost, coloque el cursor en la página que desea extraer.
2. Haga clic en la pestaña "Desarrollador" y luego haga clic en "Visual Basic" para invocar el editor de VBA. Si el "Desarrollador" no está activado, simplemente presione "Alt + F11" en su lugar.
3. En segundo lugar, vaya al proyecto "Normal" haciendo clic en él.
4. A continuación, haga clic en la pestaña "Insertar" y seleccione "Módulo".
5. Haga doble clic en el nuevo módulo para abrir el área de edición.
6. Luego pegue los siguientes códigos allí:

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. Por último, haga clic en el botón "Ejecutar".

Ahora habrá 2 cuadros de entrada. Ingrese la ruta donde desea almacenar el nuevo documento en el primer cuadro de entrada. E ingrese el nombre del nuevo documento en el segundo.

Método 2: extraiga cada página y guárdela como un documento nuevo

La siguiente macro le permitirá extraer cada página individual de un documento.

1. En primer lugar, presione "Ctrl + Inicio" para ir al principio de su documento.
2. Luego, siga los mismos pasos del método 1 para instalar y ejecutar una macro.
3. Esta vez reemplace la macro con esta:

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Lidiar con problemas de Word

Hay y siempre habrá varios problemas de Word. El punto es aprender a arreglarlos correctamente. Ellosost La forma recomendada es, por supuesto, conseguir un sofisticado Recuperación de palabras herramienta. Debe aprovechar cada minuto para recuperar sus datos antes de que sea demasiado tarde.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo xlsx corrupto y pdf reparar productos de software. Para más información visite www.datanumen.com