VBA bei Word 2003

Computer: Software & Programmierung Visual Basic
#1

Hallo,
Ich versuche mit einem VBA-Code ein Word-Dokument zu durchsuchen und bei Treffer die eine MsgBox anzuzeigen und den Treffer zu markieren
und bei kein Treffer die andere MsgBox anzuzeigen.
das hab ich bis jetzt:

…
With Selection.Find
.Text = „1660131622“
.Replacement.Text = „“
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If gefunden Then
Selection.Find.Execute _
antw = MsgBox(„Treffer !“, vbInformation): Exit Sub
Else
antw1 = MsgBox(„Kein Treffer !“, vbInformation)
End If
End Sub

Haut aber nicht hin, kann jemand helfen ?
Gruß Christian

#2

hallo Christian,

wäre das was?

Option Explicit

Sub tt()
Dim Anz As Integer
Const Such As String = "1660131622"
Anz = Len(ActiveDocument.Content)
ActiveDocument.Content.Find.Execute FindText:=Such, \_
 ReplaceWith:="", Replace:=wdReplaceAll
MsgBox Such & " wurde " & (Anz - Len(ActiveDocument.Content)) / Len(Such) & "-mal ersetzt."
End Sub

Zu deinem Code.
Haut nicht hin ist eine schlechte Fehlerbeschreibung.

If gefunden Then
was ja das Gleiche ist wie
If gefunden=True Then
wird nie erfüllt werden. Es wird immer der Else-Zweig angesprungen, denn nirgends wird vorher gefunden auf true gesetzt.

Gewöhne dir in deinem Interesse an immer Option Explicit zu benutzen.
Im Editor bei Extras --Optionen anhaken
Variablendeklaration erzwingen.

Gruß
Reinhard