2 rychlé způsoby vyhledávání dokumentů aplikace Word s konkrétním počtem stránek

V dnešním článku bychom vám rádi představili 2 rychlé způsoby vyhledávání dokumentů Wordu s konkrétním počtem stránek.

Obecně platí, že v jednom adresáři je uloženo velké množství souborů. Navíc mohou existovat různé typy souborů. Co když tedy potřebujete vyhledat dokumenty aplikace Word s konkrétním počtem stránek? Nebo se stane, že zapomenete název dokumentu, ale pamatujete si jeho celkový počet stran.

Naše níže uvedená řešení vás povedou k vyhledávání cílových dokumentů Word s konkrétním počtem stránek.

Metoda 1: Vyhledávání v Průzkumníku Windows

1. Nejprve klikněte na tlačítko „Start“.
2. Poté kliknutím na „Počítač“ otevřete Průzkumníka Windows. Nebo pokud je ikona průzkumníka souborů již na hlavním panelu, stačí na ni kliknout.
3. Dále přejděte na disk a konkrétní umístění, kde máte uloženy všechny soubory.
4. Nyní klikněte pravým tlačítkem na prázdné místo v prvním řádku.
5. Zkontrolujte „Typ“ a „Stránky“. Pokud tam nejsou vidět, klikněte na „Více“ v dolní části nabídky.
6. V otevřeném poli „Vybrat podrobnosti“ zaškrtněte políčka „Stránky“ a „Typ“ a klikněte na „OK“.
7. Poté přesuňte kurzor na sloupec „Typ“, dokud se nezobrazí rozbalovací tlačítko. Klikněte na něj.
8. Zaškrtněte políčko „Dokument aplikace Microsoft Word“. Můžete vidět, že jsou k dispozici pouze dokumenty aplikace Word. Poté ve sloupci „Stránky“ vyhledejte dokument s konkrétním počtem stránek.

Metoda 2: Spusťte makro aplikace Word

1. Nejprve stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA ve Wordu.
2. Dále klikněte na „Normální“ a na panelu nástrojů klikněte na „Vložit“.
3. Zvolte „Modul“ pro vytvoření nového.
4. Poté dvojitým kliknutím otevřete prostor pro kódování na pravé straně.
5. Vložte tam následující 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. Dále klikněte na tlačítko „Spustit“ nebo stiskněte „F5“.
7. Nyní se zobrazí vstupní pole. Do textového pole zadejte adresu složky a na konec řetězce nezapomeňte přidat „\“.
8. Klepnutím na „OK“ přejděte k dalšímu kroku.
9. Do druhého textového pole zadejte číslo. Číslo udává celkový počet stránek cílového dokumentu. Podobně klikněte na tlačítko „OK“.

V aplikaci Word se otevře dokument s celým názvem cílového dokumentu.

Vyřešte nepříjemnou situaci Word Collapse

Word je obecně mocný nástroj pro zpracování každodenní práce. Přesto se tu a tam mohou objevit problémy a složité problémy. A někdy je situace trochu vážná, že můžete skončit poškozené slovo. V takovém scénáři budete potřebovat pokročilý nástroj pro opravu, abyste získali svou práci.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls oprava a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com