Textmarke per Code einfügen

21/05/2010 - 10:35 von Andreas Schimpf | Report spam
Hallo NG,
Ich möchte eine bestimmte Stelle im Text suchen, die beispielsweise durch
das Wort *hierher* gekennzeichnet ist und hier eine Textmarke definieren.
Wie mache ich das mit VBA?

Vielen Dank
Andreas
 

Lesen sie die antworten

#1 alexander.kerensky
21/05/2010 - 13:39 | Warnen spam
Hallo Andreas,

Sub TextmarkeSetzen()

Dim rngSuche As Range
Dim bfound As Boolean

Set rngSuche = ActiveDocument.Content.Duplicate

With rngSuche.Find
.Text = "hierher"
.Forward = True
.Wrap = wdFindStop
.Execute
bfound = .Found
End With

If bfound Then
rngSuche.Bookmarks.Add ("Textmarkenname")
Else
MsgBox "Leider nichts gefunden :-("
End If

End Sub


On 21 Mai, 10:35, "Andreas Schimpf" wrote:
Hallo NG,
Ich möchte eine bestimmte Stelle im Text suchen, die beispielsweise durch
das Wort *hierher* gekennzeichnet ist und hier eine Textmarke definieren.
Wie mache ich das mit VBA?

Vielen Dank
Andreas

Ähnliche fragen