Installing macro: di_hk_unicode 1. Open Microsoft Word, go to Tools > Macro > Macros or click ALT+F8. 2. Copy in the name of the macro (ie. di_hk_unicode), click Create and the macro editor opens. 3. Copy the macro text that was produced to the clipboard. 4. In the macro editor, replace the text beginning with Sub and ending with End Sub with the text you've copied. 5. The macro is now available at Tools > Macro. Select the macro to be applied and click "Run". 6. Replacing will be faster if you are in normal view instead of print view. View > Normal. ---------- Sub di_hk_unicode() ' ' Macro: di_hk_unicode ' Automatically produced by diCrunch v2.00:b5 ' Creation date: Tue, 05 Jun 2007 13:29:47 +0000 ' Online at http://www.bhasa.net/diCrunch.php ' With Selection.Find .Text = "%A" .Replacement.Text = ChrW(256) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%I" .Replacement.Text = ChrW(298) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%U" .Replacement.Text = ChrW(362) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%R" .Replacement.Text = ChrW(7770) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%q" .Replacement.Text = ChrW(7772) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%G" .Replacement.Text = ChrW(7748) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%J" .Replacement.Text = "Ñ" .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%T" .Replacement.Text = ChrW(7788) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%D" .Replacement.Text = ChrW(7692) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%N" .Replacement.Text = ChrW(7750) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%z" .Replacement.Text = ChrW(346) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%S" .Replacement.Text = ChrW(7778) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%M" .Replacement.Text = ChrW(7744) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%H" .Replacement.Text = ChrW(7716) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%L" .Replacement.Text = ChrW(7734) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%W" .Replacement.Text = ChrW(7736) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%P" .Replacement.Text = ChrW(7694) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "%Y" .Replacement.Text = ChrW(7822) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "A" .Replacement.Text = ChrW(257) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "I" .Replacement.Text = ChrW(299) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "U" .Replacement.Text = ChrW(363) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "R" .Replacement.Text = ChrW(7771) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "q" .Replacement.Text = ChrW(7773) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "G" .Replacement.Text = ChrW(7749) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "J" .Replacement.Text = "ñ" .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "T" .Replacement.Text = ChrW(7789) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "D" .Replacement.Text = ChrW(7693) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "N" .Replacement.Text = ChrW(7751) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "z" .Replacement.Text = ChrW(347) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "S" .Replacement.Text = ChrW(7779) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "M" .Replacement.Text = ChrW(7745) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "H" .Replacement.Text = ChrW(7717) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "L" .Replacement.Text = ChrW(7735) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "W" .Replacement.Text = ChrW(7737) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "P" .Replacement.Text = ChrW(7695) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "Y" .Replacement.Text = ChrW(7823) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "~" .Replacement.Text = ChrW(625) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "_" .Replacement.Text = ChrW(814) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "'" .Replacement.Text = "'" .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "~" .Replacement.Text = ChrW(625) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "/x" .Replacement.Text = "/x" .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "@" .Replacement.Text = ChrW(8230) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "`" .Replacement.Text = ChrW(8217) .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub