Sub n2u_pc()
With Selection.Find
    .ClearFormatting
    .MatchCase = True
    .MatchWholeWord = False
    .Font.Name = "Times_Norman"
    .Replacement.Font.Name = "IndUni-T"
    .Execute FINDText:=ChrW(&HF020), ReplaceWith:=ChrW(&H20), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF021), ReplaceWith:=ChrW(&H21), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF022), ReplaceWith:=ChrW(&H22), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF023), ReplaceWith:=ChrW(&H23), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF024), ReplaceWith:=ChrW(&H24), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF025), ReplaceWith:=ChrW(&H25), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF026), ReplaceWith:=ChrW(&H26), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF027), ReplaceWith:=ChrW(&H27), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF028), ReplaceWith:=ChrW(&H28), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF029), ReplaceWith:=ChrW(&H29), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF02A), ReplaceWith:=ChrW(&H2A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF02B), ReplaceWith:=ChrW(&H2B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF02C), ReplaceWith:=ChrW(&H2C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF02D), ReplaceWith:=ChrW(&H2D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF02E), ReplaceWith:=ChrW(&H2E), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF02F), ReplaceWith:=ChrW(&H2F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF030), ReplaceWith:=ChrW(&H30), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF031), ReplaceWith:=ChrW(&H31), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF032), ReplaceWith:=ChrW(&H32), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF033), ReplaceWith:=ChrW(&H33), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF034), ReplaceWith:=ChrW(&H34), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF035), ReplaceWith:=ChrW(&H35), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF036), ReplaceWith:=ChrW(&H36), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF037), ReplaceWith:=ChrW(&H37), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF038), ReplaceWith:=ChrW(&H38), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF039), ReplaceWith:=ChrW(&H39), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF03A), ReplaceWith:=ChrW(&H3A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF03B), ReplaceWith:=ChrW(&H3B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF03C), ReplaceWith:=ChrW(&H3C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF03D), ReplaceWith:=ChrW(&H3D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF03E), ReplaceWith:=ChrW(&H3E), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF03F), ReplaceWith:=ChrW(&H3F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF040), ReplaceWith:=ChrW(&H40), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF041), ReplaceWith:=ChrW(&H41), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF042), ReplaceWith:=ChrW(&H42), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF043), ReplaceWith:=ChrW(&H43), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF044), ReplaceWith:=ChrW(&H44), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF045), ReplaceWith:=ChrW(&H45), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF046), ReplaceWith:=ChrW(&H46), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF047), ReplaceWith:=ChrW(&H47), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF048), ReplaceWith:=ChrW(&H48), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF049), ReplaceWith:=ChrW(&H49), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF04A), ReplaceWith:=ChrW(&H4A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF04B), ReplaceWith:=ChrW(&H4B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF04C), ReplaceWith:=ChrW(&H4C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF04D), ReplaceWith:=ChrW(&H4D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF04E), ReplaceWith:=ChrW(&H4E), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF04F), ReplaceWith:=ChrW(&H4F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF050), ReplaceWith:=ChrW(&H50), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF051), ReplaceWith:=ChrW(&H51), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF052), ReplaceWith:=ChrW(&H52), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF053), ReplaceWith:=ChrW(&H53), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF054), ReplaceWith:=ChrW(&H54), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF055), ReplaceWith:=ChrW(&H55), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF056), ReplaceWith:=ChrW(&H56), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF057), ReplaceWith:=ChrW(&H57), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF058), ReplaceWith:=ChrW(&H58), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF059), ReplaceWith:=ChrW(&H59), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF05A), ReplaceWith:=ChrW(&H5A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF05B), ReplaceWith:=ChrW(&H5B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF05C), ReplaceWith:=ChrW(&H5C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF05D), ReplaceWith:=ChrW(&H5D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF05F), ReplaceWith:=ChrW(&H5F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF060), ReplaceWith:=ChrW(&H60), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF061), ReplaceWith:=ChrW(&H61), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF062), ReplaceWith:=ChrW(&H62), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF063), ReplaceWith:=ChrW(&H63), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF064), ReplaceWith:=ChrW(&H64), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF065), ReplaceWith:=ChrW(&H65), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF066), ReplaceWith:=ChrW(&H66), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF067), ReplaceWith:=ChrW(&H67), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF068), ReplaceWith:=ChrW(&H68), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF069), ReplaceWith:=ChrW(&H69), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF06A), ReplaceWith:=ChrW(&H6A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF06B), ReplaceWith:=ChrW(&H6B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF06C), ReplaceWith:=ChrW(&H6C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF06D), ReplaceWith:=ChrW(&H6D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF06E), ReplaceWith:=ChrW(&H6E), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF06F), ReplaceWith:=ChrW(&H6F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF070), ReplaceWith:=ChrW(&H70), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF071), ReplaceWith:=ChrW(&H71), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF072), ReplaceWith:=ChrW(&H72), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF073), ReplaceWith:=ChrW(&H73), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF074), ReplaceWith:=ChrW(&H74), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF075), ReplaceWith:=ChrW(&H75), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF076), ReplaceWith:=ChrW(&H76), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF077), ReplaceWith:=ChrW(&H77), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF078), ReplaceWith:=ChrW(&H78), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF079), ReplaceWith:=ChrW(&H79), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF07A), ReplaceWith:=ChrW(&H7A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF07B), ReplaceWith:=ChrW(&H7B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF07C), ReplaceWith:=ChrW(&H7C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF07D), ReplaceWith:=ChrW(&H7D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF07E), ReplaceWith:=ChrW(&H7E), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF07F), ReplaceWith:=ChrW(&H7F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF080), ReplaceWith:=ChrW(&HC4), Replace:=wdReplaceAll ' A dieresis
    .Execute FINDText:=ChrW(&HF081), ReplaceWith:=ChrW(&HC5), Replace:=wdReplaceAll ' A ring
    .Execute FINDText:=ChrW(&HF082), ReplaceWith:=ChrW(&H12B) & ChrW(&H303), Replace:=wdReplaceAll ' i macron tilde
    .Execute FINDText:=ChrW(&HF083), ReplaceWith:=ChrW(&HC9), Replace:=wdReplaceAll ' E acute
    .Execute FINDText:=ChrW(&HF084), ReplaceWith:=ChrW(&HD1), Replace:=wdReplaceAll ' N tilde
    .Execute FINDText:=ChrW(&HF085), ReplaceWith:=ChrW(&HD6), Replace:=wdReplaceAll ' O dieresis
    .Execute FINDText:=ChrW(&HF086), ReplaceWith:=ChrW(&HDC), Replace:=wdReplaceAll ' U dieresis
    .Execute FINDText:=ChrW(&HF087), ReplaceWith:=ChrW(&HE1), Replace:=wdReplaceAll ' a acute
    .Execute FINDText:=ChrW(&HF088), ReplaceWith:=ChrW(&HE0), Replace:=wdReplaceAll ' a grave
    .Execute FINDText:=ChrW(&HF089), ReplaceWith:=ChrW(&HE2), Replace:=wdReplaceAll ' a circumflex
    .Execute FINDText:=ChrW(&HF08A), ReplaceWith:=ChrW(&HE4), Replace:=wdReplaceAll ' a dieresis
    .Execute FINDText:=ChrW(&HF08B), ReplaceWith:=ChrW(&HE3), Replace:=wdReplaceAll ' a tilde
    .Execute FINDText:=ChrW(&HF08C), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll ' a macron
    .Execute FINDText:=ChrW(&HF08D), ReplaceWith:=ChrW(&HE7), Replace:=wdReplaceAll ' c cedilla
    .Execute FINDText:=ChrW(&HF08E), ReplaceWith:=ChrW(&HE9), Replace:=wdReplaceAll ' e acute
    .Execute FINDText:=ChrW(&HF08F), ReplaceWith:=ChrW(&HE8), Replace:=wdReplaceAll ' e grave
    .Execute FINDText:=ChrW(&HF090), ReplaceWith:=ChrW(&HEA), Replace:=wdReplaceAll ' e circumflex
    .Execute FINDText:=ChrW(&HF091), ReplaceWith:=ChrW(&HEB), Replace:=wdReplaceAll ' e dieresis
    .Execute FINDText:=ChrW(&HF092), ReplaceWith:=ChrW(&HED), Replace:=wdReplaceAll ' i acute
    .Execute FINDText:=ChrW(&HF093), ReplaceWith:=ChrW(&HEC), Replace:=wdReplaceAll ' i grave
    .Execute FINDText:=ChrW(&HF094), ReplaceWith:=ChrW(&HEE), Replace:=wdReplaceAll ' i circumflex
    .Execute FINDText:=ChrW(&HF095), ReplaceWith:=ChrW(&HEF), Replace:=wdReplaceAll ' i dieresis
    .Execute FINDText:=ChrW(&HF096), ReplaceWith:=ChrW(&HF1), Replace:=wdReplaceAll ' n tilde
    .Execute FINDText:=ChrW(&HF097), ReplaceWith:=ChrW(&HF3), Replace:=wdReplaceAll ' o acute
    .Execute FINDText:=ChrW(&HF098), ReplaceWith:=ChrW(&HF2), Replace:=wdReplaceAll ' o grave
    .Execute FINDText:=ChrW(&HF099), ReplaceWith:=ChrW(&HF4), Replace:=wdReplaceAll 'o circumflex
    .Execute FINDText:=ChrW(&HF09A), ReplaceWith:=ChrW(&HF6), Replace:=wdReplaceAll ' o dieresis
    .Execute FINDText:=ChrW(&HF09B), ReplaceWith:=ChrW(&HF5), Replace:=wdReplaceAll ' o tilde
    .Execute FINDText:=ChrW(&HF09C), ReplaceWith:=ChrW(&HFA), Replace:=wdReplaceAll ' u acute
    .Execute FINDText:=ChrW(&HF09D), ReplaceWith:=ChrW(&HF9), Replace:=wdReplaceAll ' u grave
    .Execute FINDText:=ChrW(&HF09E), ReplaceWith:=ChrW(&HFB), Replace:=wdReplaceAll ' u circumflex
    .Execute FINDText:=ChrW(&HF09F), ReplaceWith:=ChrW(&HFC), Replace:=wdReplaceAll ' u dieresis
    .Execute FINDText:=ChrW(&HF0A0), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll ' t underdot
    .Execute FINDText:=ChrW(&HF0A1), ReplaceWith:=ChrW(&HB0), Replace:=wdReplaceAll ' degree
    .Execute FINDText:=ChrW(&HF0A2), ReplaceWith:=ChrW(&H1EBD), Replace:=wdReplaceAll ' e tilde
    .Execute FINDText:=ChrW(&HF0A3), ReplaceWith:=ChrW(&HA3), Replace:=wdReplaceAll ' sterling
    .Execute FINDText:=ChrW(&HF0A4), ReplaceWith:=ChrW(&HA7), Replace:=wdReplaceAll ' section
    .Execute FINDText:=ChrW(&HF0A5), ReplaceWith:=ChrW(&H1E5D), Replace:=wdReplaceAll ' r underdot macron
    .Execute FINDText:=ChrW(&HF0A6), ReplaceWith:=ChrW(&HB6), Replace:=wdReplaceAll ' paragraph
    .Execute FINDText:=ChrW(&HF0A7), ReplaceWith:=ChrW(&H15B), Replace:=wdReplaceAll ' s acute
    .Execute FINDText:=ChrW(&HF0A8), ReplaceWith:=ChrW(&H1E5B), Replace:=wdReplaceAll ' r underdot
    .Execute FINDText:=ChrW(&HF0A9), ReplaceWith:=ChrW(&H161), Replace:=wdReplaceAll ' s caron
    .Execute FINDText:=ChrW(&HF0AA), ReplaceWith:=ChrW(&H16B) & ChrW(&H306), Replace:=wdReplaceAll ' u macron breve
    .Execute FINDText:=ChrW(&HF0AB), ReplaceWith:=ChrW(&HB4), Replace:=wdReplaceAll ' acute
    .Execute FINDText:=ChrW(&HF0AC), ReplaceWith:=ChrW(&HA8), Replace:=wdReplaceAll ' dieresis
    .Execute FINDText:=ChrW(&HF0AD), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll ' t underdot
    .Execute FINDText:=ChrW(&HF0AE), ReplaceWith:=ChrW(&HC6), Replace:=wdReplaceAll ' AE
    .Execute FINDText:=ChrW(&HF0AF), ReplaceWith:=ChrW(&H14D), Replace:=wdReplaceAll ' o macron
    .Execute FINDText:=ChrW(&HF0B0), ReplaceWith:=ChrW(&H129), Replace:=wdReplaceAll ' i tilde
    .Execute FINDText:=ChrW(&HF0B1), ReplaceWith:=ChrW(&HB1), Replace:=wdReplaceAll ' plusminus
    .Execute FINDText:=ChrW(&HF0B2), ReplaceWith:=ChrW(&H101) & ChrW(&H301), Replace:=wdReplaceAll ' a macron acute
    .Execute FINDText:=ChrW(&HF0B3), ReplaceWith:=ChrW(&H16B) & ChrW(&H301), Replace:=wdReplaceAll ' u macron acute
    .Execute FINDText:=ChrW(&HF0B4), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll ' i macron
    .Execute FINDText:=ChrW(&HF0B5), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll ' m underdot
    .Execute FINDText:=ChrW(&HF0B6), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll ' d underdot
    .Execute FINDText:=ChrW(&HF0B7), ReplaceWith:=ChrW(&H1E63), Replace:=wdReplaceAll ' s underdot
    .Execute FINDText:=ChrW(&HF0B8), ReplaceWith:=ChrW(&H113) & ChrW(&H301), Replace:=wdReplaceAll ' e macron acute
    .Execute FINDText:=ChrW(&HF0B9), ReplaceWith:=ChrW(&H17A), Replace:=wdReplaceAll ' z acute
    .Execute FINDText:=ChrW(&HF0BA), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll ' n overdot
    .Execute FINDText:=ChrW(&HF0BB), ReplaceWith:=ChrW(&H113) & ChrW(&H306), Replace:=wdReplaceAll ' e macron breve
    .Execute FINDText:=ChrW(&HF0BC), ReplaceWith:=ChrW(&H14D) & ChrW(&H306), Replace:=wdReplaceAll ' o macron breve
    .Execute FINDText:=ChrW(&HF0BD), ReplaceWith:=ChrW(&H169), Replace:=wdReplaceAll ' u tilde
    .Execute FINDText:=ChrW(&HF0BE), ReplaceWith:=ChrW(&HE6), Replace:=wdReplaceAll ' ae
    .Execute FINDText:=ChrW(&HF0BF), ReplaceWith:=ChrW(&HF8), Replace:=wdReplaceAll ' oslash
    .Execute FINDText:=ChrW(&HF0C0), ReplaceWith:=ChrW(&HAF) & ChrW(&H306), Replace:=wdReplaceAll ' macron breve
    .Execute FINDText:=ChrW(&HF0C1), ReplaceWith:=ChrW(&H101) & ChrW(&H306), Replace:=wdReplaceAll ' a macron breve
    .Execute FINDText:=ChrW(&HF0C2), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll ' l underdot
    .Execute FINDText:=ChrW(&HF0C3), ReplaceWith:="j"&ChrW(&H304), Replace:=wdReplaceAll ' j macron
    .Execute FINDText:=ChrW(&HF0C4), ReplaceWith:=ChrW(&H103), Replace:=wdReplaceAll ' a breve
    .Execute FINDText:=ChrW(&HF0C5), ReplaceWith:=ChrW(&H16D), Replace:=wdReplaceAll ' u breve
    .Execute FINDText:=ChrW(&HF0C6), ReplaceWith:=ChrW(&H101) & ChrW(&H303), Replace:=wdReplaceAll ' a macron tilde
    .Execute FINDText:=ChrW(&HF0C7), ReplaceWith:=ChrW(&H12B) & ChrW(&H301), Replace:=wdReplaceAll 'i macron acute
    .Execute FINDText:=ChrW(&HF0C8), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll ' M underdot
    .Execute FINDText:=ChrW(&HF0C9), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll ' ellipsis
    .Execute FINDText:=ChrW(&HF0CB), ReplaceWith:=ChrW(&HC0), Replace:=wdReplaceAll ' A grave
    .Execute FINDText:=ChrW(&HF0CC), ReplaceWith:=ChrW(&HC3), Replace:=wdReplaceAll ' A tilde
    .Execute FINDText:=ChrW(&HF0CD), ReplaceWith:=ChrW(&HD5), Replace:=wdReplaceAll ' O tilde
    .Execute FINDText:=ChrW(&HF0CE), ReplaceWith:="m"&ChrW(&H306), Replace:=wdReplaceAll ' m breve
    .Execute FINDText:=ChrW(&HF0CF), ReplaceWith:=ChrW(&H153), Replace:=wdReplaceAll ' oe
    .Execute FINDText:=ChrW(&HF0D0), ReplaceWith:=ChrW(&H2013), Replace:=wdReplaceAll ' endash
    .Execute FINDText:=ChrW(&HF0D1), ReplaceWith:=ChrW(&H2014), Replace:=wdReplaceAll ' emdash
    .Execute FINDText:=ChrW(&HF0D2), ReplaceWith:=ChrW(&H201C), Replace:=wdReplaceAll ' quotedblleft
    .Execute FINDText:=ChrW(&HF0D3), ReplaceWith:=ChrW(&H201D), Replace:=wdReplaceAll ' quotedblright
    .Execute FINDText:=ChrW(&HF0D4), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll ' quoteleft
    .Execute FINDText:=ChrW(&HF0D5), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll ' quotright
    .Execute FINDText:=ChrW(&HF0D6), ReplaceWith:=ChrW(&H6C) & ChrW(&H325), Replace:=wdReplaceAll ' l underring
    .Execute FINDText:=ChrW(&HF0D7), ReplaceWith:=ChrW(&H1E41), Replace:=wdReplaceAll ' m overdot
    .Execute FINDText:=ChrW(&HF0D8), ReplaceWith:="n"&ChrW(&H306), Replace:=wdReplaceAll ' n breve
    .Execute FINDText:=ChrW(&HF0D9), ReplaceWith:=ChrW(&HD7), Replace:=wdReplaceAll ' multipy
    .Execute FINDText:=ChrW(&HF0DA), ReplaceWith:=ChrW(&H1E5D) & ChrW(&H301), Replace:=wdReplaceAll ' r underdot macron acute
    .Execute FINDText:=ChrW(&HF0DB), ReplaceWith:=ChrW(&H72) & ChrW(&H325), Replace:=wdReplaceAll ' r underring
    .Execute FINDText:=ChrW(&HF0DC), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll ' N overdot
    .Execute FINDText:=ChrW(&HF0DD), ReplaceWith:=ChrW(&H1E62), Replace:=wdReplaceAll ' S underdot
    .Execute FINDText:=ChrW(&HF0DE), ReplaceWith:=ChrW(&H1E24), Replace:=wdReplaceAll ' H underdot
    .Execute FINDText:=ChrW(&HF0DF), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll ' D underdot
    .Execute FINDText:=ChrW(&HF0E0), ReplaceWith:=ChrW(&H2021), Replace:=wdReplaceAll ' daggerdbl
    .Execute FINDText:=ChrW(&HF0E1), ReplaceWith:=ChrW(&H1E5B) & ChrW(&H301), Replace:=wdReplaceAll ' r underdot acute
    .Execute FINDText:=ChrW(&HF0E2), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll ' L underdot
    .Execute FINDText:=ChrW(&HF0E3), ReplaceWith:=ChrW(&H113), Replace:=wdReplaceAll ' e macron
    .Execute FINDText:=ChrW(&HF0E4), ReplaceWith:=ChrW(&H12B) & ChrW(&H306), Replace:=wdReplaceAll ' i macron breve
    .Execute FINDText:=ChrW(&HF0E5), ReplaceWith:=ChrW(&H1E5F), Replace:=wdReplaceAll ' r underbar
    .Execute FINDText:=ChrW(&HF0E6), ReplaceWith:="r" & ChrW(&H324), Replace:=wdReplaceAll ' r underdieresis
    .Execute FINDText:=ChrW(&HF0E7), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll ' I macron
    .Execute FINDText:=ChrW(&HF0E8), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll ' u macron
    .Execute FINDText:=ChrW(&HF0E9), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll ' T underdot
    .Execute FINDText:=ChrW(&HF0EA), ReplaceWith:=ChrW(&H15A), Replace:=wdReplaceAll ' S acute
    .Execute FINDText:=ChrW(&HF0EB), ReplaceWith:=ChrW(&H2020), Replace:=wdReplaceAll ' dagger
    .Execute FINDText:=ChrW(&HF0EC), ReplaceWith:=ChrW(&H115), Replace:=wdReplaceAll ' e breve
    .Execute FINDText:=ChrW(&HF0ED), ReplaceWith:=ChrW(&H14F), Replace:=wdReplaceAll ' o breve
    .Execute FINDText:=ChrW(&HF0EE), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll ' A macron
    .Execute FINDText:=ChrW(&HF0EF), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll ' N underdot
    .Execute FINDText:=ChrW(&HF0F0), ReplaceWith:=ChrW(&H16B) & ChrW(&H303), Replace:=wdReplaceAll ' u macron tilde
    .Execute FINDText:=ChrW(&HF0F1), ReplaceWith:=ChrW(&H1E3B), Replace:=wdReplaceAll ' l underbar
    .Execute FINDText:=ChrW(&HF0F2), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll ' U macron
    .Execute FINDText:=ChrW(&HF0F3), ReplaceWith:=ChrW(&H179), Replace:=wdReplaceAll ' Z acute
    .Execute FINDText:=ChrW(&HF0F4), ReplaceWith:=ChrW(&H1E5A), Replace:=wdReplaceAll ' R underdot
    .Execute FINDText:=ChrW(&HF0F5), ReplaceWith:=ChrW(&H131), Replace:=wdReplaceAll ' dotlessi
    .Execute FINDText:=ChrW(&HF0F6), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll ' n underdot
    .Execute FINDText:=ChrW(&HF0F7), ReplaceWith:=ChrW(&H1E49), Replace:=wdReplaceAll ' n underbar
    .Execute FINDText:=ChrW(&HF0F8), ReplaceWith:=ChrW(&HAF), Replace:=wdReplaceAll ' macron
    .Execute FINDText:=ChrW(&HF0F9), ReplaceWith:=ChrW(&H2D8), Replace:=wdReplaceAll ' breve
    .Execute FINDText:=ChrW(&HF0FA), ReplaceWith:=ChrW(&H1E25), Replace:=wdReplaceAll ' h underdot
    .Execute FINDText:=ChrW(&HF0FB), ReplaceWith:=ChrW(&H12D), Replace:=wdReplaceAll ' i breve
    .Execute FINDText:=ChrW(&HF0FC), ReplaceWith:=ChrW(&HB8), Replace:=wdReplaceAll ' cedilla
    .Execute FINDText:=ChrW(&HF0FD), ReplaceWith:=ChrW(&H2DD), Replace:=wdReplaceAll ' hungarumlaut
    .Execute FINDText:=ChrW(&HF0FE), ReplaceWith:=ChrW(&H2DB), Replace:=wdReplaceAll ' ogonek
    .Execute FINDText:=ChrW(&HF0FF), ReplaceWith:=ChrW(&H2C7), Replace:=wdReplaceAll ' caron
    .Execute FINDText:="", ReplaceWith:="", Replace:=wdReplaceAll
End With
End Sub

