W dzisiejszym wpisie z przyjemnością podzielimy się z Wami dwiema skutecznymi metodami wykluczania tekstów tabelarycznych ze statystyk liczby słów.
Tabele są zwykle używane do przechowywania danych. A tabele są naszym najlepszym przyjacielem w ilustrowaniu punktów podczas pracy nad dokumentem. Wtedy może być trochę niezręcznie, gdy w grę wchodzi liczenie słów. Czasami potrzebujemy po prostu uzyskać liczbę słów głównych tekstów, a nie wszystkie dane w tabelach. Jednak wszyscy wiedzą, że Word domyślnie liczy wszystkie słowa w twoim dokumencie. Z tego powodu wymyśliliśmy skuteczne środki. Czytaj dalej, aby dowiedzieć się więcej.
Metoda 1: Wybierz tabele ręcznie i wykonaj obliczenia samodzielnie
Jeśli jest to krótki dokument zawierający tylko jedną lub dwie tabele, nie ma problemu z wybieraniem tabel jedna po drugiej, przytrzymując klawisz „Ctrl”. W tym podejściu całkowita liczba w wybranych tabelach będzie widoczna na pasku stanu, na przykład poniżej:
Jak widać są 2 liczby. Pierwsza odnosi się do liczby słów w wybranych tabelach, a druga do całkowitej liczby słów w twoim dokumencie. Po prostu użyj drugiej liczby, aby odjąć pierwszą, aby uzyskać wynik.
Metoda 2: Uruchom kody VBA
Jak wspomniano powyżej, metoda 1 będzie nużąca, jeśli masz dużą liczbę tabel w dokumencie. Ręczne wybieranie ich zdecydowanie nie jest idealnym sposobem. Zamiast tego polecamy makro, które policzy wszystkie słowa, ale wykluczy je z tabel i podpisów.
- Przede wszystkim naciśnij „Alt+F11”, aby wywołać edytor VBA w programie Word.
- Następnie kliknij „Normalny”.
- Następnie kliknij zakładkę „Wstaw”.
- I wybierz „Moduł” z rozwijanego menu zakładki „Wstaw”.
- Kliknij dwukrotnie nowy moduł, aby otworzyć obszar kodowania po prawej stronie.
- Teraz wklej tam następujące makro:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Na koniec kliknij „Uruchom”.
Uruchomienie makra powinno wyświetlić okno komunikatu, pokazujące wynik liczenia.
Zajmij się uszkodzeniami słownymi
W codziennym przetwarzaniu pracy tak bardzo polegamy na oprogramowaniu, takim jak Word. W rezultacie nie mogliśmy znieść myśli o przytłaczających konsekwencjach posiadania Zepsucie słów. Możesz czuć się zdesperowany, jeśli nie masz wystarczającego narzędzia do naprawy dokumentów.
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