Hi I have an old macro that needs to be converted to version 2012. Can anyone help me or is it going to be too complicated.
I copied it into a new macro but to no avail.
I would also like a smiley face button in excel to activate it.
Thanks in advance for any help.
Here it is:
Sub CleanUp()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com
ffice:smarttags" /><st1:PersonName w:st="on">'</st1:PersonName><o
></o
>
<st1:PersonName w:st="on">'</st1:PersonName> CleanUp Macro<o
></o
>
<st1:PersonName w:st="on">'</st1:PersonName> Macro recorded 17/10/2005 by <st1:PersonName w:st="on">Charmaine Beckles</st1:PersonName><o
></o
>
<st1:PersonName w:st="on">'</st1:PersonName><o
></o
>
Selection.Find.ClearFormatting<o
></o
>
Selection.Find.Replacement.ClearFormatting<o
></o
>
With Selection.Find<o
></o
>
.Text = "'"<o
></o
>
.Replacement.Text = "<st1:PersonName w:st="on">'</st1:PersonName>"<o
></o
>
.Forward = True<o
></o
>
.Wrap = wdFindAsk<o
></o
>
.Format = False<o
></o
>
.MatchCase = False<o
></o
>
.MatchWholeWord = False<o
></o
>
.MatchWildcards = False<o
></o
>
.MatchSoundsLike = False<o
></o
>
.MatchAllWordForms = False<o
></o
>
<o
> </o
>
End With<o
></o
>
<o
> </o
>
Selection.Find.Execute Replace:=wdReplaceAll<o
></o
>
Selection.Find.ClearFormatting<o
></o
>
Selection.Find.Replacement.ClearFormatting<o
></o
>
With Selection.Find<o
></o
>
.Text = "&"<o
></o
>
.Replacement.Text = "&"<o
></o
>
.Forward = True<o
></o
>
.Wrap = wdFindAsk<o
></o
>
.Format = False<o
></o
>
.MatchCase = False<o
></o
>
.MatchWholeWord = False<o
></o
>
.MatchWildcards = False<o
></o
>
.MatchSoundsLike = False<o
></o
>
.MatchAllWordForms = False<o
></o
>
<o
> </o
>
End With<o
></o
>
<o
> </o
>
Selection.Find.Execute Replace:=wdReplaceAll<o
></o
>
Selection.Find.ClearFormatting<o
></o
>
Selection.Find.Replacement.ClearFormatting<o
></o
>
With Selection.Find<o
></o
>
.Text = """<o
></o
>
.Replacement.Text = "<st1:PersonName w:st="on">'</st1:PersonName>"<o
></o
>
.Forward = True<o
></o
>
.Wrap = wdFindAsk<o
></o
>
.Format = False<o
></o
>
.MatchCase = False<o
></o
>
.MatchWholeWord = False<o
></o
>
.MatchWildcards = False<o
></o
>
.MatchSoundsLike = False<o
></o
>
.MatchAllWordForms = False<o
></o
>
<o
> </o
>
End With<o
></o
>
<o
> </o
>
Selection.Find.Execute Replace:=wdReplaceAll<o
></o
>
<o
></o
>
<o
> </o
>
End Sub<o
></o
>
I copied it into a new macro but to no avail.
I would also like a smiley face button in excel to activate it.
Thanks in advance for any help.
Here it is:
Sub CleanUp()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com




<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com



<st1:PersonName w:st="on">'</st1:PersonName> CleanUp Macro<o


<st1:PersonName w:st="on">'</st1:PersonName> Macro recorded 17/10/2005 by <st1:PersonName w:st="on">Charmaine Beckles</st1:PersonName><o


<st1:PersonName w:st="on">'</st1:PersonName><o


Selection.Find.ClearFormatting<o


Selection.Find.Replacement.ClearFormatting<o


With Selection.Find<o


.Text = "'"<o


.Replacement.Text = "<st1:PersonName w:st="on">'</st1:PersonName>"<o


.Forward = True<o


.Wrap = wdFindAsk<o


.Format = False<o


.MatchCase = False<o


.MatchWholeWord = False<o


.MatchWildcards = False<o


.MatchSoundsLike = False<o


.MatchAllWordForms = False<o


<o


End With<o


<o


Selection.Find.Execute Replace:=wdReplaceAll<o


Selection.Find.ClearFormatting<o


Selection.Find.Replacement.ClearFormatting<o


With Selection.Find<o


.Text = "&"<o


.Replacement.Text = "&"<o


.Forward = True<o


.Wrap = wdFindAsk<o


.Format = False<o


.MatchCase = False<o


.MatchWholeWord = False<o


.MatchWildcards = False<o


.MatchSoundsLike = False<o


.MatchAllWordForms = False<o


<o


End With<o


<o


Selection.Find.Execute Replace:=wdReplaceAll<o


Selection.Find.ClearFormatting<o


Selection.Find.Replacement.ClearFormatting<o


With Selection.Find<o


.Text = """<o


.Replacement.Text = "<st1:PersonName w:st="on">'</st1:PersonName>"<o


.Forward = True<o


.Wrap = wdFindAsk<o


.Format = False<o


.MatchCase = False<o


.MatchWholeWord = False<o


.MatchWildcards = False<o


.MatchSoundsLike = False<o


.MatchAllWordForms = False<o


<o


End With<o


<o


Selection.Find.Execute Replace:=wdReplaceAll<o


<o


<o


End Sub<o

