Microsoft Office Forums - View Single Post

pentagram_31 · 02-23-2015, 08:29 AM

Thanks for your reply. In the meantime, I tried and found sth like this and it works like charm for me so far:

Code:

Sub Makro5()

Selection.Find.ClearFormatting
With Selection.Find
   .Text = "A)"
   .Forward = True
   '.Wrap = wdFindContinue
   .Format = False
   .MatchCase = True
   .MatchWholeWord = True
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute
If Selection.Find.Found = True Then
    
    Selection.MoveUp Unit:=wdParagraph, Count:=3, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    Selection.MoveDown Unit:=wdParagraph, Count:=2
End If
End Sub