Juhu es klappt. Vielen, vielen Dank.
Liebe Grüße
Sabine
Holger schrieb am 07.05.2009 15:45:29:
Hallo Sabine,
wenn es das ist, was ich vermute, hatte ich damals noch E-Mail-Verkehr mit Veronique. Dort machte ich ihr einen weiteren Vorschlag, da ich erfuhr, dass sie stets nach denselben Begriffen suchen wollte. Um nur nach ganzen Wörtern zu suchen, muss im Find-Befehl "MatchWholeWord:=true" ergänzt werden (habe ich unten gemacht). Ich schrieb damals:
Ich empfehle dir, in Word ein Dokument anzulegen, in dem du deine Begriffe auflistest und das du als "Nur Text"-Dokument abspeicherst. Jeder Suchbegriff muss in einem eigenen Absatz stehen. Du kannst die Begriffe in dieser Datei pflegen, indem du sie öffnest, bearbeitest, ggf. sortierst und wieder speicherst. Das zu untersuchende Dokument muss das aktive Dokument sein, wenn du das Makro startest. Das Ergebnis wird in einem neuen Dokument ausgegeben.
Den Speicherort und den Namen der Datei muss du in die Zeile
Datei = "c:\....."
einsetzen. Die Anführungszeichen sind wichtig. Das Zeichen "\" erhälst du mit der Tastenkombination "AltGr" und "ß".
Sub Anzahl_Begriffe()
Dim AdC, Anzahl, b, fl, aText, Datei
Datei = "c:\dokumente und einstellungen\veronique...\eigene dateien\...\suchbegriff.txt"
fl = FreeFile
aText = ""
Open Datei For Input As #fl
Do Until EOF(fl) = True
Line Input #fl, b
Anzahl = 0
Set AdC = ActiveDocument.Content
Selection.HomeKey unit:=wdStory
Do
AdC.Find.Execute FindText:=b, Forward:=True, MatchWholeWord:=true
If AdC.Find.Found = True Then Anzahl = Anzahl + 1
Loop Until AdC.Find.Found = False
aText = aText + b + vbTab + CStr(Anzahl) + vbCrLf
Loop
Close 1
Documents.Add
Selection.TypeText Text:=aText
End Sub
Vielleicht kannst du ja aus beiden Ansätzen das Passende für dich xtrahieren.
Gruß
Holger
Sabine schrieb am 06.05.2009 15:58:43:
Hallo,
habe hier im Forum ein Tool von Holger zum zählen von Begriffen in Word gefunden. Wenn es nicht zu viel Mühe macht, bräuchte ich es mit folgenden Modifikationen:
Ist ein Begriff Teil eines anderen Wortes, soll er nur gezählt werden, wenn er für sich allein steht, z.B. schwer in Schwert (dies ist nämlich die Achillesferse des bisherigen Makros), also nur in exakter Schreibweise.
Ich verwende feste Begriffe die ich täglich aus eingehenden Word-Dokumenten (bisher mühsam von Hand heraus zählen) muss.
Ist es möglich diese Begriffe zu hinterlegen und beispielsweise per Knopfdruck aus einem geöffneten Word-Dokument herauszulesen?
Ist es möglich die Begriffe anschließend in einer Excel-Tabelle mit der je Begriff und Dokument gezählten Anzahl zu speichern? Die Reihenfolge soll nicht alphabetisch sein, sondern so wie die Begriffe hinterlegt wurden.
Ich besitze nur Grundkenntnisse in Excel-VBA.
Wäre toll, wenn mir jemand helfen könnte. Vielen Dank im Voraus.
Sabine
|