Mai cikkünkben 2 gyors módszert szeretnénk bemutatni, hogyan kereshet meghatározott oldalszámú Word dokumentumokat.
Általában egy könyvtárban nagyszámú fájl található. Sőt, különféle típusú fájlok lehetnek. Tehát mi van, ha meghatározott számú oldalas Word-dokumentumot kell keresnie? Vagy véletlenül elfelejt egy dokumentum nevét, de emlékszik a teljes oldalszámára.
Az alábbi megoldásaink segítségével meghatározott oldalszámú Word dokumentumokat kereshet.
1. módszer: Keresés a Window Explorerben
- Először is kattintson a „Start” gombra.
- Ezután kattintson a „Számítógép” elemre a Windows Intéző megnyitásához. Vagy ha a fájlkezelő ikon már a tálcán van, egyszerűen kattintson rá.
- Ezután lépjen a lemezre és arra a helyre, ahol az összes fájlt tárolja.
- Most kattintson jobb gombbal az első sorban lévő üres helyre.
- Jelölje be a „Típus” és az „Oldalak” pontot. Ha ott nem láthatók, kattintson a menü alján található „Tovább” gombra.
- A „Részletek kiválasztása” mezőben jelölje be az „Oldalak” és a „Típus” négyzeteket, majd kattintson az „OK” gombra.
- Ezután mozgassa a kurzort a „Típus” oszlop fölé, amíg a legördülő gomb meg nem jelenik. Kattints rá.
- Jelölje be a „Microsoft Word dokumentum” négyzetet. Láthatja, hogy csak a Word dokumentumok állnak rendelkezésre. Ezután tekintse meg az „Oldalak” oszlopot, hogy megkeresse a meghatározott számú oldalt tartalmazó dokumentumot.
2. módszer: Futtassa a Word makrót
- Először is, nyomd meg az „Alt+F11” billentyűkombinációt a VBA szerkesztő meghívásához a Wordben.
- Ezután kattintson a „Normál” gombra, majd kattintson a „Beszúrás” gombra az eszköztáron.
- Új modul létrehozásához válassza a „Modul” lehetőséget.
- Ezután kattintson duplán a kódolási terület megnyitásához a jobb oldalon.
- Illessze be a következő makrót:
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
- Ezután kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot.
- Most egy beviteli mező jelenik meg. Írja be a mappa címét a szövegmezőbe, és ne felejtse el hozzáadni a „\” karakterlánc végét.
- Kattintson az „OK” gombra a következő lépésre lépéshez.
- A második mezőbe írjon be egy számot a szövegmezőbe. A szám a céldokumentum teljes oldalszámát jelzi. Hasonlóképpen kattintson az „OK” gombra.
Megnyílik egy dokumentum a Wordben, rajta a céldokumentum teljes nevével.
Foglalkozzon a Word összeomlása helyzetével
Általában a Word egy hatalmas eszköz a napi munka feldolgozásához. Ennek ellenére időnként előfordulhatnak problémák és nehéz problémák. És néha a helyzet egy kicsit súlyos, ami a végén előfordulhat sérült szó. Ebben a forgatókönyvben egy fejlett javítóeszközre lesz szüksége a munkája visszanyeréséhez.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com