Šiandienos straipsnyje norėtume jums pristatyti 2 greitus būdus, kaip ieškoti „Word“ dokumentų su konkrečiu puslapių skaičiumi.
Paprastai viename kataloge yra daug failų. Be to, gali būti įvairių tipų failai. Taigi, ką daryti, jei reikia ieškoti „Word“ dokumentų su tam tikru puslapių skaičiumi? Arba pamiršote dokumento pavadinimą, bet atsimenate bendrą jo puslapių skaičių.
Mūsų toliau pateikti sprendimai padės jums ieškoti tikslinių „Word“ dokumentų su konkrečiu puslapių skaičiumi.
1 būdas: ieškokite „Windows Explorer“.
- Pirmiausia spustelėkite „Pradėti“.
- Tada spustelėkite „Kompiuteris“, kad atidarytumėte „Windows Explorer“. Arba, jei failų naršyklės piktograma jau yra užduočių juostoje, tiesiog spustelėkite ją.
- Tada eikite į diską ir konkrečią vietą, kurioje laikote visus failus.
- Dabar dešiniuoju pelės mygtuku spustelėkite tuščią vietą pirmoje eilutėje.
- Pažymėkite „Tipas“ ir „Puslapiai“. Jei jų ten nematyti, meniu apačioje spustelėkite „Daugiau“.
- Atsidariusiame lange „Pasirinkti informaciją“ pažymėkite laukelius „Puslapiai“ ir „Tipas“ ir spustelėkite „Gerai“.
- Tada perkelkite žymeklį ant stulpelio „Tipas“, kol pasirodys išskleidžiamasis mygtukas. Spustelėkite jį.
- Pažymėkite langelį „Microsoft Word dokumentas“. Matote, kad liko tik „Word“ dokumentai. Tada žr. stulpelį „Puslapiai“, kad rastumėte dokumentą su konkrečiu puslapių skaičiumi.
2 būdas: paleiskite Word makrokomandą
- Visų pirma, paspauskite „Alt“ + F11, kad iškviestumėte VBA redaktorių programoje „Word“.
- Tada spustelėkite „Įprastas“ ir įrankių juostoje spustelėkite „Įterpti“.
- Pasirinkite „Modulis“, kad sukurtumėte naują.
- Tada dukart spustelėkite, kad atidarytumėte kodavimo erdvę dešinėje.
- Įklijuokite ten šią makrokomandą:
Sub FindWordDocumentWithSpecificPageNumber()
Dim lPageNumber As Long
Dim lSpecificPageNumber As Long
Dim strDocList As String
Dim strDocName As String
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)
If lPageNumber = lSpecificPageNumber Then
strDocName = .ActiveDocument.FullName
strDocList = strDocList & strDocName & vbCr
End If
.ActiveDocument.Close
End With
strFile = Dir()
wend
Set objWordApplication = Nothing
If strDocList <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strDocList
Else
MsgBox ("There is no match document.")
End If
End Sub
- Tada spustelėkite mygtuką „Vykdyti“ arba paspauskite „F5“.
- Dabar rodomas įvesties laukelis. Teksto laukelyje įveskite aplanko adresą ir nepamirškite eilutės pabaigoje pridėti „\“.
- Spustelėkite „Gerai“, kad pereitumėte prie kito veiksmo.
- Antrame laukelyje įveskite skaičių. Skaičius nurodo bendrą tikslinio dokumento puslapių skaičių. Panašiai spustelėkite „Gerai“.
„Word“ programoje bus atidarytas dokumentas su pilnu tikslinio dokumento pavadinimu.
Išspręskite „Word“ žlugimo problemą
Paprastai „Word“ yra galingas įrankis kasdieniniam darbui apdoroti. Tačiau kartais gali kilti problemų ir sudėtingų problemų. Ir kartais situacija yra šiek tiek sunki, ir jūs galite susidurti su ja sugadintas žodis. Tokiu atveju jums reikės pažangaus taisymo įrankio, kad galėtumėte atkurti savo darbą.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls remontas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com