Microsoft Office Forums - View Single Post

n00bie-n00b · 08-20-2014, 07:32 PM

hi, i (you) finally finished it, thanks for all your help sir!

can you help me with a simple "find.boarders = true insert before"? (trying to insert a character before every instance of a character border

Code:

Sub insertbefore
'
'
 Selection.find.boarders = True
 
With Selection.find.Replacement.Font
        .Size = 8
        .Color = 49407
        .Superscript = True
        .Subscript = False
    End With
    Selection.find.Execute Replace:=wdReplaceAll
End Sub

(looked online but cant seem to find out how to search for letters with a character border)