Im heutigen Artikel möchten wir Ihnen zwei schnelle Möglichkeiten zur Suche nach Word-Dokumenten mit einer bestimmten Anzahl von Seiten vorstellen.
Im Allgemeinen ist eine große Anzahl von Dateien in einem Verzeichnis gespeichert. Darüber hinaus kann es verschiedene Dateitypen geben. Was ist, wenn Sie nach Word-Dokumenten mit einer bestimmten Anzahl von Seiten suchen müssen? Oder Sie vergessen zufällig einen Dokumentnamen, merken sich aber die Gesamtzahl der Seiten.
Unsere unten aufgeführten Lösungen helfen Ihnen, gezielt nach Word-Dokumenten mit einer bestimmten Seitenzahl zu suchen.
Methode 1: Suche im Fenster-Explorer
- Klicken Sie zunächst auf „Start“.
- Klicken Sie dann auf "Computer", um den Windows Explorer zu öffnen. Oder wenn sich das Datei-Explorer-Symbol bereits in Ihrer Taskleiste befindet, klicken Sie einfach darauf.
- Wechseln Sie als Nächstes zur Festplatte und zu dem Speicherort, an dem Sie alle Dateien aufbewahren.
- Klicken Sie nun mit der rechten Maustaste auf die leere Stelle in der ersten Zeile.
- Aktivieren Sie "Typ" und "Seiten". Wenn sie dort nicht sichtbar sind, klicken Sie unten im Menü auf "Mehr".
- Aktivieren Sie im geöffneten Feld "Details auswählen" die Kontrollkästchen "Seiten" und "Typ" und klicken Sie auf "OK".
- Bewegen Sie den Mauszeiger über die Spalte „Typ“, bis die Dropdown-Schaltfläche angezeigt wird. Klick es.
- Aktivieren Sie das Kontrollkästchen "Microsoft Word-Dokument". Sie können sehen, dass nur Word-Dokumente verfügbar sind. In der Spalte "Seiten" finden Sie das Dokument mit einer bestimmten Anzahl von Seiten.
Methode 2: Führen Sie das Word-Makro aus
- Drücken Sie zunächst „Alt+F11“, um den VBA-Editor in Word aufzurufen.
- Klicken Sie anschließend auf "Normal" und dann auf "Einfügen" in der Symbolleiste.
- Wählen Sie "Modul", um ein neues zu erstellen.
- Doppelklicken Sie dann, um den Codierungsbereich auf der rechten Seite zu öffnen.
- Fügen Sie dort das folgende Makro ein:
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
- Klicken Sie anschließend auf die Schaltfläche "Ausführen" oder drücken Sie "F5".
- Jetzt wird ein Eingabefeld angezeigt. Geben Sie die Ordneradresse in das Textfeld ein und vergessen Sie nicht, am Ende der Zeichenfolge "\" hinzuzufügen.
- Klicken Sie auf "OK", um zum nächsten Schritt zu gelangen.
- Geben Sie im zweiten Feld eine Zahl in das Textfeld ein. Diese Zahl gibt die Gesamtseitenzahl des Zieldokuments an. Klicken Sie anschließend auf „OK“.
Es wird ein Word-Dokument geöffnet sein, das den vollständigen Namen des Zieldokuments enthält.
Adressieren Sie die Notlage des Wortkollapses
Im Allgemeinen ist Word ein mächtiges Werkzeug, um die tägliche Arbeit zu verarbeiten. Ab und zu können jedoch Probleme und schwierige Probleme auftreten. Und manchmal ist die Situation ein bisschen ernst, mit der Sie enden können beschädigtes Wort. In einem solchen Szenario benötigen Sie ein erweitertes Reparaturwerkzeug, um Ihre Arbeit abzurufen.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls reparieren und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX







