Sub c2u_pc()
With Selection.Find
    .ClearFormatting
    .MatchCase = True
    .MatchWholeWord = False
    .Font.Name = "Times_CSX+"
    .Replacement.Font.Name = "IndUni-T"
    .Execute FINDText:=ChrW(&H80), ReplaceWith:=ChrW(&HC7), Replace:=wdReplaceAll ' C cedilla
    .Execute FINDText:=ChrW(&H81), ReplaceWith:=ChrW(&HFC), Replace:=wdReplaceAll ' u dieresis
    .Execute FINDText:=ChrW(&H201A), ReplaceWith:=ChrW(&HE9), Replace:=wdReplaceAll ' e acute
    .Execute FINDText:=ChrW(&H192), ReplaceWith:=ChrW(&HE2), Replace:=wdReplaceAll ' a circumflex
    .Execute FINDText:=ChrW(&H201E), ReplaceWith:=ChrW(&HE4), Replace:=wdReplaceAll ' a dieresis
    .Execute FINDText:=ChrW(&H2026), ReplaceWith:=ChrW(&HE0), Replace:=wdReplaceAll ' a grave
    .Execute FINDText:=ChrW(&H2020), ReplaceWith:=ChrW(&HE5), Replace:=wdReplaceAll ' a ring
    .Execute FINDText:=ChrW(&H2021), ReplaceWith:=ChrW(&HE7), Replace:=wdReplaceAll ' c cedilla
    .Execute FINDText:=ChrW(&H2C6), ReplaceWith:=ChrW(&HEA), Replace:=wdReplaceAll ' e circumflex
    .Execute FINDText:=ChrW(&H2030), ReplaceWith:=ChrW(&HEB), Replace:=wdReplaceAll ' e dieresis
    .Execute FINDText:=ChrW(&H160), ReplaceWith:=ChrW(&HE8), Replace:=wdReplaceAll ' e grave
    .Execute FINDText:=ChrW(&H2039), ReplaceWith:=ChrW(&HEF), Replace:=wdReplaceAll ' i dieresis
    .Execute FINDText:=ChrW(&H152), ReplaceWith:=ChrW(&HEE), Replace:=wdReplaceAll ' i circumflex
    .Execute FINDText:=ChrW(&H8D), ReplaceWith:=ChrW(&HEC), Replace:=wdReplaceAll ' i grave
    .Execute FINDText:=ChrW(&H8E), ReplaceWith:=ChrW(&HE7), Replace:=wdReplaceAll ' A dieresis
    .Execute FINDText:=ChrW(&H8F), ReplaceWith:=ChrW(&HC5), Replace:=wdReplaceAll ' A ring
    .Execute FINDText:=ChrW(&H90), ReplaceWith:=ChrW(&HC9), Replace:=wdReplaceAll ' E acute
    .Execute FINDText:=ChrW(&H2018), ReplaceWith:=ChrW(&HE6), Replace:=wdReplaceAll ' ae
    .Execute FINDText:=ChrW(&H2019), ReplaceWith:=ChrW(&HC6), Replace:=wdReplaceAll ' AE
    .Execute FINDText:=ChrW(&H201C), ReplaceWith:=ChrW(&HF4), Replace:=wdReplaceAll 'o circumflex
    .Execute FINDText:=ChrW(&H201D), ReplaceWith:=ChrW(&HF6), Replace:=wdReplaceAll ' o dieresis
    .Execute FINDText:=ChrW(&H2022), ReplaceWith:=ChrW(&HF2), Replace:=wdReplaceAll ' o grave
    .Execute FINDText:=ChrW(&H2013), ReplaceWith:=ChrW(&HFB), Replace:=wdReplaceAll ' u circumflex
    .Execute FINDText:=ChrW(&H2014), ReplaceWith:=ChrW(&HF9), Replace:=wdReplaceAll ' u grave
    .Execute FINDText:=ChrW(&H2DC), ReplaceWith:=ChrW(&HE6) & ChrW(&H304), Replace:=wdReplaceAll ' ae macron
    .Execute FINDText:=ChrW(&H2122), ReplaceWith:=ChrW(&HD6), Replace:=wdReplaceAll ' O dieresis
    .Execute FINDText:=ChrW(&H161), ReplaceWith:=ChrW(&HDC), Replace:=wdReplaceAll ' U dieresis
    .Execute FINDText:=ChrW(&H203A), ReplaceWith:=ChrW(&H16D), Replace:=wdReplaceAll ' u breve
    .Execute FINDText:=ChrW(&H153), ReplaceWith:=ChrW(&H113)& ChrW(&H303), Replace:=wdReplaceAll ' e macron tilde
    .Execute FINDText:=ChrW(&H9D), ReplaceWith:=ChrW(&H72) & ChrW(&H325), Replace:=wdReplaceAll ' r underring
    .Execute FINDText:=ChrW(&H9E), ReplaceWith:=ChrW(&HE1), Replace:=wdReplaceAll ' a acute
    .Execute FINDText:=ChrW(&H178), ReplaceWith:=ChrW(&H1E5F), Replace:=wdReplaceAll ' r underbar
    .Execute FINDText:=ChrW(&HA0), ReplaceWith:=ChrW(&HA0), Replace:=wdReplaceAll ' non-breaking space
    .Execute FINDText:=ChrW(&HA1), ReplaceWith:=ChrW(&HED), Replace:=wdReplaceAll ' i acute
    .Execute FINDText:=ChrW(&HA2), ReplaceWith:=ChrW(&HF3), Replace:=wdReplaceAll ' o acute
    .Execute FINDText:=ChrW(&HA3), ReplaceWith:=ChrW(&HFA), Replace:=wdReplaceAll ' u acute
    .Execute FINDText:=ChrW(&HA4), ReplaceWith:=ChrW(&HF1), Replace:=wdReplaceAll ' n tilde
    .Execute FINDText:=ChrW(&HA5), ReplaceWith:=ChrW(&HD1), Replace:=wdReplaceAll ' N tilde
    .Execute FINDText:=ChrW(&HA6), ReplaceWith:="l" & ChrW(&H303), Replace:=wdReplaceAll ' l tilde
    .Execute FINDText:=ChrW(&HA7), ReplaceWith:=ChrW(&H1E41), Replace:=wdReplaceAll ' m overdot
    .Execute FINDText:=ChrW(&HA8), ReplaceWith:=ChrW(&H101) & ChrW(&H306), Replace:=wdReplaceAll ' a macron breve
    .Execute FINDText:=ChrW(&HA9), ReplaceWith:=ChrW(&H12B) & ChrW(&H306), Replace:=wdReplaceAll ' i macron breve
    .Execute FINDText:=ChrW(&HAA), ReplaceWith:=ChrW(&H16B) & ChrW(&H306), Replace:=wdReplaceAll ' u macron breve
    .Execute FINDText:=ChrW(&HAB), ReplaceWith:=ChrW(&H101) & ChrW(&H303), Replace:=wdReplaceAll ' a macron tilde
    .Execute FINDText:=ChrW(&HAC), ReplaceWith:=ChrW(&H12B) & ChrW(&H303), Replace:=wdReplaceAll ' i macron tilde
    .Execute FINDText:=ChrW(&HAD), ReplaceWith:=ChrW(&H1E49), Replace:=wdReplaceAll ' n underbar
    .Execute FINDText:=ChrW(&HAE), ReplaceWith:=ChrW(&H72) & ChrW(&H325) & ChrW(&H304), Replace:=wdReplaceAll ' r underring macron
    .Execute FINDText:=ChrW(&HAF), ReplaceWith:=ChrW(&H6C) & ChrW(&H325), Replace:=wdReplaceAll ' l underring
    .Execute FINDText:=ChrW(&HB0), ReplaceWith:=ChrW(&H6C) & ChrW(&H325) & ChrW(&H304), Replace:=wdReplaceAll ' l underring macron
    .Execute FINDText:=ChrW(&HB1), ReplaceWith:=ChrW(&H72) & ChrW(&H325) & ChrW(&H301), Replace:=wdReplaceAll ' r underring acute
    .Execute FINDText:=ChrW(&HB2), ReplaceWith:=ChrW(&H72) & ChrW(&H325) & ChrW(&H300), Replace:=wdReplaceAll ' r underring grave
    .Execute FINDText:=ChrW(&HB3), ReplaceWith:=ChrW(&H72) & ChrW(&H325) & ChrW(&H304) & ChrW(&H301), Replace:=wdReplaceAll ' r underring macron acute
    .Execute FINDText:=ChrW(&HB4), ReplaceWith:="m"&ChrW(&H306), Replace:=wdReplaceAll ' m breve
    .Execute FINDText:=ChrW(&HB5), ReplaceWith:=ChrW(&H101) & ChrW(&H301), Replace:=wdReplaceAll ' a macron acute
    .Execute FINDText:=ChrW(&HB6), ReplaceWith:=ChrW(&H101) & ChrW(&H300), Replace:=wdReplaceAll ' a macron grave
    .Execute FINDText:=ChrW(&HB7), ReplaceWith:=ChrW(&H12B) & ChrW(&H301), Replace:=wdReplaceAll 'i macron acute
    .Execute FINDText:=ChrW(&HB8), ReplaceWith:=ChrW(&H12B) & ChrW(&H300), Replace:=wdReplaceAll 'i macron grave
    .Execute FINDText:=ChrW(&HB9), ReplaceWith:=ChrW(&H113), Replace:=wdReplaceAll ' e macron
    .Execute FINDText:=ChrW(&HBA), ReplaceWith:=ChrW(&H14D), Replace:=wdReplaceAll ' o macron
    .Execute FINDText:=ChrW(&HBB), ReplaceWith:="R" & ChrW(&H325), Replace:=wdReplaceAll ' R underring
    .Execute FINDText:=ChrW(&HBC), ReplaceWith:=ChrW(&H1E8F), Replace:=wdReplaceAll ' y overdot
    .Execute FINDText:=ChrW(&HBD), ReplaceWith:=ChrW(&H16B) & ChrW(&H301), Replace:=wdReplaceAll ' u macron acute
    .Execute FINDText:=ChrW(&HBE), ReplaceWith:=ChrW(&H16B) & ChrW(&H300), Replace:=wdReplaceAll ' u macron grave
    .Execute FINDText:=ChrW(&HBF), ReplaceWith:="r" & ChrW(&H306), Replace:=wdReplaceAll ' r breve
    .Execute FINDText:=ChrW(&HC0), ReplaceWith:=ChrW(&H14D) & ChrW(&H303), Replace:=wdReplaceAll ' o macron tilde
    .Execute FINDText:=ChrW(&HC1), ReplaceWith:="m" & ChrW(&H310), Replace:=wdReplaceAll ' m candrabindu
    .Execute FINDText:=ChrW(&HC2), ReplaceWith:="t" & ChrW(&H331), Replace:=wdReplaceAll ' t underbar
    .Execute FINDText:=ChrW(&HC3), ReplaceWith:=ChrW(&H112), Replace:=wdReplaceAll ' E macron
    .Execute FINDText:=ChrW(&HC4), ReplaceWith:=ChrW(&H14C), Replace:=wdReplaceAll ' O macron
    .Execute FINDText:=ChrW(&HC5), ReplaceWith:="n" & ChrW(&H306), Replace:=wdReplaceAll ' n breve
    .Execute FINDText:=ChrW(&HC6), ReplaceWith:=ChrW(&H1E5B) & ChrW(&H301), Replace:=wdReplaceAll ' r underdot acute
    .Execute FINDText:=ChrW(&HC7), ReplaceWith:=ChrW(&H1E5B) & ChrW(&H300), Replace:=wdReplaceAll ' r underdot grave
    .Execute FINDText:=ChrW(&HC8), ReplaceWith:="K" & ChrW(&H200D) & "h" & ChrW(&H331), Replace:=wdReplaceAll ' Kh underbar
    .Execute FINDText:=ChrW(&HC9), ReplaceWith:=ChrW(&H1E35), Replace:=wdReplaceAll ' k underbar
    .Execute FINDText:=ChrW(&HCA), ReplaceWith:=ChrW(&HA0), Replace:=wdReplaceAll ' non-breaking space
    .Execute FINDText:=ChrW(&HCB), ReplaceWith:=ChrW(&H1E2), Replace:=wdReplaceAll ' AE macron
    .Execute FINDText:=ChrW(&HCC), ReplaceWith:="k" & ChrW(&H200D) & "h" & ChrW(&H331), Replace:=wdReplaceAll ' kh underbar
    .Execute FINDText:=ChrW(&HCD), ReplaceWith:=ChrW(&H121), Replace:=wdReplaceAll ' g overdot
    .Execute FINDText:=ChrW(&HCE), ReplaceWith:=ChrW(&H109), Replace:=wdReplaceAll ' c circumflex
    .Execute FINDText:=ChrW(&HCF), ReplaceWith:=ChrW(&H1E5D) & ChrW(&H301), Replace:=wdReplaceAll ' r underdot macron acute
    .Execute FINDText:=ChrW(&HD0), ReplaceWith:=ChrW(&HE3), Replace:=wdReplaceAll ' a tilde
    .Execute FINDText:=ChrW(&HD1), ReplaceWith:=ChrW(&H129), Replace:=wdReplaceAll ' i tilde
    .Execute FINDText:=ChrW(&HD2), ReplaceWith:=ChrW(&H169), Replace:=wdReplaceAll ' u tilde
    .Execute FINDText:=ChrW(&HD3), ReplaceWith:=ChrW(&H1EBD), Replace:=wdReplaceAll ' e tilde
    .Execute FINDText:=ChrW(&HD4), ReplaceWith:=ChrW(&HF5), Replace:=wdReplaceAll ' o tilde
    .Execute FINDText:=ChrW(&HD5), ReplaceWith:=ChrW(&H115), Replace:=wdReplaceAll ' e breve
    .Execute FINDText:=ChrW(&HD6), ReplaceWith:=ChrW(&H14F), Replace:=wdReplaceAll ' o breve
    .Execute FINDText:=ChrW(&HD7), ReplaceWith:=ChrW(&H1E3B), Replace:=wdReplaceAll ' l underbar
    .Execute FINDText:=ChrW(&HD8), ReplaceWith:=ChrW(&H16B) & ChrW(&H303), Replace:=wdReplaceAll ' u macron tilde
    .Execute FINDText:=ChrW(&HD9), ReplaceWith:=ChrW(&H120), Replace:=wdReplaceAll ' G overdot
    .Execute FINDText:=ChrW(&HDA), ReplaceWith:=ChrW(&H108), Replace:=wdReplaceAll ' C circumflex
    .Execute FINDText:=ChrW(&HDB), ReplaceWith:=ChrW(&H1E96), Replace:=wdReplaceAll ' h underbar
    .Execute FINDText:=ChrW(&HDC), ReplaceWith:=ChrW(&H1E2B), Replace:=wdReplaceAll ' h underbreve
    .Execute FINDText:=ChrW(&HDD), ReplaceWith:=ChrW(&H2013), Replace:=wdReplaceAll ' endash
    .Execute FINDText:=ChrW(&HDE), ReplaceWith:=ChrW(&H2014), Replace:=wdReplaceAll ' emdash
    .Execute FINDText:=ChrW(&HDF), ReplaceWith:=ChrW(&H201C), Replace:=wdReplaceAll ' quotedblleft
    .Execute FINDText:=ChrW(&HE0), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll ' a macron
    .Execute FINDText:=ChrW(&HE1), ReplaceWith:=ChrW(&HDF), Replace:=wdReplaceAll ' germandbls
    .Execute FINDText:=ChrW(&HE2), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll ' A macron
    .Execute FINDText:=ChrW(&HE3), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll ' i macron
    .Execute FINDText:=ChrW(&HE4), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll ' I macron
    .Execute FINDText:=ChrW(&HE5), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll ' u macron
    .Execute FINDText:=ChrW(&HE6), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll ' U macron
    .Execute FINDText:=ChrW(&HE7), ReplaceWith:=ChrW(&H1E5B), Replace:=wdReplaceAll ' r underdot
    .Execute FINDText:=ChrW(&HE8), ReplaceWith:=ChrW(&H1E5A), Replace:=wdReplaceAll ' R underdot
    .Execute FINDText:=ChrW(&HE9), ReplaceWith:=ChrW(&H1E5D), Replace:=wdReplaceAll ' r underdot macron
    .Execute FINDText:=ChrW(&HEA), ReplaceWith:=ChrW(&H1E5C), Replace:=wdReplaceAll ' R underdot macron
    .Execute FINDText:=ChrW(&HEB), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll ' l underdot
    .Execute FINDText:=ChrW(&HEC), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll ' L underdot
    .Execute FINDText:=ChrW(&HED), ReplaceWith:=ChrW(&H1E39), Replace:=wdReplaceAll ' l underdot macron
    .Execute FINDText:=ChrW(&HEE), ReplaceWith:=ChrW(&H1E38), Replace:=wdReplaceAll ' L underdot macron
    .Execute FINDText:=ChrW(&HEF), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll ' n overdot
    .Execute FINDText:=ChrW(&HF0), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll ' N overdot
    .Execute FINDText:=ChrW(&HF1), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll ' t underdot
    .Execute FINDText:=ChrW(&HF2), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll ' T underdot
    .Execute FINDText:=ChrW(&HF3), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll ' d underdot
    .Execute FINDText:=ChrW(&HF4), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll ' D underdot
    .Execute FINDText:=ChrW(&HF5), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll ' n underdot
    .Execute FINDText:=ChrW(&HF6), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll ' N underdot
    .Execute FINDText:=ChrW(&HF7), ReplaceWith:=ChrW(&H15B), Replace:=wdReplaceAll ' s acute
    .Execute FINDText:=ChrW(&HF8), ReplaceWith:=ChrW(&H15A), Replace:=wdReplaceAll ' S acute
    .Execute FINDText:=ChrW(&HF9), ReplaceWith:=ChrW(&H1E63), Replace:=wdReplaceAll ' s underdot
    .Execute FINDText:=ChrW(&HFA), ReplaceWith:=ChrW(&H1E62), Replace:=wdReplaceAll ' S underdot
    .Execute FINDText:=ChrW(&HFB), ReplaceWith:=ChrW(&H201D), Replace:=wdReplaceAll ' quotedblright
    .Execute FINDText:=ChrW(&HFC), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll ' m underdot
    .Execute FINDText:=ChrW(&HFD), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll ' M underdot
    .Execute FINDText:=ChrW(&HFE), ReplaceWith:=ChrW(&H1E25), Replace:=wdReplaceAll ' h underdot
    .Execute FINDText:=ChrW(&HFF), ReplaceWith:=ChrW(&H1E24), Replace:=wdReplaceAll ' H underdot
    .Execute FINDText:="", ReplaceWith:="", Replace:=wdReplaceAll
End With
End Sub

