I need Find and Replace Macro

[Thejan Mendis]

Hi


I hope somebody can help me to make a word macro that replace all the curly
"" quotations to box like quotation marks and less than and grater than
(<> ) to (&lt; &gt.


Plesssssss I need this very much


THEJAN

 

[Larry]

Sub StraightQuotesApply()
' by Larry

' Turns off smart quote feature if it's on, then replaces quotes by
quotes.
' Also replaces smart single quotes by straight single quotes.

If Options.AutoFormatAsYouTypeReplaceQuotes = True Then _
Options.AutoFormatAsYouTypeReplaceQuotes = False

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute replace:=wdReplaceAll

' replace "smart" apostophes with straight apostrophes
With Selection.Find
.Text = "[‘’]"
.Replacement.Text = "'"
.Forward = True
.MatchWildcards = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute replace:=wdReplaceAll

' clear Find
With Selection.Find
..MatchWildcards = False
End With

End Sub