Makrosuche in Textmarke

18/10/2008 - 22:41 von rowie | Report spam
Hallo NG,

brauche mal Eure Hilfe.

Ich suche für Word 2002 ein Makro für die Suche von Wörtern, aber nur in der
1.Textmarke.

Das Makro sollte das gefundene Wort markieren und nach Aufforderung ev.
weiter suchen, oder abbrechen.
Bei nicht Auffinden des Suchbegriff sollte eine Meldung erfolgen.

Könnt Ihr mir helfen, habe wenig Erfahrung mit VBA!

Dank + Gruß
rowie
 

Lesen sie die antworten

#1 Helmut Weber
19/10/2008 - 11:49 | Warnen spam
Hallo rowie,

etwa so:

Sub Macro8()
Dim rTmp As Range
Dim sTmp As String
Dim bFound As Boolean ' found
Dim bConti As Long ' continue
sTmp = InputBox("Suchwort")
Set rTmp = ActiveDocument.Bookmarks(1).Range
With rTmp.Find
.Text = sTmp
.MatchWholeWord = True
While .Execute
bFound = True
rTmp.HighlightColorIndex = wdYellow
rTmp.Collapse Direction:=wdCollapseEnd
rTmp.End = ActiveDocument.Bookmarks(1).Range.End + 1
bConti = MsgBox("Continue", vbYesNo)
If bConti = 7 Then Exit Sub
Wend
If bFound = False Then
MsgBox "not found"
End If
End With
End Sub



Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen