For number 1:

Sub Test()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "([0-9]{1,})(" & Chr(39) & ")"
.MatchWildcards = True
.Replacement.Text = "\1" & ChrW(8242)
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Exit Sub
End Sub

We won't give you all of the fish since you seem willing to learn to fish ;-)

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/