Sub n2u_mac2pc()
With Selection.Find
    .ClearFormatting
    .MatchCase = True
    .MatchWholeWord = False
    .Font.Name = "Times_Norman"
    .Replacement.Font.Name = "IndUni-T"
    .Execute FINDText:=ChrW(&HF0C7), ReplaceWith:=ChrW(&H12B) & ChrW(&H303), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0E5), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF086), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF095), ReplaceWith:=ChrW(&H1E5D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0DF), ReplaceWith:=ChrW(&H15B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0AE), ReplaceWith:=ChrW(&H1E5B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0A9), ReplaceWith:=ChrW(&H161), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF099), ReplaceWith:=ChrW(&H16B) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0D8), ReplaceWith:=ChrW(&H14D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0A5), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0B5), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF084), ReplaceWith:=ChrW(&H113), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0BA), ReplaceWith:=ChrW(&H14D) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0BF), ReplaceWith:=ChrW(&HAF) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0A1), ReplaceWith:=ChrW(&H101) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0AC), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF083), ReplaceWith:=ChrW(&H103), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0AB), ReplaceWith:=ChrW(&H12B) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0BB), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF085), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF08C), ReplaceWith:="m" & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF09C), ReplaceWith:=ChrW(&H153), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF096), ReplaceWith:=ChrW(&H2013), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF097), ReplaceWith:=ChrW(&H2014), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF093), ReplaceWith:=ChrW(&H201C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF094), ReplaceWith:=ChrW(&H201D), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0F7), ReplaceWith:=ChrW(&H6C) & ChrW(&H325), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0FF), ReplaceWith:=ChrW(&H1E25), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF09F), ReplaceWith:=ChrW(&HD7), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF080), ReplaceWith:=ChrW(&H72) & ChrW(&H325), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&H2039), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF09B), ReplaceWith:=ChrW(&H1E62), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF087), ReplaceWith:=ChrW(&H2021), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0B7), ReplaceWith:=ChrW(&H1E5B) & ChrW(&H301), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF082), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0AA), ReplaceWith:=ChrW(&H113) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF089), ReplaceWith:=ChrW(&H12B) & ChrW(&H306), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0C2), ReplaceWith:=ChrW(&H1E5F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0CA), ReplaceWith:="r" & ChrW(&H324), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0C1), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0CB), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0C8), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0CD), ReplaceWith:=ChrW(&H15A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0CE), ReplaceWith:=ChrW(&H2020), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0CF), ReplaceWith:=ChrW(&H115), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0CC), ReplaceWith:=ChrW(&H14F), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0D3), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0D4), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0D2), ReplaceWith:=ChrW(&H1E3B), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0DA), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0DB), ReplaceWith:=ChrW(&H179), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0D9), ReplaceWith:=ChrW(&H1E5A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF088), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF098), 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(&HF0F0), ReplaceWith:=ChrW(&H17A), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF08B), ReplaceWith:=ChrW(&H1E44), 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:=ChrW(&H222B), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll
    .Execute FINDText:=ChrW(&HF0A2), ReplaceWith:=ChrW(&H1EBD), Replace:=wdReplaceAll
    .Execute FINDText:="", ReplaceWith:="", Replace:=wdReplaceAll
End With
End Sub
