Find n replace word macro - need HELP

[ahhiamdying4u]

I converted images to txt using abbyy ... But it made a lot of mistakes ... so I first paste them in word, spell chk them & then use them. To make spell chk quicker I made a macro & assigned to a button. I am a novice in writing VBA, but I can understand any VBA progs ... so if u can help me.
:X

Sub Mis_replace()
With ActiveDocument.Content.Find

    .MatchCase = False
    '.MatchWholeWord = False
    '.MatchWildcards = False
    '.MatchAllWordForms = False
    
    .Execute FindText:="." & vbTab, ReplaceWith:=". ", Replace:=wdReplaceAll
    .Execute FindText:="&." & ChrW(9632), ReplaceWith:="G.:", Replace:=wdReplaceAll
    .Execute FindText:="&.:", ReplaceWith:="G.;", Replace:=wdReplaceAll
    .Execute FindText:=" ~", ReplaceWith:=" --", Replace:=wdReplaceAll
    .Execute FindText:=" —", ReplaceWith:=" --", Replace:=wdReplaceAll
    .Execute FindText:=" . . .", ReplaceWith:=" ...", Replace:=wdReplaceAll
    .Execute FindText:=":,", ReplaceWith:=".;", Replace:=wdReplaceAll
    .Execute FindText:=" f racture", ReplaceWith:=" fracture", Replace:=wdReplaceAll
   .
   .
   . (so on ...)
    
End With
End Sub

Whenever I need something new, I just add a new Line to the program.
:?:
1. Is there any nerdy/cuter ver. of this macro?

2. Is there any way that I will just entry them in AutoCorrect & access the AutoCorrect List with macro?
I found this syntax "AutoCorrect.ReplaceTextFromSpellingChecker = True". But don't know how to use it.

3. Is there any way to access the Custom.dic thru macro?

:)thank u in advance,