2 rýchle spôsoby vyhľadávania dokumentov programu Word s konkrétnym počtom strán

V dnešnom článku by sme vám chceli predstaviť 2 rýchle spôsoby vyhľadávania dokumentov Word so špecifickým počtom strán.

Spravidla je v jednom adresári uložených veľké množstvo súborov. A čo viac, môžu existovať rôzne typy súborov. Čo ak teda potrebujete vyhľadať dokumenty vo formáte Word s konkrétnym počtom strán? Alebo zabudnete názov dokumentu, ale pamätáte si jeho celkový počet strán.

Naše riešenia uvedené nižšie vás dovedú k vyhľadávaniu cieľových dokumentov programu Word s konkrétnym počtom strán.

Metóda 1: Vyhľadávanie v programe Windows Explorer

1. Najprv kliknite na tlačidlo „Štart“.
2. Potom kliknite na „Počítač“ a otvorte prieskumník systému Windows. Alebo ak sa ikona prehľadávača súborov už nachádza na paneli úloh, stačí na ňu kliknúť.
3. Ďalej prejdite na disk a konkrétne umiestnenie, kde máte uložené všetky súbory.
4. Teraz kliknite pravým tlačidlom myši na prázdne miesto v prvom riadku.
5. Začiarknite možnosti „Typ“ a „Stránky“. Ak tam nie sú viditeľné, kliknite na tlačidlo „Viac“ v dolnej časti ponuky.
6. V otvorenom poli „Vybrať podrobnosti“ začiarknite políčka „Stránky“ a „Typ“ a kliknite na tlačidlo „OK“.
7. Potom posuňte kurzor na stĺpec „Typ“, kým sa nezobrazí rozbaľovacie tlačidlo. Kliknite na ňu.
8. Začiarknite políčko „Dokument Microsoft Word“. Môžete vidieť, že k dispozícii sú iba dokumenty Word. Potom v stĺpci „Stránky“ vyhľadajte dokument s konkrétnym počtom strán.

Metóda 2: Spustenie makra programu Word

1. V prvom rade stlačte klávesy „Alt + F11“ na spustenie editora VBA vo Worde.
2. Ďalej kliknite na „Normálny“ a na paneli nástrojov kliknite na „Vložiť“.
3. Vyberte „Modul“ a vytvorte nový.
4. Potom dvojitým kliknutím otvorte programovací priestor na pravej strane.
5. Vložte tam nasledujúce 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. Ďalej kliknite na tlačidlo „Spustiť“ alebo stlačte „F5“.
7. Teraz je tu výzva na zadanie. Do textového poľa zadajte adresu priečinka a nezabudnite na koniec reťazca pridať znak „\“.
8. Kliknutím na „OK“ sa presuniete na ďalší krok.
9. Do druhého textového poľa zadajte číslo. Číslo označuje celkový počet strán cieľového dokumentu. Podobne kliknite na tlačidlo „OK“.

V programe Word sa otvorí dokument s celým názvom cieľového dokumentu.

Vyriešte ťažkú ​​situáciu kolapsu slov

Word je všeobecne mocný nástroj na spracovanie každodennej práce. Občas však môžu nastať problémy a zložité problémy. A niekedy je situácia trochu vážna, s ktorou môžete skončiť poškodené slovo. V takomto prípade budete na získanie svojej práce potrebovať pokročilý nástroj na opravu.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls oprava a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S