W dzisiejszym artykule chcielibyśmy przedstawić Państwu 2 szybkie sposoby wyszukiwania dokumentów Word o określonej liczbie stron.
Ogólnie rzecz biorąc, istnieje duża liczba plików przechowywanych w jednym katalogu. Co więcej, mogą istnieć różne typy plików. A co, jeśli chcesz wyszukać dokumenty Word o określonej liczbie stron? Lub zdarzyło Ci się zapomnieć nazwę dokumentu, ale pamiętasz całkowitą liczbę stron.
Nasze rozwiązania przedstawione poniżej pomogą Ci wyszukać dokumenty Word zawierające określoną liczbę stron.
Metoda 1: Wyszukaj w Eksploratorze Windows
- Najpierw kliknij „Start”.
- Następnie kliknij „Komputer”, aby otworzyć Eksplorator Windows. Lub jeśli ikona eksploratora plików znajduje się już na pasku zadań, po prostu ją kliknij.
- Następnie przejdź do dysku i określonej lokalizacji, w której przechowujesz wszystkie pliki.
- Teraz kliknij prawym przyciskiem myszy puste miejsce w pierwszym rzędzie.
- Sprawdź „Typ” i „Strony”. Jeśli nie są tam widoczne, kliknij „Więcej” u dołu menu.
- W otwartym polu „Wybierz szczegóły” zaznacz pola „Strony” i „Typ” i kliknij „OK”.
- Następnie przesuń kursor nad kolumnę „Typ”, aż pojawi się przycisk rozwijany. Kliknij to.
- Zaznacz pole „Dokument Microsoft Word”. Możesz zobaczyć, że dostępne są tylko dokumenty programu Word. Następnie przejrzyj kolumnę „Strony”, aby znaleźć dokument o określonej liczbie stron.
Metoda 2: Uruchom makro programu Word
- Przede wszystkim naciśnij „Alt+F11”, aby wywołać edytor VBA w programie Word.
- Następnie kliknij „Normalny” i kliknij „Wstaw” na pasku narzędzi.
- Wybierz „Moduł”, aby utworzyć nowy.
- Następnie kliknij dwukrotnie, aby otworzyć miejsce na kodowanie po prawej stronie.
- Wklej tam następujące makro:
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
- Następnie kliknij przycisk „Uruchom” lub naciśnij „F5”.
- Teraz pojawi się okno wprowadzania. Wprowadź adres folderu w polu tekstowym i nie zapomnij dodać „\” na końcu ciągu.
- Kliknij „OK”, aby przejść do następnego kroku.
- W drugim polu wpisz liczbę w odpowiednim polu tekstowym. Liczba ta wskazuje całkowitą liczbę stron dokumentu docelowego. Analogicznie kliknij „OK”.
W programie Word zostanie otwarty dokument z pełną nazwą dokumentu docelowego.
Zajmij się trudną sytuacją upadku słowa
Ogólnie rzecz biorąc, Word jest potężnym narzędziem do przetwarzania codziennej pracy. Jednak od czasu do czasu mogą pojawić się problemy i trudne kwestie. A czasami sytuacja jest trochę ciężka, z którą możesz skończyć uszkodzone słowo. W takim scenariuszu będziesz potrzebować zaawansowanego narzędzia do naprawy, aby odzyskać swoją pracę.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com