Microsoft Office Forums - View Single Post - [Solved] VBA Add text to beginning of each row in second column

vivka · 07-30-2024, 02:24 AM

Hi, Shelley Lou.
The problem is with the quot sign and tab to find which are bold. The following will do the job. Of course, there are other ways of doing this but they will be more complicated:

Code:

Sub Insert_Wd()

Dim oRng As range
Set oRng = selection.range
    oRng.Find.ClearFormatting
    oRng.Find.Replacement.ClearFormatting
    With oRng.Find
        .text = "(^34^9)\("
        .Replacement.text = "\1means("
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
        .text = "means\("
        .Replacement.text = "^&"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub