Wörter im Text finden - Software

[Dominik83]

Danke, funktioniert! Ist ja fast wie Urlaub so zu arbeiten

Besteht denn die Möglichkeit alle Keywords untereinander einzufügen anstatt mit einer Leerzeile zu trennen?

Teilweise gibt es auch aneinander gereihte Keywords, wie "auto kaufen". Da sucht das Tool nach auto und kaufen an verschiedenen Stellen. Wäre das auch noch zu lösen?

In den Word-Optionen unter "Häufig verwendet" "Entwicklerregisterkarte in der Multifunktionsleiste anzeigen" aktivieren.
In dem "neuen" Menü "Entwicklertools" unter "Makros" einen beliebigen Makronamen eingeben (zweckmäßigerweise "CountKeywords") und auf "Erstellen" klicken. Dort hinein den Code kopieren. Speichern nicht vergessen! Mit dem grünen Pfeil nach rechts kannst Du das Makro starten.
Wenn das Makro erst einmal eingerichtet ist, lässt es sich auch über "Makros", "CountKeywords", "Ausführen" starten.
Komfortabler ist es, über die Word-Optionen unter "Anpassen" "Befehle auswählen" "Makros" das Makro in das rechte Fenster zu ziehen. Dann ist es in der Icon-Leiste oben immer präsent.

Hinweise finden sich auch hier unter "Schaltfläche verknüpfen" und "Symbol anpassen":
=> https://officewissen.net/schaltflaeche- ... einrichten

[WilliWusel]

Teilweise gibt es auch aneinander gereihte Keywords, wie "auto kaufen". Da sucht das Tool nach auto und kaufen an verschiedenen Stellen. Wäre das auch noch zu lösen?

Das war einfach: ich habe das Makro so modifiziert, dass Du das Trennzeichen selbst festlegen kannst, Zeile:
Trennzeichen = ","
Im Moment habe ich da ein Komma eingesetzt, Du kannst aber auch irgendein anderes Zeichen nehmen.

Besteht denn die Möglichkeit alle Keywords untereinander einzufügen anstatt mit einer Leerzeile zu trennen?

Du meinst Leerzeichen?
Das ließe sich wohl über ein Formular lösen, aber damit kenne ich mich nicht so gut aus. Mit für mich vertretbarem Zeitaufwand kann ich da leider nicht helfen.

Falls die Keywords absatzweise in einem Dokument stehen, kannst Du sie mit Suchen/Ersetzen in das gewünschte Format bringen:

Im Ersetzen-Dialog auf "Erweitern >>" klicken, dann "Sonderformat", "Absatzmarke" auswählen. In der Box "Suchen nach" steht dann "^p" (kannst Du auch direkt eingeben). Bei "Ersetzen durch" das gewünschte Trennzeichen eingeben, z.B. das Komma. In der entstandenen Zeichenkette bitte das letzte Trennzeichen löschen, so dass da z.B. steht:

Auto kaufen,Brötchen holen,in den Urlaub fahren

Groß-/Kleinschreibung spielt wie bisher keine Rolle.

Bitte das alte Makro durch das neue ersetzen:
Menü Entwicklertools, Makros, CountKeywords, Bearbeiten
Speichern nicht vergessen.

Sub CountKeywords()

Dim Keywords As String, Pos_Space As Long, Anzahl_Keywords As Long, i As Integer, iCount As Integer, Stat_Text As String, Trennzeichen As String
Dim Suchbegriffe() As String, Anz_Hits() As Integer

Trennzeichen = ","
Keywords = Trim(InputBox("Bitte hier die Keywords, durch Komma getrennt, eingeben:")) & Trennzeichen
Anzahl_Keywords = 0

' Eingabetext auseinandernehmen:
Do While Len(Keywords) > 0
Pos_Space = InStr(1, Keywords, Trennzeichen)
ReDim Preserve Suchbegriffe(Anzahl_Keywords + 1)
Suchbegriffe(Anzahl_Keywords + 1) = Left(Keywords, Pos_Space - 1)
Keywords = Right(Keywords, Len(Keywords) - Pos_Space)
Anzahl_Keywords = Anzahl_Keywords + 1
Loop

' Vorkommen zählen:
For i = 1 To Anzahl_Keywords
Selection.Find.ClearFormatting
iCount = 0
With ActiveDocument.Content.Find
.Text = Suchbegriffe(i)
.Forward = True
.MatchWholeWord = True
.MatchCase = False
Do While .Execute
iCount = iCount + 1
Loop
ReDim Preserve Anz_Hits(i)
Anz_Hits(i) = iCount
End With
Next

' Statistik ausgeben:
Stat_Text = "Anzahl Treffer:" & Chr(13) & Chr(13)
For i = 1 To Anzahl_Keywords
Stat_Text = Stat_Text & Suchbegriffe(i) & ": " & Anz_Hits(i) & Chr(13)
Next
MsgBox Stat_Text

End Sub

[Dominik83]

Vielen Dank nochmal!

Vielleicht kann ein anderer das Problem lösen:

Welcher Code fehlt, damit sämtliche Wörter untereinander ( https://s1.directupload.net/images/121211/rkqiplfg.png ) eingefügt werden können, anstatt wie es momentan ist, nebeneinander ( https://s1.directupload.net/images/121211/7ioue9ru.png)