Public Sub ZZZjoBildToAtmark()
WordBasic.EditReplace Find:="^0240", Replace:="a@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0158", Replace:="A@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0134", Replace:="i@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0162", Replace:="I@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0185", Replace:="u@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0179", Replace:="U@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0222", Replace:="r@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0169", Replace:="R@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0141", Replace:="y@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0135", Replace:="l@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0163", Replace:="L@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0178", Replace:="T@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0221", Replace:="t@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0159", Replace:="D@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0130", Replace:="d@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0166", Replace:="N@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0137", Replace:="n@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0209", Replace:="J@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0241", Replace:="j@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0160", Replace:="G@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0248", Replace:="g@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0164", Replace:="M@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0136", Replace:="m@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0181", Replace:="C@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0255", Replace:="c@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0170", Replace:="S@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0175", Replace:="s@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0161", Replace:="H@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0254", Replace:="h@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0168", Replace:="O@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0138", Replace:="o@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0188", Replace:="Z@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0157", Replace:="z@", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0196", Replace:="A*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0228", Replace:="a*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0220", Replace:="U*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0252", Replace:="u*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0201", Replace:="eE", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0223", Replace:="s*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0246", Replace:="o*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
WordBasic.EditReplace Find:="^0214", Replace:="O*", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, MatchByte:=1
End Sub