Im heutigen Beitrag freuen wir uns, Ihnen 2 effektive Methoden vorzustellen, mit denen Sie Tabellentexte aus der Wortzählungsstatistik ausschließen können.
Tabellen werden im Allgemeinen zum Speichern von Daten verwendet. Und Tabellen sind unser bester Freund bei der Veranschaulichung von Punkten bei der Arbeit an einem Dokument. Dann kann es etwas unangenehm werden, wenn es um die Anzahl der Wörter geht. Manchmal müssen wir nur die Anzahl der Wörter der Haupttexte ermitteln und nicht alle Daten in Tabellen. Es ist jedoch allen bekannt, dass Word standardmäßig alle Wörter in Ihrem Dokument zählt. Aus diesem Grund haben wir effiziente Mittel gefunden. Lesen Sie weiter, um mehr zu erfahren.
Methode 1: Wählen Sie Tabellen manuell aus und rechnen Sie selbst
Wenn es sich um ein kurzes Dokument mit nur einer oder zwei Tabellen handelt, ist es kein Problem, die Tabellen einzeln auszuwählen, indem Sie die Strg-Taste gedrückt halten. Bei diesem Ansatz wird die Gesamtzahl in ausgewählten Tabellen in der Statusleiste angezeigt, z. B. unten:
Wie Sie sehen, gibt es 2 Zahlen. Der erste bezieht sich auf die Anzahl der Wörter in ausgewählten Tabellen, während der zweite die Gesamtzahl der Wörter in Ihrem Dokument angibt. Verwenden Sie einfach die zweite Zahl, um die erste zu minus, um das Ergebnis zu erhalten.
Methode 2: Führen Sie VBA-Codes aus
Wie oben erwähnt, ist Methode 1 mühsam, wenn Sie eine große Anzahl von Tabellen im Dokument haben. Sie manuell auszuwählen ist definitiv nicht der ideale Weg. Stattdessen empfehlen wir Ihnen ein Makro, das alle Wörter zählt, diese jedoch in Tabellen und Beschriftungen ausschließt.
- Drücken Sie zunächst „Alt+ F11“, um den VBA-Editor in Word aufzurufen.
- Klicken Sie dann auf "Normal".
- Klicken Sie anschließend auf die Registerkarte "Einfügen".
- Und wählen Sie "Modul" im Dropdown-Menü der Registerkarte "Einfügen".
- Doppelklicken Sie auf das neue Modul, um den Codierungsbereich auf der rechten Seite zu öffnen.
- Fügen Sie nun dort das folgende Makro ein:
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
- Klicken Sie abschließend auf "Ausführen".
Wenn Sie das Makro ausführen, wird ein Meldungsfeld mit dem Zählergebnis angezeigt.
Mit Wortschäden umgehen
Wir verlassen uns so sehr auf Software wie Word, um die Arbeit täglich zu verarbeiten. Infolgedessen konnten wir es nicht ertragen, über die überwältigende Konsequenz eines Wortkorruption. Sie können sich verzweifelt fühlen, wenn Sie nicht über ein ausreichendes Werkzeug zur Reparatur von Dokumenten verfügen.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls beheben und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX