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.
Våre løsninger nedenfor vil lede deg til å søke etter tarfå Word-dokumenter med spesifikt antall sider.
Metode 1: Søk i Windows Explorer
- Først klikker du "Start ”.
- Klikk deretter på "Datamaskin" for å åpne Windows Utforsker. Eller hvis filutforskerikonet allerede er på oppgavelinjen, klikker du på det.
- Gå deretter til disken og den spesifikke plasseringen der du oppbevarer alle filene.
- Høyreklikk nå på den tomme plassen på den første raden.
- Sjekk "Type" og "Sider". Hvis de ikke er synlige der, klikk "Mer" nederst i menyen.
- Åpne boksen "Velg detaljer", merk av for "Sider" og "Type" og klikk "OK".
- Flytt deretter markøren over "Type"-kolonnen til rullegardinknappen vises. Trykk på det.
- 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
- Først og fremstost, trykk "Alt+ F11" for å starte VBA-redigering i Word.
- Klikk deretter "Normal" og klikk "Sett inn" på verktøylinjen.
- Velg "Modul" for å opprette en ny.
- Dobbeltklikk deretter for å åpne kodeområdet til høyre.
- Lim inn følgende makro der:
Sub FindWordDocumentWithSpecificPageNumber() Dim lPageNumber As Long Dim lSpesificPageNumber 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 address("Folder mappeadressen("Folder mappen adresse("Folder the folder address", , "For eksempel:E:\testord\test\") lSpecificPageNumber = InputBox("Skriv inn sidenummeret du vil søke på", "Spesifikt sidenummer", "For eksempel:1") strFile = Dir(strFolder & " *.doc*", vbNormal) While strFile <> "" With objWordApplication .Documents.Open (strFolder & strFile) lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages) If lPageNumber = lSpecificPageNumber Then strActiveDocuDocName =DocList. Navn & 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 samsvarer med dokument.") End If End Sub
- Klikk deretter på "Kjør"-knappen eller trykk på "F5".
- Nå er det en inndataboks som spør. Skriv inn mappeadressen i tekstboksen og ikke glem å legge til "\" på slutten av strengen.
- Klikk "OK" for å gå til neste trinn.
- I den andre boksen skriver du inn et tall i tekstboksen. Tallet angir den totale siden av tarfå dokument. På samme måte klikker du på "OK".
Det vil være et dokument åpent i Word, med det fulle navnet på tarfå dokument 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
Legg igjen en kommentar