Замена угловых кавычек прямыми

Код:

Sub Угловые_кавычки_заменить_на_фигурные()
Options.AutoFormatAsYouTypeReplaceQuotes = False
With Selection.Find
.Text = "«"
.Replacement.Text = "“"
Selection.Find.Execute Replace:=wdReplaceAll
.Text = "»"
.Replacement.Text = "”"
Selection.Find.Execute Replace:=wdReplaceAll
End With
Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub