2 brza načina za traženje Word dokumenata s određenim brojem stranica

U današnjem članku želimo vam predstaviti 2 brza načina pretraživanja Word dokumenata s određenim brojem stranica.

Općenito, postoji veliki broj datoteka pohranjenih u jednom direktoriju. Štoviše, mogu postojati različite vrste datoteka. Dakle, što ako trebate tražiti Word dokumente s određenim brojem stranica? Ili ste zaboravili naziv dokumenta, ali zapamtite ukupan broj stranica.

Naša rješenja u nastavku će vas dovesti do pretraživanja ciljanih Word dokumenata s određenim brojem stranica.

Metoda 1: Pretraživanje u programu Window Explorer

1. Prvo, kliknite na "Start".
2. Zatim kliknite "Računalo" da biste otvorili Windows Explorer. Ili ako se ikona preglednika datoteka već nalazi na programskoj traci, jednostavno je kliknite.
3. Zatim idite na disk i određeno mjesto gdje držite sve datoteke.
4. Sada desnom tipkom miša kliknite prazan prostor u prvom redu.
5. Provjerite "Tip" i "Stranice". Ako tamo nisu vidljivi, kliknite "Više" na dnu izbornika.
6. U otvorenom okviru "Odaberi pojedinosti", potvrdite okvire "Stranice" i "Vrsta" i kliknite "U redu".
7. Zatim pomaknite kursor preko stupca "Vrsta" dok se ne prikaže padajući gumb. Kliknite na nju.
8. Označite okvir "Microsoft Word Document". Možete vidjeti da su ostali dostupni samo Word dokumenti. Zatim pogledajte stupac "Stranice" kako biste pronašli dokument s određenim brojem stranica.

Metoda 2: Pokrenite Word Macro

1. Prvo i najvažnije, pritisnite "Alt + F11" za pozivanje VBA editora u Wordu.
2. Zatim kliknite "Normalno" i kliknite "Umetni" na alatnoj traci.
3. Odaberite "Modul" za stvaranje novog.
4. Zatim dvaput kliknite da biste otvorili prostor za kodiranje s desne strane.
5. Tamo zalijepite sljedeću makronaredbu:

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

6. Zatim kliknite gumb "Pokreni" ili pritisnite "F5".
7. Sada se prikazuje okvir za unos. Unesite adresu mape u tekstualni okvir i ne zaboravite dodati “\” na kraju niza.
8. Pritisnite “OK” za prijelaz na sljedeći korak.
9. U drugom okviru unesite broj u tekstualno polje. Broj označava ukupan broj stranica ciljnog dokumenta. Slično tome, kliknite "U redu".

U Wordu će se otvoriti dokument s punim nazivom ciljnog dokumenta.

Pozabavite se problemom kolapsa riječi

Općenito, Word je moćan alat za obradu svakodnevnog posla. Ipak, s vremena na vrijeme mogu se pojaviti problemi i teška pitanja. A ponekad je situacija malo teška da možete završiti s njom oštećena riječ. U takvom scenariju, trebat će vam napredni alat za popravak da vratite svoj rad.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com