W tym artykule pokażemy 2 szybkie i skuteczne sposoby zliczania całkowitej liczby stron i słów w wielu dokumentach Word.
Od czasu do czasu, pracując nad długim dokumentem, dzielimy zawartość na kilka plików Word, na przykład umieszczając różne rozdziały w wielu dokumentach. Wtedy, jeśli chodzi o policzenie całkowitej liczby stron i słów, może to być trochę męczące, ponieważ musisz otwierać każdy dokument i sprawdzać informacje.
Dlatego podajemy 2 szybkie metody, które pomogą Ci zaoszczędzić cenny czas.
Metoda 1: Sprawdź szczegóły w folderze plików
W tekście podamy przykład w środowisku Windows 7.
- Po pierwsze, uporządkuj wszystkie dokumenty do sprawdzenia w jednym folderze plików.
- Następnie otwórz folder plików i kliknij przycisk „Więcej opcji” obok „Zmień widok”.
- Następnie kliknij „Szczegóły”.
- Teraz kliknij prawym przyciskiem myszy wiersz nagłówka i wybierz „Więcej”.
- W oknie dialogowym „Wybierz szczegóły” zaznacz pola „Strony” i „Liczba słów”.
- Następnie kliknij „OK”.
Teraz pojawią się 2 nowe kolumny, zawierające strony i słowa każdego dokumentu. Wystarczy dodać te liczby do siebie.
Jednak ta metoda podaje tylko przybliżoną liczbę słów w każdym pliku. Tak więc, aby uzyskać dokładniejszą liczbę, możesz wybrać metodę 2.
Metoda 2: Utwórz makro
- Podobnie, najpierw umieść wszystkie dokumenty docelowe w jednym folderze.
- Następnie otwórz Word i kliknij zakładkę „Developer”.
- Następnie kliknij „Visual Basic”, aby otworzyć edytor VBA. Możesz też po prostu nacisnąć „Alt + F11”.
- Teraz kliknij „Normalne” i „Wstaw”.
- Następnie wybierz „Moduł”.
- Następnie kliknij dwukrotnie nowy moduł i wklej następujące kody w polu edycji:
Sub GetAllPageNumbers()
Dim objWordApplication As Word.Application
Dim nPageNumber As Long
Dim nWordNumber As Long
Dim objFile As Variant
Dim objFileSystem As Object
Dim objFolders As Object
nPageNumber = 0
Set objWordApplication = New Word.Application
Set objFileSystem = CreateObject("scripting.filesystemobject")
Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")
For Each objFile In objFolders.Files
' Only process non-hidden files
If (objFile.Attributes And 2) = 0 Then
With objWordApplication
.Documents.Open (objFile)
nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
.ActiveDocument.Close (False)
End With
End If
Next objFile
MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)
Set objFile = Nothing
Set objFileSystem = Nothing
Set objFolders = Nothing
Set objWordApplication = Nothing
End Sub
- Na koniec kliknij „Uruchom”. Następnie zostaniesz powitany przez skrzynkę wiadomości, wskazującą numer strony i wszystkie słowa, takie jak poniżej:
Uwaga: „C: \ Users \ Test \ Desktop \ files” odnosi się do lokalizacji folderu plików.
Uważaj na korupcję dokumentów
Ponieważ każdego dnia mamy do czynienia z wszelkiego rodzaju zgłoszeniami, zaleca się tworzenie kopii zapasowych niektórych krytycznych plików na wypadek ich uszkodzenia, ponieważ kopia zapasowa jest zawsze istotną częścią sieci bezpieczeństwa, która chroni integralność plików. Jednak faktem jest, że kopie zapasowe mogą również zawieść ofiarą korupcji. I wtedy będziesz potrzebować wybitnego uszkodzone narzędzie do odzyskiwania plików programu Word
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym xlsx narzędzie do naprawy problemów z danymi i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com