Office: (Office 2010) Mit Access mehrere Word-Dokumente nach bestimmten Zeichenfolgen durchsuchen

Hallo Leute,
möchte folgende Idee umsetzen:

In einer Tabelle von Access möchte ich mehrere Zeichenfolgen untereinander eingeben z.b.:
1.Zeile MT-2011-3789
2.Zeile MT-2010-467
usw.

Nun habe ich einen Ordner mit mehreren Unterordnern, wo verschiedene Word-Dokumente liegen. Diese sollen alle durchsucht werden.

Also es soll folgendermaßen ablaufen.

1. Zeile MT-2011-3789 -> Aktuellstes Dokument öffnen und durchsuchen, Zeichenfolge gefunden = Speicher den Namen des Dokuments in die Zeile neben der Zeichenfolge, Zeichenfolge nicht gefunden = Nächstes Dokument öffnen und durchsuchen usw.
2.Zeile das gleiche und mit den darauffolgenden Zeilen auch

Ich hätte das auch gerne mit Excel gelöst, aber da ich dann nach der fertigen Suche die Liste nach den abgespeicherten Namen der Word-Dokumente sortieren muss, stimmen die Werte ja nicht überein.

Kann man meine Idee so wie ich das möchte umsetzen?

Einfacher und schneller würde die Suche laufen, wenn man das aktuellste Dokument öffnet und dann alle Zeichenfolgen durchgeht und dann bei erfolgreicher Suche den Namen des Dokuments abspeichert. Und dann das nächste Dokument öffnet und die übrigen Zeichenfolgen durchgeht usw.
Nur reichen meine Kenntnisse nicht aus, wie ich Access verklicker, nur die restlichen Zeichenfolgen auszuwählen......

:)

 

Ich würde einfach die Worddokumente so wie sie kommen durchlaufen, pro Dokument die Stichwortliste durchgehen und Dokumentname und gefundenes Stichwort in eine Tabelle schreiben. Das geht sowohl in Access als auch in Excel, sortieren kann man auch in Excel.

 

Also das ich ein Dokument öffne, das habe ich hinbekommen. Aber ich möchte ja, das alle Dokumente im Ordner geöffnet werden.
Aber eigentlich möchte ich ja, das die Dokumente nur durchsucht werden. Die brauchen nicht geöffnet zu werden. Aber ich habe im Internet nichts brauchbares zum Durchsuchen gefunden.

Code:

Edit:

Okay hab was gefunden aber ich stehe wie schon vorher vor dem Problem, das er mir Word As Word.Application nicht kompilieren möchte und einen Fehler anzeigt: Benutzerdefinierter Typ nicht definiert

Code:

 

Hi,

du wirst da einen Verweis auf Word brauchen: im VBA-Editor Extars/verweise wählen, da dann Microsoft Word in deiner Version anklicken.

 

ah ja danke, daran hab ich überhaupt nicht gedacht *Smilie

So jetzt kommt keine Fehler Meldung mehr aber der Code funktioniert nicht
habe ihn etwas geändert um den Fehler finden zu können:

Code:

Die Datei wird im Hintergrund geöffnet und dann wird mir 13mal die MsgBox ("MT-2011-3789 NICHT GEFUNDEN") angezeigt und die Datei wird wieder geschlossen.
Aber in der Datei steht MT-2011-3789
Dies ist ihr Inhalt:
Bla bla

CVE-2011-1485
Bla bla

 

Hi,

du durchsuchst jedes Wort. Es genügt, wenn der gesuchte Begriff auch nur ein einziges Mal auftaucht. Damit ist das Dokument schon "eingetütet", und die Schleife kann mit Exit For verlassen werden.

"Negativmeldungen" sind hingegen ziemlich unnütz. Und Mehrfachpositivmeldungen auch.

Code:

Ich bin übrigens nicht sicher, ob ein Begriff, der Bindestriche enhält, als ein Wort erkannt wird. Teste es doch vorher mal mit einem Wort "am Stück". Wenn das klappt, machen wir uns weitere Gedanken.

 

Ah danke ich werde es sofort ausprobieren, versuche gerade aus zwei Codes einen zu machen

1.Code den kennen wir ja schon
Code:

2.Code ist neu und gibt alle Dateien mit ihren Pfaden im Ordner an

Code:

Und nun das was ich daraus gebastelt habe:

Code:

Jetzt meckert er das die Typen unverträglich sind
Set Doc = Word.Documents.Open(file)

 

so habe deinen Code mal mit meinem alten getestet:

Code:

bla wird gefunden
bla bla nicht

 

Hast du es mal mit Find von Word probiert? Arbeitet bei mir ganz problemlos und dir stehen alle Suchparameter die man sich wünschen kann zur Verfügung!
Nebenbei bemerkt: Dazu braucht man dann auch nicht jedes "Wort" eines Doc´s zu durchlaufen!

 

hab jetzt meinen neuen Code mal umgestellt:

Code:

In dem Ordner test befinden sich drei Dateien

lalala.docx
tach.docx
trululou.docx

in tach befindet sich das bla

folgende Ausgabe:
Msgbox: Z:\Pfad\test\lalala.docx
Msgbox: Z:\Pfad\test\lalala.docx
Msgbox: bla NICHT GEFUNDEN
Msgbox: Z:\Pfad\test\trululou.docx

Laufzeitfehler 91
Objekvariable oder With-Blockvariable nicht festgelegt

Set Doc = Word.Documents.Open(objFld.Path & "\" & file.Name) ist markiert

 

Meinst du diese Methode: Ausdruck.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte?

 

Schau mal in Word im VBA-Editor (Word-Entwicklerreferenz) unter:
Selection.Find-Eigenschaft

Hier mal so ein Beispiel:
Code:

Musst nur dein Suchwort und das Word-Object übergeben (Word.Application-Object). Liefert Wahr/True, wenn etwas passendes gefunden wurde.

 

Hab es ausprobiert aber es funktioniert nicht. Vielleicht habe ich das auch nicht richtig verstanden

Code:

Fehlercode:
Fehler beim Kompilieren
Funktionsausfruf auf der linken Seite der Zuweisung muss den Typ Variant oder Object zurückgeben.

SearchWordString("bla", Word) = markiert

 

Das kann nicht gehen! *wink.gif*
Code:

Ich empfehle dir wärmstens dein Word Objekt in oWord oder objWord umzunennen! So gehst du Problemen im VBA-Code aus dem Weg!

 

oh ja hatte mich schon über diese komische Schreibweise gewundert.
Aber ich bekomme trotz Änderung wieder eine Fehlermeldung:
Laufzeitfehler 91
Objektvariable oder With-Blockvaraible nicht festgelegt

With .Find markiert
Code: