Sub n2u_mac()
With Selection.Find
    .ClearFormatting
    .MatchCase = True
    .MatchWholeWord = False
    .Font.Name = "Times_Norman"
    .Replacement.Font.Name = "IndUni-T"
    .Execute FINDText:=ChrW(&HC7), ReplaceWith:=ChrW(&H12B) & ChrW(&H303), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HE5), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2020), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HA2), ReplaceWith:=ChrW(&H1EBD), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2022), ReplaceWith:=ChrW(&H1E5D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HDF), ReplaceWith:=ChrW(&H15B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HAE), ReplaceWith:=ChrW(&H1E5B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HA9), ReplaceWith:=ChrW(&H161), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2122), ReplaceWith:=ChrW(&H16B) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HD8), ReplaceWith:=ChrW(&H14D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HA5), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HB5), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HAA), ReplaceWith:=ChrW(&H113) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HBA), ReplaceWith:=ChrW(&H14D) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HBF), ReplaceWith:=ChrW(&HAF) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HA1), ReplaceWith:=ChrW(&H101) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HAC), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H192), ReplaceWith:=ChrW(&H103), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HAB), ReplaceWith:=ChrW(&H12B) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HBB), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H85), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H152), ReplaceWith:="m"&ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H9C), ReplaceWith:=ChrW(&H153), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H96), ReplaceWith:=ChrW(&H2013), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H97), ReplaceWith:=ChrW(&H2014), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H93), ReplaceWith:=ChrW(&H201C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H94), ReplaceWith:=ChrW(&H201D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H91), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H92), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF7), ReplaceWith:=ChrW(&H6C) & ChrW(&H325), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HFF), ReplaceWith:="n"&ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H178), ReplaceWith:=ChrW(&HD7), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H20AC), ReplaceWith:=ChrW(&H72) & ChrW(&H325), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2039), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H203A), ReplaceWith:=ChrW(&H1E62), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H87), ReplaceWith:=ChrW(&H2021), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HB7), ReplaceWith:=ChrW(&H1E5B) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H201A), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H201E), ReplaceWith:=ChrW(&H113), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2030), ReplaceWith:=ChrW(&H12B) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HC2), ReplaceWith:=ChrW(&H1E5F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HCA), ReplaceWith:="r"& ChrW(&H324), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HC1), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HCB), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HC8), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HCD), ReplaceWith:=ChrW(&H15A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HCE), ReplaceWith:=ChrW(&H2020), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HCF), ReplaceWith:=ChrW(&H115), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HCC), ReplaceWith:=ChrW(&H14F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HD3), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HD4), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HD2), ReplaceWith:=ChrW(&H1E3B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HDA), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HDB), ReplaceWith:=ChrW(&H179), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HD9), ReplaceWith:=ChrW(&H1E5A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2C6), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2DC), ReplaceWith:=ChrW(&H1E49), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2260), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H221E), ReplaceWith:=ChrW(&H129), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2264), ReplaceWith:=ChrW(&H101) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2265), ReplaceWith:=ChrW(&H16B) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2202), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2211), ReplaceWith:=ChrW(&H1E63), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H220F), ReplaceWith:=ChrW(&H113) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H3C0), ReplaceWith:=ChrW(&H17A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H222B), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2126), ReplaceWith:=ChrW(&H169), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H221A), ReplaceWith:="j"&ChrW(&H304), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2248), ReplaceWith:=ChrW(&H16D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2206), ReplaceWith:=ChrW(&H101) & ChrW(&H303), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H25CA), ReplaceWith:=ChrW(&H1E41), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2044), ReplaceWith:=ChrW(&H1E5D) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HFB01), ReplaceWith:=ChrW(&H1E24), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HFB02), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HFFFD), ReplaceWith:=ChrW(&H16B) & ChrW(&H303), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2D9), ReplaceWith:=ChrW(&H1E25), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2DA), ReplaceWith:=ChrW(&H12D), Replace:=wdReplaceAll
    .Execute FINDText:="", ReplaceWith:="", Replace:=wdReplaceAll
End With
End Sub
