3 gyors módszer az aktuális oldal kiválasztásához a Word-dokumentumban

Ebben a bejegyzésben izgatottan mutatunk be 3 gyors módszert a Word-dokumentum aktuális oldalának kijelölésére.

Időről időre valószínűleg szükség lesz arra, hogy kiválaszd az aktuális oldalt a tartalom másolásához vagy kinyeréséhez. Normális esetben a kurzort az oldal elejére helyezzük, és a bal egérgomb lenyomva tartásával kijelöljük az egész oldalt. De el kell ismerni, hogy ez a módszer nem mindig működik jól, mivel hibák léphetnek fel. Bár nem atomfizika a feladat elvégzése, időt takaríthat meg gyorsabb módszerek alkalmazásával.

Íme a 3 megoldásunk.

1. módszer: Billentyűparancsok egyoldalas dokumentumokhoz

Ha csak egy oldal van a dokumentumban, akkor el kell helyeznie a beszúrási mutatót a dokumentumon belül bárhová, és nyomja meg a „Ctrl+A” billentyűkombinációt.

2. módszer: Billentyűparancsok többoldalas dokumentumokhoz

Ha most a többoldalas dokumentumról beszélünk, az alábbi lépéseket hajthatja végre:

1. Először is, helyezze a beszúrási mutatót a céloldal elejére.
2. Ezután nyomja meg a „Shift” gombot.
3. Ezután görgessen le az oldal aljára, és kattintson az oldal végére.

3. módszer: Futtassa a Word makrót

1. Elsősorban kattints a céloldalra.
2. Ezután kattintson a „Fejlesztő” fülre.
3. Ezután kattintson a „Visual Basic” elemre a VBA-szerkesztő megnyitásához. Vagy nyomja meg az „Alt+F11” billentyűt ehhez.
4. Most kattintson a „Normál” projektre, majd a „Beszúrás” fülre.
5. A legördülő menüben válassza a „Modul” lehetőséget.
6. Ezután kattintson duplán az újonnan beillesztett modulra a kódolótér megnyitásához.
7. Illessze be a következő kódokat:

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. Végül kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot. Az oldalon található összes szöveg kijelölésben van.

Word dokumentumok helyreállítása

Fájdalom lenne, ha Word-dokumentumait sérültnek találná, így elérhetetlenné válna az információihoz. Bizonyára senki sem akarja, hogy a korrupt doki. Ha azonban váratlan történik, az egyetlen lehetőség az adatok visszakeresése beépített vagy harmadik féltől származó eszközzel.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült Excel és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com