2 snabba sätt att söka efter Word-dokument med specifikt antal sidor

I dagens artikel vill vi presentera två snabba sätt att söka efter Word-dokument med specifikt antal sidor.

Generellt finns det ett stort antal filer som lagras i en katalog. Dessutom kan det finnas olika typer av filer. Så vad händer om du behöver söka efter Word-dokument med specifikt antal sidor? Eller så glömmer du ett dokumentnamn men minns dess totala antal sidor.

Våra lösningar nedan leder dig till att söka efter Word-dokument med ett specifikt antal sidor.

Metod 1: Sök i Window Explorer

1. Klicka först på “Start”.
2. Klicka sedan på "Dator" för att öppna Windows Explorer. Eller om filutforskarikonen redan finns i aktivitetsfältet, klicka bara på den.
3. Gå sedan till disken och den specifika platsen där du håller alla filer.
4. Högerklicka nu på det tomma utrymmet på första raden.
5. Markera “Typ” och “Sidor”. Om de inte syns där, klicka på “Mer” längst ner på menyn.
6. I rutan "Välj information", markera rutorna "Sidor" och "Typ" och klicka på "OK".
7. Flytta sedan markören över "Typ" -kolumnen tills rullgardinsmenyn visas. Klicka på det.
8. Markera rutan "Microsoft Word-dokument". Du kan bara se att Word-dokument är tillgängliga. Se sedan kolumnen "Sidor" för att hitta dokumentet med specifikt antal sidor.

Metod 2: Kör Word Macro

1. Först och främst, tryck på "Alt + F11" för att starta VBA-editorn i Word.
2. Klicka sedan på "Normal" och klicka på "Infoga" i verktygsfältet.
3. Välj ”Modul” för att skapa en ny.
4. Dubbelklicka sedan för att öppna kodutrymmet till höger.
5. Klistra in följande makro där:

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. Klicka sedan på "Kör" -knappen eller tryck på "F5".
7. Nu finns det en inmatningsruta som uppmanar. Ange mappadressen i textrutan och glöm inte att lägga till "\" i slutet av strängen.
8. Klicka på “OK” för att gå till nästa steg.
9. I den andra rutan anger du ett nummer i textrutan. Numret anger den totala sidan i måldokumentet. Klicka på samma sätt på “OK”.

Det kommer att finnas ett dokument öppet i Word, med det fullständiga namnet på måldokumentet på det.

Åtgärda situationen i Word Collapse

Generellt är Word ett mäktigt verktyg för att bearbeta det dagliga arbetet. Men då och då kan problem och svåra problem uppstå. Och ibland är situationen lite svår som du kan sluta med skadat ord. I ett sådant scenario behöver du ett avancerat reparationsverktyg för att hämta ditt arbete.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls reparation och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com