2 snelle manieren om naar Word-documenten te zoeken met een specifiek aantal pagina's

In het artikel van vandaag willen we u 2 snelle manieren presenteren om naar Word-documenten met een specifiek aantal pagina's te zoeken.

Over het algemeen is er een groot aantal bestanden opgeslagen in één map. Bovendien kunnen er verschillende soorten bestanden zijn. Dus, wat als u moet zoeken naar Word-documenten met een specifiek aantal pagina's? Of u vergeet de naam van een document, maar onthoud het totale aantal pagina's.

Met de onderstaande oplossingen kunt u zoeken naar Word-documenten met een specifiek aantal pagina's.

Methode 1: zoeken in Window Explorer

1. Klik eerst op "Start".
2. Klik vervolgens op "Computer" om de Windows Verkenner te openen. Of als het bestandsverkenner-pictogram al op uw taakbalk staat, klikt u erop.
3. Ga vervolgens naar de schijf en de specifieke locatie waar u alle bestanden bewaart.
4. Klik nu met de rechtermuisknop op de lege ruimte op de eerste rij.
5. Controleer "Type" en "Pagina's". Als ze daar niet zichtbaar zijn, klik dan op "Meer" onderaan het menu.
6. In "Kies Details" vak open, vink "Pagina's" en "Type" vakjes aan en klik op "OK".
7. Beweeg vervolgens de cursor over de kolom "Type" totdat de vervolgkeuzeknop wordt weergegeven. Klik Het.
8. Vink het vakje "Microsoft Word-document" aan. U kunt zien dat alleen Word-documenten beschikbaar zijn. Zie vervolgens de kolom "Pagina's" om het document met een specifiek aantal pagina's te zoeken.

Methode 2: Voer Word Macro uit

1. Druk allereerst op "Alt+F11" om de VBA-editor in Word te openen.
2. Klik vervolgens op "Normaal" en klik op "Invoegen" op de werkbalk.
3. Kies "Module" om een ​​nieuwe aan te maken.
4. Dubbelklik vervolgens om de coderingsruimte aan de rechterkant te openen.
5. Plak daar de volgende macro:

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. Klik vervolgens op de knop "Uitvoeren" of druk op "F5".
7. Nu is er een invoervak ​​dat wordt gevraagd. Typ het mapadres in het tekstvak en vergeet niet "\" aan het einde van de string toe te voegen.
8. Klik op "OK" om naar de volgende stap te gaan.
9. Voer in het tweede vak een getal in. Dit getal geeft het totale aantal pagina's van het betreffende document aan. Klik vervolgens op "OK".

Er wordt een document in Word geopend met de volledige naam van het doeldocument erin.

Pak de benarde situatie van Word Collapse aan

Over het algemeen is Word een geweldig hulpmiddel om het dagelijkse werk te verwerken. Toch kunnen er af en toe problemen en moeilijke kwesties optreden. En soms is de situatie een beetje ernstig waarmee u kunt eindigen beschadigd woord. In een dergelijk scenario heeft u een geavanceerd reparatieprogramma nodig om uw werk op te halen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls reparatie en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com