Lise arbeitet mit 50 kleinen Dokumenten, von denen viele weniger als eine Seite lang sind. Alle befinden sich in separaten Dateien (kein Master oder Unterdokumente). Sie möchte die Gesamtzahl der Wörter in allen Dateien wissen und fragt sich, ob es einen einfachen Weg gibt, die Anzahl zu ermitteln.

Eine Möglichkeit besteht darin, ein Add-In eines Drittanbieters zu verwenden, mit dem die Wortanzahl für Sie berechnet werden kann. Hier sind drei Vorschläge, die Sie möglicherweise überprüfen möchten:

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/ Total Assistant: http://www.surefiresoftware.com/totalassistant/

Wenn Sie lieber „Ihre eigenen rollen“ möchten, als sich auf die Lösung eines anderen zu verlassen, können Sie natürlich ein relativ einfaches Makro erstellen, das jede Datei in einem Ordner durchläuft und die Gesamtwortzahl berechnet.

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

Stellen Sie zur Verwendung des Makros sicher, dass Sie die Variable PathName so ändern, dass sie den Pfad zu dem Ordner widerspiegelt, der die Dokumente enthält, die Sie abgleichen möchten. (Die Pfadbezeichnung muss mit einem Backslash enden.) Wenn Sie das Makro ausführen, wird die Wortanzahl in einem Meldungsfeld angezeigt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13278) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: