În această postare, suntem încântați să vă prezentăm 3 modalități rapide de a selecta pagina curentă din documentul Word.
Din când în când, probabil că veți fi nevoiți să selectați pagina curentă pentru a copia sau extrage conținutul. În mod normal, am plasa cursorul la începutul paginii și am ține apăsat butonul stânga pentru a selecta întreaga pagină. Dar trebuie să recunoașteți că această metodă nu funcționează întotdeauna bine, deoarece pot apărea erori. Deși nu este o treabă complicată, puteți economisi timp adoptând metode mai rapide.
Iată cele 3 soluții ale noastre.
Metoda 1: Comenzi rapide de la tastatură pentru documentul de o pagină
Când există doar o pagină în document, ceea ce trebuie să faceți este să plasați indicatorul de inserare oriunde în document și să apăsați „Ctrl+ A”.
Metoda 2: Comenzi rapide de la tastatură pentru documentul cu mai multe pagini
Acum vorbind de document în mai multe pagini, puteți urma pașii de mai jos:
- În primul rând, poziționați indicatorul de inserare la începutul paginii țintă.
- Apoi apăsați „Shift”.
- Apoi derulați în jos până în partea de jos a paginii respective și faceți clic pe la sfârșitul paginii.
Metoda 3: Executați Word Macro
- În primul rând, faceți clic pe pagina țintă.
- Apoi faceți clic pe fila „Dezvoltator”.
- Apoi faceți clic pe „Visual Basic” pentru a deschide editorul VBA. Sau apăsați „Alt+ F11” pentru a face acest lucru.
- Acum faceți clic pe proiect „Normal” și apoi pe fila „Inserare”.
- Selectați „Modul” din meniul derulant.
- Apoi faceți dublu clic pe modulul nou introdus pentru a deschide spațiul de codare.
- Lipiți acolo următoarele coduri:
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
- În cele din urmă, faceți clic pe „Run” sau apăsați pe „F5”. Toate textele de pe pagina respectivă sunt acum în selecție.
Recuperați documente Word
Ar fi atât de dureros să găsești documentele tale Word corupte, lăsându-te inaccesibil la informațiile tale. Cu siguranță, nimeni nu vrea să aibă un corupt doc. Cu toate acestea, atunci când se întâmplă neașteptat, singura opțiune rămasă este să recuperați datele înapoi, fie cu un instrument încorporat, fie cu un instrument terță parte.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv a corupt Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com


