Hallo zusammen,
mit welcher Methode kann ich in einem längeren Word-Dokument (MS-Word 2003) ein immer wieder kehrendes Wort, z.B. „Fritz“ zählen lassen?
Wer kann mir helfen?
Vielen Dank schon mal im Voraus!
Lenny
Hallo Lenny,
in Word 2000 ist mir die Funktion nicht bekannt (oder ich hab sie noch nicht gefunden). Ob es sowas in Word 2003 gibt, das weiß ich nicht. Einmal ums Eck denken liefert jedoch folgende Lösung: Gehe auf Bearbeiten -> Ersetzen. Ersetze „Fritz“ durch „Fratz“ im ganzen Text. Es wird dann angezeigt, wieviele Ersetzungen vorgenommen wurden. Danach kannst du den Vorgang wieder rückgängig machen.
Viele Grüße
Eva
Hallo Lenny,
folgendes Makro zählt ein Wort im Haupttext (nicht in Kopf-/Fußzeilen, nicht in Textfeldern)des aktiven Dokuments. Makro in ein Modul der Normal.Dot kopieren. Dann steht es immer zur Verfügung.
Sub Wort\_zaehlen()
' Zählt wie oft ein Wort im Haupttext des aktiven Dokuments vorkommt
' Groß-/Kleinschreibung wird beim Zählen nicht unterschieden
' hierzu ggf. MatchCase von "False" auf "True" setzen
Dim Wort As String, Anzahl As Integer, BoxTitel As String
BoxTitel = "Wort in Dokument zählen"
Wort = InputBox("Zu zählendes Wort ?", BoxTitel, "Text")
If Wort = "" Then Exit Sub
Anzahl = 0
With ActiveDocument.Content.Find
.ClearFormatting
.Text = Wort
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute(FindText:=Wort) = True
Anzahl = Anzahl + 1
Loop
End With
Ausgabe = MsgBox(Wort & " " & Anzahl & " mal", vbOKOnly, BoxTitel)
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo ihr zwei,
Einmal ums Eck denken liefert jedoch folgende
Lösung: Gehe auf Bearbeiten -> Ersetzen. Ersetze „Fritz“
durch „Fratz“ im ganzen Text. Es wird dann angezeigt, wieviele
Ersetzungen vorgenommen wurden. Danach kannst du den Vorgang
wieder rückgängig machen.
das geht auch einfacher, nämlich mit Bearbeiten -> Ersetzen. Ersetze „Fritz“ durch „Fritz“ im ganzen Text.
dann braucht man nichts rückgängig zu machen. Word prüft (bis 2002 zumindestens) nicht, ob wirkliche Änderungen beim Ersetzen durchgeführt werden.
Gruß, Karin
1 „Gefällt mir“
Hallo Karin,
vielen Dank - es funktioniert! Und es ist die beste Lösung.
Lenny