Hallo liebe Leute

Ich versuche ein Makro in VBA für ein Word-Dokument zu schreiben. Mein Makro sucht nach bestimmten Strings und nach dem er die gefunden hat, fragt der User ob der vlaid ist und wenn der User mit Ja antwortet müsste die eckige Klammern am Anfang und Ende des Teilstrings gesetzt werden. Mit selection.InsertBefore("[") konnte ich das Problem am Anfang des Strings lösen aber komme nicht klar mit dem Ende. Kann jemand mir helfen?

word.ActiveDocument.Range(0, 0).Select 'An den Anfang positionieren
While Not Selection.Bookmarks.Exists("\EndOfDoc") 'Bis zum Ende des Dokumentes

For i = 0 To UBound(strListe)

Text = Selection.Bookmarks("\Line").Range.Text 'Zeile zurückgeben
If (InStr(Text, "BSW") > 0) Then
Position = InStr(Text, "BSW")
PrePosition = Position - 1
If PrePosition = 0 Then
Temp = VBA.Mid(Text, Position, 7)
If (InStr(Temp, " ") > 0) Then
TestString = VBA.Mid(Text, Position, 6)
strListe(i) = TestString
Eingabewert = MsgBox("Is " & strListe(i) & " ID?", vbYesNoCancel, "Valid Requirement ID")
If Eingabewert = vbYes Then
' Die eckige Klammern setzen

Selection.InserBefore("[")

hmm ganz einfach mit Selection.InsertAfter funktioniert nicht?

Bin kein Vb-Pro aber hätte das jetzt mal probiert..

Hallo und Danke für die Antwort, so hat es geklappt:-)

word.Selection.Words(1).InsertAfter ("]")
word.Selection.Collapse wdCollapseStart
word.Selection.InsertBefore ("[")

viele Grüße