2 raske måter å søke etter Word-dokumenter med et spesifikt antall sider

I dagens artikkel vil vi presentere deg 2 raske måter å søke etter Word-dokumenter med et spesifikt antall sider.

Vanligvis er det et stort antall filer lagret under én katalog. Dessuten kan det være ulike typer filer. Så hva om du trenger å søke etter et Word-dokument med et spesifikt antall sider? Eller du glemmer et dokumentnavn, men husker dets totale antall sider.

Løsningene våre nedenfor vil lede deg til å søke etter Word-dokumenter med et bestemt antall sider.

Metode 1: Søk i Windows Explorer

1. Først klikker du på «Start».
2. Klikk deretter på "Datamaskin" for å åpne Windows Utforsker. Eller hvis filutforskerikonet allerede er på oppgavelinjen, klikker du på det.
3. Gå deretter til disken og den spesifikke plasseringen der du oppbevarer alle filene.
4. Høyreklikk nå på den tomme plassen på den første raden.
5. Sjekk "Type" og "Sider". Hvis de ikke er synlige der, klikk "Mer" nederst i menyen.
6. Åpne boksen "Velg detaljer", merk av for "Sider" og "Type" og klikk "OK".
7. Flytt deretter markøren over "Type"-kolonnen til rullegardinknappen vises. Trykk på det.
8. Kryss av i "Microsoft Word Document"-boksen. Du kan se at bare Word-dokumenter er tilgjengelige. Se deretter "Sider"-kolonnen for å finne dokumentet med et spesifikt antall sider.

Metode 2: Kjør Word Macro

1. Først og fremst, trykk «Alt+F11» for å starte VBA-editoren i Word.
2. Klikk deretter "Normal" og klikk "Sett inn" på verktøylinjen.
3. Velg "Modul" for å opprette en ny.
4. Dobbeltklikk deretter for å åpne kodeområdet til høyre.
5. Lim inn følgende makro der:

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. Klikk deretter på "Kjør"-knappen eller trykk på "F5".
7. Nå er det en inndataboks som spør. Skriv inn mappeadressen i tekstboksen og ikke glem å legge til "\" på slutten av strengen.
8. Klikk "OK" for å gå til neste trinn.
9. I den andre boksen skriver du inn et tall i tekstboksen. Tallet angir det totale sidetallet i måldokumentet. Klikk på samme måte på «OK».

Det vil være et dokument åpent i Word, med hele navnet på måldokumentet på det.

Ta tak i situasjonen med ordkollaps

Generelt er Word et mektig verktøy for å behandle daglig arbeid. Men nå og da kan problemer og vanskelige problemer oppstå. Og noen ganger er situasjonen litt alvorlig som du kan ende opp med skadet ord. I et slikt scenario vil du trenge et avansert reparasjonsverktøy for å hente arbeidet ditt.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls reparasjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med