Sub VriRomanPaliCN_B_non_Latin2Uni() ' ' macro script for VriRomanPali CN and CB to Unicode for MS Word on non-Latin-Windows (e.g. Chinese, Japanese, Korean Windows) ' InfoTech. Support: Heaven Chou and Gregory Chou, Edited by Nanda (Taiwan), Oct. 2014 ' 把 VriRomanPali CB 字集的文字 轉成 UNICODE 文字之微軟 Word 巨集(適用非拉丁語系, 例如中、日、韓文視窗) ' Heaven Chou 及 Gregory Chou (周) 兩位工程師 師兄提供技術支援, 臺灣 Nanda 編寫 2014.10月. ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Bold = True With Selection.Find .Forward = True .Format = True .Wrap = wdFindContinue .Font.Name = "VriRomanPali CB" .Replacement.Font.Name = "Arial Unicode MS" .MatchCase = True .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute FindText:=" ", ReplaceWith:=" ", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from a to z (從 a 到 z) .Execute FindText:=ChrW(&HF061), ReplaceWith:=ChrW(&H61), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF062), ReplaceWith:=ChrW(&H62), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF063), ReplaceWith:=ChrW(&H63), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF064), ReplaceWith:=ChrW(&H64), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF065), ReplaceWith:=ChrW(&H65), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF066), ReplaceWith:=ChrW(&H66), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF067), ReplaceWith:=ChrW(&H67), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF068), ReplaceWith:=ChrW(&H68), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF069), ReplaceWith:=ChrW(&H69), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06A), ReplaceWith:=ChrW(&H6A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06B), ReplaceWith:=ChrW(&H6B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06C), ReplaceWith:=ChrW(&H6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06D), ReplaceWith:=ChrW(&H6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06E), ReplaceWith:=ChrW(&H6E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06F), ReplaceWith:=ChrW(&H6F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF070), ReplaceWith:=ChrW(&H70), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF071), ReplaceWith:=ChrW(&H71), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF072), ReplaceWith:=ChrW(&H72), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF073), ReplaceWith:=ChrW(&H73), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF074), ReplaceWith:=ChrW(&H74), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF075), ReplaceWith:=ChrW(&H75), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF076), ReplaceWith:=ChrW(&H76), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF077), ReplaceWith:=ChrW(&H77), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF078), ReplaceWith:=ChrW(&H78), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF079), ReplaceWith:=ChrW(&H79), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF07A), ReplaceWith:=ChrW(&H7A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from A to Z (從 A 到 Z) .Execute FindText:=ChrW(&HF041), ReplaceWith:=ChrW(&H41), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF042), ReplaceWith:=ChrW(&H42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF043), ReplaceWith:=ChrW(&H43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF044), ReplaceWith:=ChrW(&H44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF045), ReplaceWith:=ChrW(&H45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF046), ReplaceWith:=ChrW(&H46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF047), ReplaceWith:=ChrW(&H47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF048), ReplaceWith:=ChrW(&H48), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF049), ReplaceWith:=ChrW(&H49), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04A), ReplaceWith:=ChrW(&H4A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04B), ReplaceWith:=ChrW(&H4B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04C), ReplaceWith:=ChrW(&H4C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04D), ReplaceWith:=ChrW(&H4D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04E), ReplaceWith:=ChrW(&H4E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04F), ReplaceWith:=ChrW(&H4F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF050), ReplaceWith:=ChrW(&H50), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF051), ReplaceWith:=ChrW(&H51), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF052), ReplaceWith:=ChrW(&H52), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF053), ReplaceWith:=ChrW(&H53), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF054), ReplaceWith:=ChrW(&H54), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF055), ReplaceWith:=ChrW(&H55), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF056), ReplaceWith:=ChrW(&H56), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF057), ReplaceWith:=ChrW(&H57), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF058), ReplaceWith:=ChrW(&H58), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF059), ReplaceWith:=ChrW(&H59), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05A), ReplaceWith:=ChrW(&H5A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from aa to .l (從 aa 到 .l) .Execute FindText:=ChrW(&HF0B1), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B2), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B3), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0AA), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F1), ReplaceWith:=ChrW(&HF1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B5), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B9), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BA), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BD), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BC), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from AA to .L (從 AA 到 .L) .Execute FindText:=ChrW(&HF0BE), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BF), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D0), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0A9), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D1), ReplaceWith:=ChrW(&HD1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DD), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DE), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F0), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FD), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FE), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from 0 to 9 (從 0 到 9) .Execute FindText:=ChrW(&HF030), ReplaceWith:=ChrW(&H30), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF031), ReplaceWith:=ChrW(&H31), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF032), ReplaceWith:=ChrW(&H32), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF033), ReplaceWith:=ChrW(&H33), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF034), ReplaceWith:=ChrW(&H34), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF035), ReplaceWith:=ChrW(&H35), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF036), ReplaceWith:=ChrW(&H36), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF037), ReplaceWith:=ChrW(&H37), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF038), ReplaceWith:=ChrW(&H38), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF039), ReplaceWith:=ChrW(&H39), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' punctuation marks .Execute FindText:=ChrW(&HF02C), ReplaceWith:=ChrW(&H2C), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F02D ReplaceWith 002D mark: "-" .Execute FindText:=ChrW(&HF02D), ReplaceWith:=ChrW(&H2D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF02E), ReplaceWith:=ChrW(&H2E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03B), ReplaceWith:=ChrW(&H3B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03F), ReplaceWith:=ChrW(&H3F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05B), ReplaceWith:=ChrW(&H5B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05D), ReplaceWith:=ChrW(&H5D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF096), ReplaceWith:=ChrW(&H96), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H91), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H92), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF085), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F091 ReplaceWith 2018 (means ‘) .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2019 (means ’) .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2018 twice (means ‘‘) or .Replacement.Text = "‘‘" .Execute FindText:=ChrW(&HF093), ReplaceWith:="‘‘", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2019 twice (means ’’) or .Replacement.Text = "’’" .Execute FindText:=ChrW(&HF094), ReplaceWith:="’’", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' F093 ReplaceWith 0093 (means “) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H0093), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 0094 (means ”) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H0094), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' ' F091 ReplaceWith 2035 (means ‵) ' .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2035), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2032 (means ′)' .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2032), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2036 (means ?) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H2036), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2033 (means 〃) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H2033), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' replace the others but will change chinese font too! ' .Execute FindText:="", ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue End With Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Forward = True .Format = True .Wrap = wdFindContinue .Font.Name = "VriRomanPali CN" .Replacement.Font.Name = "Arial Unicode MS" .MatchCase = True .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute FindText:=" ", ReplaceWith:=" ", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from a to z (從 a 到 z) .Execute FindText:=ChrW(&HF061), ReplaceWith:=ChrW(&H61), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF062), ReplaceWith:=ChrW(&H62), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF063), ReplaceWith:=ChrW(&H63), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF064), ReplaceWith:=ChrW(&H64), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF065), ReplaceWith:=ChrW(&H65), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF066), ReplaceWith:=ChrW(&H66), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF067), ReplaceWith:=ChrW(&H67), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF068), ReplaceWith:=ChrW(&H68), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF069), ReplaceWith:=ChrW(&H69), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06A), ReplaceWith:=ChrW(&H6A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06B), ReplaceWith:=ChrW(&H6B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06C), ReplaceWith:=ChrW(&H6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06D), ReplaceWith:=ChrW(&H6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06E), ReplaceWith:=ChrW(&H6E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06F), ReplaceWith:=ChrW(&H6F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF070), ReplaceWith:=ChrW(&H70), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF071), ReplaceWith:=ChrW(&H71), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF072), ReplaceWith:=ChrW(&H72), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF073), ReplaceWith:=ChrW(&H73), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF074), ReplaceWith:=ChrW(&H74), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF075), ReplaceWith:=ChrW(&H75), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF076), ReplaceWith:=ChrW(&H76), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF077), ReplaceWith:=ChrW(&H77), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF078), ReplaceWith:=ChrW(&H78), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF079), ReplaceWith:=ChrW(&H79), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF07A), ReplaceWith:=ChrW(&H7A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from A to Z (從 A 到 Z) .Execute FindText:=ChrW(&HF041), ReplaceWith:=ChrW(&H41), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF042), ReplaceWith:=ChrW(&H42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF043), ReplaceWith:=ChrW(&H43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF044), ReplaceWith:=ChrW(&H44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF045), ReplaceWith:=ChrW(&H45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF046), ReplaceWith:=ChrW(&H46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF047), ReplaceWith:=ChrW(&H47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF048), ReplaceWith:=ChrW(&H48), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF049), ReplaceWith:=ChrW(&H49), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04A), ReplaceWith:=ChrW(&H4A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04B), ReplaceWith:=ChrW(&H4B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04C), ReplaceWith:=ChrW(&H4C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04D), ReplaceWith:=ChrW(&H4D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04E), ReplaceWith:=ChrW(&H4E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04F), ReplaceWith:=ChrW(&H4F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF050), ReplaceWith:=ChrW(&H50), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF051), ReplaceWith:=ChrW(&H51), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF052), ReplaceWith:=ChrW(&H52), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF053), ReplaceWith:=ChrW(&H53), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF054), ReplaceWith:=ChrW(&H54), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF055), ReplaceWith:=ChrW(&H55), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF056), ReplaceWith:=ChrW(&H56), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF057), ReplaceWith:=ChrW(&H57), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF058), ReplaceWith:=ChrW(&H58), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF059), ReplaceWith:=ChrW(&H59), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05A), ReplaceWith:=ChrW(&H5A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from aa to .l (從 aa 到 .l) .Execute FindText:=ChrW(&HF0B1), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B2), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B3), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0AA), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F1), ReplaceWith:=ChrW(&HF1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B5), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B9), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BA), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BD), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BC), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from AA to .L (從 AA 到 .L) .Execute FindText:=ChrW(&HF0BE), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BF), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D0), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0A9), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D1), ReplaceWith:=ChrW(&HD1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DD), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DE), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F0), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FD), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FE), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from 0 to 9 (從 0 到 9) .Execute FindText:=ChrW(&HF030), ReplaceWith:=ChrW(&H30), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF031), ReplaceWith:=ChrW(&H31), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF032), ReplaceWith:=ChrW(&H32), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF033), ReplaceWith:=ChrW(&H33), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF034), ReplaceWith:=ChrW(&H34), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF035), ReplaceWith:=ChrW(&H35), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF036), ReplaceWith:=ChrW(&H36), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF037), ReplaceWith:=ChrW(&H37), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF038), ReplaceWith:=ChrW(&H38), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF039), ReplaceWith:=ChrW(&H39), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' punctuation marks .Execute FindText:=ChrW(&HF02C), ReplaceWith:=ChrW(&H2C), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F02D ReplaceWith 002D mark: "-" .Execute FindText:=ChrW(&HF02D), ReplaceWith:=ChrW(&H2D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF02E), ReplaceWith:=ChrW(&H2E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03B), ReplaceWith:=ChrW(&H3B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03F), ReplaceWith:=ChrW(&H3F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05B), ReplaceWith:=ChrW(&H5B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05D), ReplaceWith:=ChrW(&H5D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF096), ReplaceWith:=ChrW(&H96), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H91), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H92), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF085), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F091 ReplaceWith 2018 (means ‘) .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2019 (means ’) .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2018 twice (means ‘‘) or .Replacement.Text = "‘‘" .Execute FindText:=ChrW(&HF093), ReplaceWith:="‘‘", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2019 twice (means ’’) or .Replacement.Text = "’’" .Execute FindText:=ChrW(&HF094), ReplaceWith:="’’", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' F093 ReplaceWith 0093 (means “) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H0093), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 0094 (means ”) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H0094), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' ' F091 ReplaceWith 2035 (means ‵) ' .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2035), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2032 (means ′)' .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2032), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2036 (means ?) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H2036), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2033 (means 〃) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H2033), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' replace the others but will change chinese font too! ' .Execute FindText:="", ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' 以下執行註腳部份 Dim rg As Range Set rg = ActiveDocument.StoryRanges(wdFootnotesStory) rg.Find.ClearFormatting rg.Find.Replacement.ClearFormatting With rg.Find .Forward = True .Format = True .Wrap = wdFindContinue .Font.Name = "VriRomanPali CB" .Replacement.Font.Name = "Arial Unicode MS" .MatchCase = True .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute FindText:=" ", ReplaceWith:=" ", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from a to z (從 a 到 z) .Execute FindText:=ChrW(&HF061), ReplaceWith:=ChrW(&H61), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF062), ReplaceWith:=ChrW(&H62), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF063), ReplaceWith:=ChrW(&H63), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF064), ReplaceWith:=ChrW(&H64), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF065), ReplaceWith:=ChrW(&H65), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF066), ReplaceWith:=ChrW(&H66), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF067), ReplaceWith:=ChrW(&H67), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF068), ReplaceWith:=ChrW(&H68), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF069), ReplaceWith:=ChrW(&H69), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06A), ReplaceWith:=ChrW(&H6A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06B), ReplaceWith:=ChrW(&H6B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06C), ReplaceWith:=ChrW(&H6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06D), ReplaceWith:=ChrW(&H6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06E), ReplaceWith:=ChrW(&H6E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06F), ReplaceWith:=ChrW(&H6F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF070), ReplaceWith:=ChrW(&H70), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF071), ReplaceWith:=ChrW(&H71), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF072), ReplaceWith:=ChrW(&H72), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF073), ReplaceWith:=ChrW(&H73), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF074), ReplaceWith:=ChrW(&H74), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF075), ReplaceWith:=ChrW(&H75), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF076), ReplaceWith:=ChrW(&H76), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF077), ReplaceWith:=ChrW(&H77), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF078), ReplaceWith:=ChrW(&H78), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF079), ReplaceWith:=ChrW(&H79), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF07A), ReplaceWith:=ChrW(&H7A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from A to Z (從 A 到 Z) .Execute FindText:=ChrW(&HF041), ReplaceWith:=ChrW(&H41), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF042), ReplaceWith:=ChrW(&H42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF043), ReplaceWith:=ChrW(&H43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF044), ReplaceWith:=ChrW(&H44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF045), ReplaceWith:=ChrW(&H45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF046), ReplaceWith:=ChrW(&H46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF047), ReplaceWith:=ChrW(&H47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF048), ReplaceWith:=ChrW(&H48), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF049), ReplaceWith:=ChrW(&H49), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04A), ReplaceWith:=ChrW(&H4A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04B), ReplaceWith:=ChrW(&H4B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04C), ReplaceWith:=ChrW(&H4C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04D), ReplaceWith:=ChrW(&H4D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04E), ReplaceWith:=ChrW(&H4E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04F), ReplaceWith:=ChrW(&H4F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF050), ReplaceWith:=ChrW(&H50), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF051), ReplaceWith:=ChrW(&H51), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF052), ReplaceWith:=ChrW(&H52), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF053), ReplaceWith:=ChrW(&H53), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF054), ReplaceWith:=ChrW(&H54), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF055), ReplaceWith:=ChrW(&H55), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF056), ReplaceWith:=ChrW(&H56), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF057), ReplaceWith:=ChrW(&H57), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF058), ReplaceWith:=ChrW(&H58), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF059), ReplaceWith:=ChrW(&H59), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05A), ReplaceWith:=ChrW(&H5A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from aa to .l (從 aa 到 .l) .Execute FindText:=ChrW(&HF0B1), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B2), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B3), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0AA), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F1), ReplaceWith:=ChrW(&HF1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B5), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B9), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BA), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BD), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BC), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from AA to .L (從 AA 到 .L) .Execute FindText:=ChrW(&HF0BE), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BF), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D0), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0A9), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D1), ReplaceWith:=ChrW(&HD1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DD), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DE), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F0), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FD), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FE), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from 0 to 9 (從 0 到 9) .Execute FindText:=ChrW(&HF030), ReplaceWith:=ChrW(&H30), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF031), ReplaceWith:=ChrW(&H31), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF032), ReplaceWith:=ChrW(&H32), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF033), ReplaceWith:=ChrW(&H33), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF034), ReplaceWith:=ChrW(&H34), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF035), ReplaceWith:=ChrW(&H35), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF036), ReplaceWith:=ChrW(&H36), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF037), ReplaceWith:=ChrW(&H37), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF038), ReplaceWith:=ChrW(&H38), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF039), ReplaceWith:=ChrW(&H39), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' punctuation marks .Execute FindText:=ChrW(&HF02C), ReplaceWith:=ChrW(&H2C), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F02D ReplaceWith 002D mark: "-" .Execute FindText:=ChrW(&HF02D), ReplaceWith:=ChrW(&H2D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF02E), ReplaceWith:=ChrW(&H2E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03B), ReplaceWith:=ChrW(&H3B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03F), ReplaceWith:=ChrW(&H3F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05B), ReplaceWith:=ChrW(&H5B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05D), ReplaceWith:=ChrW(&H5D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF096), ReplaceWith:=ChrW(&H96), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H91), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H92), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF085), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F091 ReplaceWith 2018 (means ‘) .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2019 (means ’) .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2018 twice (means ‘‘) or .Replacement.Text = "‘‘" .Execute FindText:=ChrW(&HF093), ReplaceWith:="‘‘", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2019 twice (means ’’) or .Replacement.Text = "’’" .Execute FindText:=ChrW(&HF094), ReplaceWith:="’’", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' F093 ReplaceWith 0093 (means “) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H0093), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 0094 (means ”) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H0094), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' ' F091 ReplaceWith 2035 (means ‵) ' .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2035), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2032 (means ′)' .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2032), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2036 (means ?) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H2036), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2033 (means 〃) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H2033), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' replace the others but will change chinese font too! ' .Execute FindText:="", ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue End With ' 以下執行註腳部份 Set rg = ActiveDocument.StoryRanges(wdFootnotesStory) rg.Find.ClearFormatting rg.Find.Replacement.ClearFormatting With rg.Find .Forward = True .Format = True .Wrap = wdFindContinue .Font.Name = "VriRomanPali CN" .Replacement.Font.Name = "Arial Unicode MS" .MatchCase = True .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute FindText:=" ", ReplaceWith:=" ", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from a to z (從 a 到 z) .Execute FindText:=ChrW(&HF061), ReplaceWith:=ChrW(&H61), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF062), ReplaceWith:=ChrW(&H62), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF063), ReplaceWith:=ChrW(&H63), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF064), ReplaceWith:=ChrW(&H64), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF065), ReplaceWith:=ChrW(&H65), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF066), ReplaceWith:=ChrW(&H66), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF067), ReplaceWith:=ChrW(&H67), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF068), ReplaceWith:=ChrW(&H68), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF069), ReplaceWith:=ChrW(&H69), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06A), ReplaceWith:=ChrW(&H6A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06B), ReplaceWith:=ChrW(&H6B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06C), ReplaceWith:=ChrW(&H6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06D), ReplaceWith:=ChrW(&H6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06E), ReplaceWith:=ChrW(&H6E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF06F), ReplaceWith:=ChrW(&H6F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF070), ReplaceWith:=ChrW(&H70), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF071), ReplaceWith:=ChrW(&H71), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF072), ReplaceWith:=ChrW(&H72), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF073), ReplaceWith:=ChrW(&H73), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF074), ReplaceWith:=ChrW(&H74), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF075), ReplaceWith:=ChrW(&H75), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF076), ReplaceWith:=ChrW(&H76), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF077), ReplaceWith:=ChrW(&H77), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF078), ReplaceWith:=ChrW(&H78), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF079), ReplaceWith:=ChrW(&H79), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF07A), ReplaceWith:=ChrW(&H7A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from A to Z (從 A 到 Z) .Execute FindText:=ChrW(&HF041), ReplaceWith:=ChrW(&H41), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF042), ReplaceWith:=ChrW(&H42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF043), ReplaceWith:=ChrW(&H43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF044), ReplaceWith:=ChrW(&H44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF045), ReplaceWith:=ChrW(&H45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF046), ReplaceWith:=ChrW(&H46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF047), ReplaceWith:=ChrW(&H47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF048), ReplaceWith:=ChrW(&H48), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF049), ReplaceWith:=ChrW(&H49), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04A), ReplaceWith:=ChrW(&H4A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04B), ReplaceWith:=ChrW(&H4B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04C), ReplaceWith:=ChrW(&H4C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04D), ReplaceWith:=ChrW(&H4D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04E), ReplaceWith:=ChrW(&H4E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF04F), ReplaceWith:=ChrW(&H4F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF050), ReplaceWith:=ChrW(&H50), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF051), ReplaceWith:=ChrW(&H51), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF052), ReplaceWith:=ChrW(&H52), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF053), ReplaceWith:=ChrW(&H53), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF054), ReplaceWith:=ChrW(&H54), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF055), ReplaceWith:=ChrW(&H55), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF056), ReplaceWith:=ChrW(&H56), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF057), ReplaceWith:=ChrW(&H57), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF058), ReplaceWith:=ChrW(&H58), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF059), ReplaceWith:=ChrW(&H59), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05A), ReplaceWith:=ChrW(&H5A), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from aa to .l (從 aa 到 .l) .Execute FindText:=ChrW(&HF0B1), ReplaceWith:=ChrW(&H101), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B2), ReplaceWith:=ChrW(&H12B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B3), ReplaceWith:=ChrW(&H16B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0AA), ReplaceWith:=ChrW(&H1E45), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F1), ReplaceWith:=ChrW(&HF1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B5), ReplaceWith:=ChrW(&H1E6D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0B9), ReplaceWith:=ChrW(&H1E0D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BA), ReplaceWith:=ChrW(&H1E47), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BD), ReplaceWith:=ChrW(&H1E43), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BC), ReplaceWith:=ChrW(&H1E37), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from AA to .L (從 AA 到 .L) .Execute FindText:=ChrW(&HF0BE), ReplaceWith:=ChrW(&H100), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0BF), ReplaceWith:=ChrW(&H12A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D0), ReplaceWith:=ChrW(&H16A), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0A9), ReplaceWith:=ChrW(&H1E44), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0D1), ReplaceWith:=ChrW(&HD1), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DD), ReplaceWith:=ChrW(&H1E6C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0DE), ReplaceWith:=ChrW(&H1E0C), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0F0), ReplaceWith:=ChrW(&H1E46), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FD), ReplaceWith:=ChrW(&H1E42), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF0FE), ReplaceWith:=ChrW(&H1E36), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' from 0 to 9 (從 0 到 9) .Execute FindText:=ChrW(&HF030), ReplaceWith:=ChrW(&H30), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF031), ReplaceWith:=ChrW(&H31), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF032), ReplaceWith:=ChrW(&H32), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF033), ReplaceWith:=ChrW(&H33), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF034), ReplaceWith:=ChrW(&H34), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF035), ReplaceWith:=ChrW(&H35), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF036), ReplaceWith:=ChrW(&H36), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF037), ReplaceWith:=ChrW(&H37), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF038), ReplaceWith:=ChrW(&H38), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF039), ReplaceWith:=ChrW(&H39), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' punctuation marks .Execute FindText:=ChrW(&HF02C), ReplaceWith:=ChrW(&H2C), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F02D ReplaceWith 002D mark: "-" .Execute FindText:=ChrW(&HF02D), ReplaceWith:=ChrW(&H2D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF02E), ReplaceWith:=ChrW(&H2E), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03B), ReplaceWith:=ChrW(&H3B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF03F), ReplaceWith:=ChrW(&H3F), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05B), ReplaceWith:=ChrW(&H5B), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF05D), ReplaceWith:=ChrW(&H5D), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF096), ReplaceWith:=ChrW(&H96), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H91), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H92), Replace:=wdReplaceAll, Wrap:=wdFindContinue .Execute FindText:=ChrW(&HF085), ReplaceWith:=ChrW(&H2026), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F091 ReplaceWith 2018 (means ‘) .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2018), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2019 (means ’) .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2019), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2018 twice (means ‘‘) or .Replacement.Text = "‘‘" .Execute FindText:=ChrW(&HF093), ReplaceWith:="‘‘", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2019 twice (means ’’) or .Replacement.Text = "’’" .Execute FindText:=ChrW(&HF094), ReplaceWith:="’’", Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' F093 ReplaceWith 0093 (means “) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H0093), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 0094 (means ”) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H0094), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' or ' ' F091 ReplaceWith 2035 (means ‵) ' .Execute FindText:=ChrW(&HF091), ReplaceWith:=ChrW(&H2035), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F092 ReplaceWith 2032 (means ′)' .Execute FindText:=ChrW(&HF092), ReplaceWith:=ChrW(&H2032), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F093 ReplaceWith 2036 (means ?) ' .Execute FindText:=ChrW(&HF093), ReplaceWith:=ChrW(&H2036), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' F094 ReplaceWith 2033 (means 〃) ' .Execute FindText:=ChrW(&HF094), ReplaceWith:=ChrW(&H2033), Replace:=wdReplaceAll, Wrap:=wdFindContinue ' replace the others but will change chinese font too! ' .Execute FindText:="", ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue End With End With End Sub