Microsoft Office Forums - View Single Post - [Solved] Replacing question mark plus wrong angle quotation mark

gmaxey · 11-17-2025, 06:13 AM

I obviously don't understand what you are trying to achieve. What exactly is wrong and what exactly are your wanting to accomplish?

Perhaps:

Code:

Sub AngleQuotationMarks()
Dim iType As Long
Dim oRng As Range
  Options.AutoFormatAsYouTypeReplaceQuotes = False
  For iType = 1 To 1 '2
    On Error GoTo lbl_Exit
    Set oRng = ActiveDocument.StoryRanges(iType)
    With oRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Text = "([! " & Chr(9) & Chr(11) & Chr(13) & Chr(160) & "])" & "(^0171)"
      .Replacement.Text = "\1" & "^0187"
      .Execute Replace:=wdReplaceAll
    End With
  Next iType
lbl_Exit:
  'Options.AutoFormatAsYouTypeReplaceQuotes = True
  Exit Sub
End Sub