Microsoft Office Forums - View Single Post

vivka · 02-08-2024, 08:45 AM

Hi, RRB! The following will do the job:

Code:

Sub Replace_Double_Quotes()

    With selection.range.Find
        .text = "([A-z])" & Chr(34) & "([A-z])"
        .Replacement.text = "\1/" & Chr(34) & "\2"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

If the quotes in the code are not what is needed, find out the ASCII decimal code of the needed quotes and replace '34' with it.