3 rychlé způsoby, jak vybrat aktuální stránku v dokumentu Word

V tomto příspěvku vám s radostí představujeme 3 rychlé způsoby, jak vybrat aktuální stránku v dokumentu Word.

Občas se pravděpodobně ocitnete v situaci, kdy budete potřebovat vybrat aktuální stránku, abyste zkopírovali nebo extrahovali její obsah. Obvykle bychom umístili kurzor na začátek stránky a podržením levého tlačítka myši vybrali celou stránku. Musíte však uznat, že tato metoda nefunguje vždy dobře, protože se mohou vyskytnout chyby. I když to není žádná věda, můžete si ušetřit čas použitím rychlejších metod.

Zde jsou naše 3 řešení.

Metoda 1: Klávesové zkratky pro jednostránkový dokument

Pokud je v dokumentu pouze jedna stránka, musíte umístit kurzor kamkoli do dokumentu a stisknout „Ctrl + A“.

Metoda 2: Klávesové zkratky pro vícestránkový dokument

Když už mluvíme o dokumentu na více stránkách, můžete provést následující kroky:

1. Nejprve umístěte kurzor na začátek cílové stránky.
2. Dále stiskněte „Shift“.
3. Poté přejděte dolů do dolní části této stránky a klikněte na její konec.

Metoda 3: Spusťte makro aplikace Word

1. V první řadě klikněte na cílovou stránku.
2. Poté klikněte na kartu „Vývojář“.
3. Poté klikněte na „Visual Basic“ a otevřete editor VBA. Nebo stiskněte „Alt + F11“.
4. Nyní klikněte na „Normální“ projekt a poté na kartu „Vložit“.
5. V rozevírací nabídce vyberte možnost „Modul“.
6. Další dvojitým kliknutím na nově vložený modul otevřete prostor pro kódování.
7. Vložte následující kódy:

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. Nakonec klikněte na „Spustit“ nebo stiskněte „F5“. Všechny texty na této stránce jsou nyní ve výběru.

Obnovte dokumenty Word

Bylo by takovou bolestí najít vaše dokumenty Word poškozené, takže byste byli nepřístupní svým informacím. Určitě nikdo nechce mít zkorumpovaný dokument. Když se však stane neočekávaný, jedinou možností, která zbývá, je načíst data zpět pomocí vestavěného nástroje nebo nástroje jiného výrobce.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com