2 brza načina za traženje Word dokumenata sa 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. Štaviše, mogu postojati različite vrste datoteka. Dakle, što ako trebate tražiti Word dokumente s određenim brojem stranica? Ili se desi da zaboravite naziv dokumenta, ali zapamtite njegov ukupan broj stranica.

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

Metoda 1: Pretraga u Windows Exploreru

1. Prvo, kliknite na "Start".
2. Zatim kliknite na "Računar" da otvorite Windows Explorer. Ili ako je ikona istraživača datoteka već na vašoj traci zadataka, samo je kliknite.
3. Zatim idite na disk i određenu lokaciju na kojoj čuvate sve datoteke.
4. Sada kliknite desnim tasterom miša na prazan prostor u prvom redu.
5. Provjerite "Tip" i "Stranice". Ako tamo nisu vidljivi, kliknite na „Više“ na dnu menija.
6. U okviru „Odaberi detalje“ otvorite okvire za „Stranice“ i „Vrsta“ i kliknite na „U redu“.
7. Zatim pomerite kursor preko kolone „Tip“ dok se ne prikaže padajuće dugme. Kliknite na njega.
8. Označite okvir "Microsoft Word dokument". Možete vidjeti da su dostupni samo Word dokumenti. Zatim pogledajte kolonu „Stranice“ da biste pronašli dokument sa određenim brojem stranica.

Metoda 2: Pokrenite Word makro

1. Prvo i najvažnije, pritisnite "Alt+F11" da biste pozvali VBA editor u Wordu.
2. Zatim kliknite na “Normal” i kliknite na “Insert” na alatnoj traci.
3. Odaberite “Module” da kreirate novi.
4. Zatim dvaput kliknite da otvorite prostor za kodiranje na desnoj strani.
5. Tamo zalijepite sljedeći makro:

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 na dugme “Run” ili pritisnite “F5”.
7. Sada se pojavljuje okvir za unos. Unesite adresu foldera u okvir za tekst i ne zaboravite dodati “\” na kraju niza.
8. Kliknite na “OK” da biste prešli na sljedeći korak.
9. U drugom polju unesite broj u tekstualno polje. Broj označava ukupan broj stranica ciljnog dokumenta. Slično tome, kliknite na "U redu".

U Wordu će biti otvoren dokument s punim nazivom ciljnog dokumenta.

Pozabavite se nevoljom kolapsa riječi

Generalno, Word je moćan alat za obradu svakodnevnog rada. Ipak, s vremena na vrijeme, mogu se pojaviti problemi i teški problemi. A ponekad je situacija malo teška da se može završiti oštećena reč. U takvom scenariju, trebat će vam napredni alat za popravku da biste vratili svoj rad.

Uvod za autora:

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