3 snelle manieren om de huidige pagina in uw Word-document te selecteren

In deze post, we zijn verheugd om u 3 snelle manieren te presenteren om de huidige pagina in uw Word-document te selecteren.

Af en toe zult u waarschijnlijk de huidige pagina moeten selecteren om de inhoud te kopiëren of te extraheren. Normaal gesproken plaatsen we de cursor op de start van de pagina en houd de linkermuisknop ingedrukt om de hele pagina te selecteren. Maar je moet toegeven dat deze methode niet altijd goed werkt, omdat er fouten kunnen optreden. Hoewel het geen rocket science is om de klus te klaren, kunt u tijd besparen door snellere methoden toe te passen.

Dit zijn onze 3 oplossingen.

Methode 1: sneltoetsen voor documenten van één pagina

Als het document slechts één pagina bevat, hoeft u alleen maar uw invoegwijzer ergens in het document te plaatsen en op "Ctrl+A" te drukken.

Methode 2: sneltoetsen voor documenten met meerdere pagina's

Nu we het hebben over een document met meerdere pagina's, kunt u de volgende stappen nemen:

1. Plaats eerst de invoegwijzer aan het begin van de tarpagina ophalen.
2. Druk vervolgens op "Verschuiving".
3. Scroll vervolgens naar beneden naar de onderkant van die pagina en klik op aan het einde van de pagina.

Methode 3: Voer Word Macro uit

1. Eerst en vooralost, Klik op de tarpagina ophalen.
2. Klik vervolgens op het tabblad "Ontwikkelaar".
3. Klik vervolgens op "Visual Basic" om de VBA-editor te openen. Of druk op "Alt + F11" om dit te doen.
4. Klik nu op “Normaal” project en vervolgens op het tabblad “Invoegen”.
5. Selecteer "Module" in het vervolgkeuzemenu.
6. Dubbelklik vervolgens op de nieuw ingevoegde module om de codeerruimte te openen.
7. Plak daar de volgende codes:

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

8. Klik ten slotte op "Uitvoeren" of druk op "F5". Alle teksten op die pagina staan ​​nu in selectie.

Herstel Word-documenten

Het zou zo vervelend zijn om uw Word-documenten beschadigd te vinden, waardoor u niet meer bij uw informatie kunt. Zeker, niemand wil een corrupte doc. Maar als hij onverwachts gebeurt, is de enige overgebleven optie om de gegevens terug te halen met een ingebouwde tool of een tool van derden.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde Excel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com