About use of the Chinese character which is not in a computer Reuse and sharing of data by the large-scale character set and the Macro program HUKUDA Sinobu 1 125000 800 JIS 2 2000 3 1 488 545 2 JIS X 0208 6350 3
OS Windows Mac OS Windows Mac OS Windows XP Mac OS X 1 2002 3.2 7 2 OS 7 7 1 Windows 95 Mac OS 8.5 2 http://www.unicode.org/
Windows Mac OS 2 2 2 2 14 Windows XP Office XP Proofing Tools 7 2 7 OS Windows XP Microsoft Word Mac OS X Microsoft Word 1 Windows XP Mac OS X TextEdit Windows Windows95 1
OS JIS 1 OS OS OS OS 1 JIS X 0208 1978 1983 1983
1 OS OS GT Macintosh 1 JIS
Windows GT Macintosh Windows 1 GT 12 GT 6 7 GT JIS Windows Macintosh 1 OS TRON TRON
http://www.mojikyo.org/ 10 2002 5 http://nohara.ushimane.ac.jp/ekanji/index.html GT G T 1 2000 66773 Windows Mac OS TRON http://www.l.u-tokyo.ac.jp/gt/index.html GT JIS 1 http://www.l.u-tokyo.ac.jp/kanjiweb/01_01.html
GT GT GT GT 1 GT 2002 12 2 GT GT 1 2 http://www.l.u-tokyo.ac.jp/gt/license.html
GT GT2000-09 JIS JIS GT GT2000-08 1 OS 1 Mojikyo M101 Mojikyo M203 33 GT GT2000-01 GT2000-11 11 GT 11
GT 1 GT 1 GT2000-09
TRON OS Windows Mac OS TRON Windows Mac OS IRIZ 1 IRIZ Windows Mac OS CNS OS OS OS IRIZ GT 1 1995 http://www.iijnet.or.jp/iriz/irizhtml/kanjibas/cefintroj.htm
Microsoft Word GT Microsoft Word GT GT098a89; GT098a89; Microsoft Word Windows Mac OS OS Windows Mac OS Macintosh Mac OS X Windows XP JIS GT Macintosh Microsoft Word OS GT
OS Microsoft Word Visual Basic Editor http://homepage1.nifty.com/chinaclassic/macro/macrotitle.html Windows Word 2000 Macintosh Word 2001 Word X GT JIS ; GT GT GT09 8A89 ; GT GT098A89; CodetoGT GT GT GT GT GTtoCode GT GT GT
GT GT098a89; Windows GT GT GT GT^N^S; OK GT Microsoft Word GT http://ms326.ms.utokyo.ac.jp/otobe/hobby/gtcode.html. GT GT.. Microsoft Word
GT. Microsoft Word GT GT. GT GT GT Microsoft Word 10 Word VBA 1999 8
2001 2 2001 4 2002 4 JIS 2002 5 2002 5
Sub CodetoGT() ' GT GT+ JIS +; ' GT ' With Selection.Find.ClearFormatting.MatchAllWordForms = False.MatchSoundsLike = False.MatchFuzzy = False.MatchWildcards = True.Text = "GT[0-1][0-9]????;".Forward = True.Wrap = wdfindcontinue End With Do While Selection.Find.Execute With Selection FntNum = Mid(.Text, 3, 2) ChrNum = "&H" & Mid(.Text, 5, 4) If Val(FntNum) > 11 Or Val(FntNum) < 1 Then MsgBox " " Exit Sub End If If Val(ChrNum) > &HF040 Or Val(ChrNum) < &H889F Then MsgBox " " Exit Sub End If FntNum = "GT2000-" & FntNum.Text = Chr(ChrNum).Font.Name = FntNum.Collapse direction:=wdcollapseend End With Loop MsgBox " GT " End Sub Sub GTtoCode() ' GT GT+ JIS +; ' ' For i = 1 To 11 With Selection.Find.ClearFormatting.MatchAllWordForms = False.MatchSoundsLike = False.MatchFuzzy = False.MatchWildcards = True.Format = True.Font.Name = "GT2000-" & Format(i, "00").Text = "?".Forward = True.Wrap = wdfindcontinue End With Do While Selection.Find.Execute With Selection ChrCd = Hex(Asc(.Text)).Text = "GT" & Format(i, "00") & ChrCd & ";".Font.Name = " ".Collapse direction:=wdcollapseend End With Loop Next MsgBox "GT " End Sub