Word Dokument durchsuchen

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,
ich brauch mal Eure Unterstützung.
Ich möchte mit einem Makro aus der persönlichen Makroarbeitsmappe
das aktuelle Word-Dokument durchsuchen nach den folgenden Nrn.:
„1612“ und „1714“ dann möchte ich eine If-Than-else Anweisung hinteranstellen, die mir eine MsgBox gibt und anzeigt, wievielmal die Nrn. gefunden wurden, (Trefferanzahl) und bei Bestätigung der msgBox (OK-Butten) nacheinander zu den einzelnen gefundenen Nrn. springt.
Bei keinem Treffer soll der Sub verlassen werden.

Kann mir das bitte jemand zusammen schreiben ?

Gruß Christian

#2

Ich möchte mit einem Makro aus der persönlichen
Makroarbeitsmappe
das aktuelle Word-Dokument durchsuchen nach den folgenden
Nrn.:
„1612“ und „1714“ dann möchte ich eine If-Than-else Anweisung
hinteranstellen, die mir eine MsgBox gibt und anzeigt,
wievielmal die Nrn. gefunden wurden,

Hallo Christian,

Option Explicit

Sub Finden()
Call Finden2("1612")
Call Finden2("1714")
End Sub

Sub Finden2(ByVal strSuch As String)
Dim strInhalt As String, strInhaltkurz As String
strInhalt = ActiveDocument.Content
strInhaltkurz = Replace(strInhalt, strSuch, "")
If strInhaltkurz strInhalt Then
 MsgBox strSuch & ": " & (Len(strInhalt) - Len(strInhaltkurz)) / Len(strSuch) & " mal."
End If
End Sub
#3

Guten Tag,

suchen kannst du mit diesem code:
Dim doc As Document
Dim l_Start_anf As Long, l_Start_end As Long
Dim l_PosEnd As Long, l_pos As Long

Set doc = ActiveDocument

'Suchbereichsende setzen
l_PosEnd = doc.Content.End

Selection.Start = doc.Content.Start
Selection.End = l_PosEnd
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = True
.Forward = False
.Wrap = wdFindStop
.Text = „Dein Nmr“
.MatchWholeWord = False
.MatchWildcards = False
.MatchCase = False
If .Execute() = False Then … 'nichts gefunden
End With

'Gefunden Position merken
l_Start_anf = Selection.Start
l_Start_end = Selection.End

#4

…ok Reinhard,

das klappt ausgezeichnet !!! -

aber nach bestätigung der MSGBox mit OK möchte ich nun nacheinander auf die Stellen im Dokument springen, die er gefunden hat.

bekommst Du das auch noch hin ?

Gruß Christian

#5

aber nach bestätigung der MSGBox mit OK möchte ich nun
nacheinander auf die Stellen im Dokument springen, die er
gefunden hat.
bekommst Du das auch noch hin ?

Hallo Christian,

ich kann schon die „Find“-Methode wie Tihamals benutzen um in einer Schleife alle „treffer“ abzuklappern und z.B. immer die Treffer zu markieren bzw.Find markiert die ja, und bei jedem Treffer erscheint eine MsgBox die sagt:
Das ist der x-Te Treffer.

Nur, dann kannst du im Doc nichts machen an der Stelle bei so einem Code.
Beschreib bitte genauer was du eigentlich machen möchtest.
Angenommen du findest da in deiner Doc die 1612 10 mal. Was genau soll an jeder Fundstelle geschehen?

Und, du willst nach zwei Dingen suchen. Sind das immer nur zwei, immer die gleichen, sag halt dazu auch was.

Gruß
Reinhard

#6

Ok. - Habe verstanden !

Also: Ich bekommen im Laufe der Woche jeden Tag 3 .txt Dateien, die sich leider nicht vernünftig importieren lassen.
Daher kopiere ich mir den Inhalt per strg + copie und paste in ein word Dokument diese .txt - Dateien enthalten alle Kontoauszüge (ca. 800 Seiten pro Datei) Da nur wenige Kontoauszüge hieraus interressant für die Weiterverarbeitung sind, gilt es nun die entprechenden herauszusuchen und auszudrucken. Da aber Seitenanfang und Seitenende des Kontoauszuges nicht mit den Word - Seiten übereinstimmen, brauche ich den Sprung von Treffer zu Treffer, um die entsprechende Seite (und nur die) auf eine Word - Seite auszurichten und auszudrucken. Wir wollen ja alle Papier sparen.
Verstanden ? - sonst weiter fragen !

Gruß Christian