Im heutigen Beitrag möchten wir Ihnen zwei schnelle Möglichkeiten vorstellen, wie Sie einzelne Seiten aus Ihrem Word-Dokument extrahieren können.
Manchmal enthält jede Seite in einem Word-Dokument ganz unabhängige Inhalte, z. B. eine Tabelle. Und Sie müssen wahrscheinlich verschiedene Tabellen an verschiedene Personen senden. Dann müssen Sie jede Tabelle, die jede Seite ist, als separate Datei speichern.
Die erste Idee, die uns einfällt, sollte das klassische Kopieren und Einfügen sein. Alles, was mit Auswahl zu tun hat, kann manchmal ärgerlich sein, denn durch Ziehen und Auswählen kann man leicht ein Ende ohne Auswahl erreichen. Aus diesem Grund empfehlen wir Ihnen zwei schnelle Methoden mit Makro, um die Arbeit zu erledigen.
Methode 1: Aktuelle Seite extrahieren und als neues Dokument speichern
- Als Erstes sollten Sie den Cursor auf die Seite setzen, die Sie extrahieren möchten.
- Klicken Sie auf die Registerkarte "Entwickler" und dann auf "Visual Basic", um den VBA-Editor aufzurufen. Wenn der „Entwickler“ nicht aktiviert ist, drücken Sie stattdessen einfach „Alt + F11“.
- Zweitens gehen Sie zum Projekt „Normal“, indem Sie darauf klicken.
- Klicken Sie anschließend auf die Registerkarte "Einfügen" und wählen Sie "Modul".
- Doppelklicken Sie auf das neue Modul, um den Bearbeitungsbereich zu öffnen.
- Fügen Sie dort die folgenden Codes ein:
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
- Klicken Sie abschließend auf die Schaltfläche "Ausführen".
Jetzt gibt es 2 Eingabefelder. Geben Sie den Pfad, in dem Sie das neue Dokument speichern möchten, in das erste Eingabefeld ein. Und geben Sie den neuen Dokumentnamen in den zweiten ein.
Methode 2: Extrahieren Sie jede Seite und speichern Sie sie als neues Dokument
Mit dem folgenden Makro können Sie jede einzelne Seite eines Dokuments extrahieren.
- Drücken Sie zunächst „Strg + Home“, um zum Anfang Ihres Dokuments zu gelangen.
- Führen Sie dann die gleichen Schritte in Methode 1 aus, um ein Makro zu installieren und auszuführen.
- Dieses Mal ersetzen Sie das Makro durch dieses:
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
Beschäftigen Sie sich mit Word-Problemen
Es gibt und wird immer wieder verschiedene Probleme mit Word geben. Wichtig ist, zu lernen, sie richtig zu beheben. Am empfehlenswertesten ist natürlich die Anschaffung eines ausgefeilten Word-Tools. Wortwiederherstellung Werkzeug. Sie sollten jede Minute nutzen, um Ihre Daten wiederherzustellen, bevor es zu spät ist.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korruptes xlsx und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX