3 Methoden zum Zählen der Anzahl der Wörter für Abschnitte in Ihrem Word-Dokument

In diesem Artikel gibt es drei Methoden, mit denen Sie die Anzahl der Wörter für Abschnitte in Ihrem Word-Dokument zählen können.

Es ist einfach, die Gesamtzahl der Wörter eines Dokuments zu ermitteln. Es gibt jedoch keine Funktion in Word, die uns die Anzahl der Wörter eines Abschnitts angibt. Angesichts der Tatsache, dass wir es vorziehen, Inhalte desselben Themas in einem Abschnitt zusammenzufassen, z. B. ein Kapitel zu organisieren, während wir ein Buch schreiben, müssen wir Problemumgehungen finden, um die Anzahl der Abschnitte zu ermitteln.   Im Folgenden finden Sie drei Ansätze, bei denen Sie ein Makro ausführen müssen.

Methode 1: Zählen Sie die Anzahl der Wörter für den aktuellen Abschnitt

1. Platzieren Sie den Cursor zunächst innerhalb des Zielbereichs.
2. Dann müssen Sie den VBA-Editor in Word öffnen. Klicken Sie auf "Entwickler" und dann auf den Befehl "Visual Basic". Wenn Sie "Developer" nicht in der Multifunktionsleiste finden, drücken Sie stattdessen "Alt + F11".
3. Klicken Sie anschließend in der linken Spalte auf "Normal".
4. Klicken Sie dann auf die Registerkarte "Einfügen".
5. Wählen Sie in diesem Dropdown-Menü "Modul".
6. Öffnen Sie das neue Modul per Doppelklick.
7. Fügen Sie nun im geöffneten Modul die folgenden Codes ein:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Klicken Sie abschließend auf "Ausführen" oder drücken Sie "F5", um Codes auszuführen.

Sie erhalten ein Meldungsfeld mit der Gesamtzahl der aktuellen Abschnitte, z. B.:

Methode 2: Zählen Sie die Anzahl der Wörter für einen bestimmten Abschnitt

Angenommen, Sie haben an einem Buch gearbeitet und jedes Kapitel als einzelnen Abschnitt festgelegt. Um zu wissen, wie viele Wörter Sie in einem Kapitel geschrieben haben, können Sie diese Methode verwenden.

1. Befolgen Sie die obigen Schritte, um ein Makro zu installieren und auszuführen.
2. Ersetzen Sie einfach das Makro durch dieses:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Wenn Sie es ausführen, wird ein Eingabefeld angezeigt. Geben Sie im Feld "Abschnittsnummer eingeben" die Abschnittsnummer ein und klicken Sie auf "OK", um fortzufahren.

Das Ergebnis wird in einem Meldungsfeld angezeigt.

Methode 3: Zählen Sie die Anzahl der Wörter für alle Abschnitte in einem Dokument

Wie der Untertitel andeutet, erhalten Sie auf diese Weise die Gesamtzahl der Wörter jedes Abschnitts in einem Dokument und listen sie in einem Meldungsfeld auf.

1. Öffnen Sie zunächst das Zieldokument.
2. Sie müssen jedoch die Schritte in Methode 1 wiederholen, um das Makro zu installieren und auszuführen.
3. Und diesmal ändern Sie mit diesem Makro:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Hier ist das mögliche Ergebnis:

Speichern Sie wertvolle Daten

Beim Umgang mit allen Arten von Dokumenten müssen Sie deren Sicherheit berücksichtigen. Da Sie nie sagen können, wann der nächste Datenverlust eintreten wird, wird empfohlen, wichtige Dateien zu sichern. Außerdem ist es immer gut, ein Werkzeug zu erhalten, das es kann doc wiederherstellen, wenn überhaupt.

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