In diesem Beitrag freuen wir uns, Ihnen 3 schnelle Möglichkeiten vorzustellen, wie Sie die aktuelle Seite in Ihrem Word-Dokument auswählen können.
Hin und wieder werden Sie wahrscheinlich die aktuelle Seite auswählen müssen, um deren Inhalt zu kopieren oder zu extrahieren. Normalerweise platziert man den Cursor am Seitenanfang und hält die linke Maustaste gedrückt, um die gesamte Seite auszuwählen. Diese Methode funktioniert jedoch nicht immer zuverlässig, da Fehler auftreten können. Auch wenn es keine Raketenwissenschaft ist, können Sie Zeit sparen, indem Sie schnellere Methoden anwenden.
Hier sind unsere 3 Lösungen.
Methode 1: Tastaturkürzel für einseitiges Dokument
Wenn das Dokument nur eine Seite enthält, müssen Sie den Einfügezeiger an einer beliebigen Stelle im Dokument platzieren und „Strg + A“ drücken.
Methode 2: Tastaturkürzel für mehrseitige Dokumente
Wenn Sie jetzt von einem mehrseitigen Dokument sprechen, können Sie die folgenden Schritte ausführen:
- Als Erstes positionieren Sie den Einfügezeiger am Anfang der Zielseite.
- Drücken Sie anschließend "Shift".
- Scrollen Sie dann zum Ende dieser Seite und klicken Sie auf das Ende der Seite.
Methode 3: Führen Sie das Word-Makro aus
- Klicken Sie als Erstes auf die Zielseite.
- Klicken Sie dann auf die Registerkarte "Entwickler".
- Klicken Sie anschließend auf "Visual Basic", um den VBA-Editor zu öffnen. Oder drücken Sie dazu „Alt + F11“.
- Klicken Sie nun auf das Projekt „Normal“ und dann auf die Registerkarte „Einfügen“.
- Wählen Sie im Dropdown-Menü die Option „Modul“.
- Doppelklicken Sie anschließend auf das neu eingefügte Modul, um den Codierungsbereich zu öffnen.
- Fügen Sie dort die folgenden Codes ein:
Sub SelectCurrentPage()
Dim lCurrentPageStart As Long
Dim lCurrentPageEnd As Long
Dim objPageRange As Range
Dim nCurrentPageNumber As Integer
Dim nAllPageNumber As Integer
nCurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
nAllPageNumber = Selection.Information(wdNumberOfPagesInDocument)
' Get the start position of current page.
lCurrentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber).Start
' Get the end position of current page.
If nCurrentPageNumber = nAllPageNumber Then
lCurrentPageEnd = ActiveDocument.Content.End
Else
lCurrentPageEnd = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber + 1).Start
End If
' Select current page.
Set objPageRange = ActiveDocument.Range(Start:=lCurrentPageStart, End:=lCurrentPageEnd)
objPageRange.Select
End Sub
- Klicken Sie abschließend auf "Ausführen" oder drücken Sie "F5". Alle Texte auf dieser Seite sind jetzt in Auswahl.
Word-Dokumente wiederherstellen
Es wäre so schmerzhaft, wenn Ihre Word-Dokumente beschädigt wären und Sie nicht mehr auf Ihre Informationen zugreifen können. Sicherlich will niemand eine haben korruptes Dokument. Wenn dies jedoch unerwartet passiert, besteht die einzige verbleibende Option darin, die Daten entweder mit einem integrierten Tool oder einem Tool eines Drittanbieters abzurufen.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes Excel und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX


