Šiame įraše džiaugiamės galėdami pristatyti jums 3 greitus būdus, kaip pasirinkti dabartinį puslapį „Word“ dokumente.
Kartais tikriausiai susidursite su poreikiu pasirinkti dabartinį puslapį, kad nukopijuotumėte arba išskleistumėte jo turinį. Paprastai žymeklį pastatytume puslapio pradžioje ir laikytume nuspaudę kairįjį pelės klavišą, kad pasirinktume visą puslapį. Tačiau turite pripažinti, kad šis metodas ne visada veikia gerai, nes gali pasitaikyti klaidų. Nors tai nėra raketų mokslas, galite sutaupyti laiko pasirinkdami greitesnius metodus.
Štai mūsų 3 sprendimai.
1 būdas: vieno puslapio dokumento spartieji klavišai
Kai dokumente yra tik vienas puslapis, ką reikia padaryti, tai įdėti įterpimo žymeklį bet kurioje dokumento vietoje ir paspausti „Ctrl+A“.
2 būdas: kelių puslapių dokumento spartieji klavišai
Dabar kalbant apie kelių puslapių dokumentą, galite atlikti šiuos veiksmus:
- Pirmiausia, įterpimo žymeklį nustatykite į tikslinio puslapio pradžią.
- Tada paspauskite „Shift“.
- Tada slinkite žemyn į to puslapio apačią ir spustelėkite puslapio pabaigoje.
3 būdas: paleiskite Word makrokomandą
- Visų pirma, spustelėkite tikslinį puslapį.
- Tada spustelėkite skirtuką „Kūrėjas“.
- Tada spustelėkite „Visual Basic“, kad atidarytumėte VBA redaktorių. Arba paspauskite „Alt + F11“, kad tai padarytumėte.
- Dabar spustelėkite "Įprastas" projektas ir tada "Įterpti" skirtuką.
- Išskleidžiamajame meniu pasirinkite „Modulis“.
- Tada dukart spustelėkite naujai įdėtą modulį, kad atidarytumėte kodavimo erdvę.
- Įklijuokite šiuos kodus:
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
- Galiausiai spustelėkite „Vykdyti“ arba paspauskite „F5“. Visi tekstai šiame puslapyje dabar yra atrinkti.
Atkurti Word dokumentus
Būtų labai sunku rasti jūsų „Word“ dokumentus sugadintus ir likti nepasiekiama informacija. Žinoma, niekas nenori turėti a korumpuotas doc. Tačiau, kai jis netikėtai nutinka, lieka vienintelė galimybė – atkurti duomenis naudojant įmontuotą arba trečiosios šalies įrankį.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com