Public Sub AtMarkToZZZjoBild()

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:="^0158", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="i@", Replace:="^0134", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="I@", Replace:="^0162", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="U@", Replace:="^0179", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="u@", Replace:="^0144", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="r@", Replace:="^0139", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="R@", Replace:="^0169", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="l@", Replace:="^0135", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="L@", Replace:="^0163", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="T@", Replace:="^0178", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="t@", Replace:="^0143", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="d@", Replace:="^0130", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="D@", Replace:="^0159", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="N@", Replace:="^0166", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="n@", Replace:="^0137", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="G@", Replace:="^0160", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="g@", Replace:="^0131", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="J@", Replace:="^0209", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="j@", Replace:="^0241", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="M@", Replace:="^0164", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="m@", Replace:="^0136", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="s@", Replace:="^0142", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="S@", Replace:="^0170", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="C@", Replace:="^0181", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="c@", Replace:="^0155", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="H@", Replace:="^0161", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="h@", Replace:="^0133", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="A*", Replace:="^0196", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="a*", Replace:="^0228", 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:="U*", Replace:="^0220", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="u*", Replace:="^0252", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="s*", Replace:="^0223", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="z@", Replace:="^0157", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
End Sub