Hallo liebe Community,
nachdem ich seit einigen Tagen nicht weiterkomme, wende ich mcih an euch.
Hintergrund:
Ich möchte ein automatisiertes Such-Kopier-Tool basteln, welches mehrere Wörter (siehe Datei, alle Wörter ab Spalte C15) nacheinander in Word sucht und falls es findet, einen Textausschnitt in Excel einfügt.
Ziel:
Pro Bereicht habe ich einen Reiter mit dem gefundenen Text und weitere Informationen. Er soll nur nach ganzen Worten suchen, nicht auf Klein- und Großschreibung achten und wenn es geht Punktuation (und am liebsten Leerzeichen) ignorieren.
Beispiel für Suchwort: "Richtig"
Folgende Wörter soll der Code beachten: "richtig", "Richtig", "Richtig.", "RICHTIG!", ("r i c h t i g")
Folgende Wörter soll der Coden NICHT beachten: "richtige", "Richtigstellung"
Jetziger Stand und Problem:
Alles klappt, bis auf dass die Suchfunktion kaum akkurat ist. Bedeutet, dass der Code manche Wörter nicht findet und folglich nciht rauskopiert, die in der Word Datei enhalten sind. Ich habe mich auch mit der Einstellung der zahlreichen Funktionen von Find.Execute auseinander gesetzt. Jedoch bin ich am verzweifeln. Ich kann nicht erkennen, ob es an den Einstellungen der Funktionen liegt, dass er mehrere Wörter sind oder irgendetwas mit der Schleife falsch ist.
Über jeden Tip freue ich mich sehr. Anbei die Datei und ein Beispielsdokument.
Dateien: und Code: https://www.transferxl.com/download/08j50JrcVZw6L0
Code: https://www.herber.de/bbs/user/152639.txt