Public Sub AtMarkToNorman()
WordBasic.EditReplace Find:="a@", Replace:="^0140", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="A@", Replace:="^0238", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="i@", Replace:="^0180", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="I@", Replace:="^0231", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="U@", Replace:="^0242", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="u@", Replace:="^0232", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="r@", Replace:="^0168", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="R@", Replace:="^0244", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="l@", Replace:="^0194", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="L@", Replace:="^0226", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="T@", Replace:="^0233", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="t@", Replace:="^0202", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="d@", Replace:="^0182", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="D@", Replace:="^0223", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="N@", Replace:="^0239", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="n@", Replace:="^0246", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="G@", Replace:="^0220", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="g@", Replace:="^0186", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="J@", Replace:="^0132", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="j@", Replace:="^0170", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="M@", Replace:="^0200", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="m@", Replace:="^0181", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="s@", Replace:="^0183", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="S@", Replace:="^0221", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="C@", Replace:="^0234", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="c@", Replace:="^0167", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="H@", Replace:="^0222", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="h@", Replace:="^0250", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="A*", Replace:="^0128", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="a*", Replace:="^0138", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="O*", Replace:="^0133", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="o*", Replace:="^0154", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="U*", Replace:="^0134", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="u*", Replace:="^0159", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="s*", Replace:="^0192", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="z@", Replace:="^0185", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="O@", Replace:="^0214", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="o@", Replace:="^0246", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="Z@", Replace:="^0243", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
End Sub