ࡱ> #%"[@   bjbj44 "ViVi2222222F  F N      $, R~ `C !2C 22d ***22**"*L)22u 0Xh Az 0 I, R uFF2222 2u\*C C FF*  FF*Pinyin Word Template Usage In Office XP go to Tools ( Options ( Security Tab ( Macro Security and set to Medium. Close and reload Word, and select enable macros when prompted. In Office 2000 go to Tools ( Macros ( Security and set security to medium. Make sure that you are using the Lucida Sans Unicode font. To convert text to Pinyin, use numbers: Zhe2 shi2 shu2wei2 Then select the text, and press ctrl-shift-1: Zh sh shwi Use v or uu to represent . For instance: nuu3 or nv3 ( n To convert back to numbers, select the text, and press  ctrl-shift-2 . The macro currently does not work very well  the numbers are placed at the end of vowels instead of syllables. Delete this text before use ( *67ABPQ  v x ۻۻۑۄh5:h|Y hOJQJ^J jJh Hh HOJQJ^J jh6?:h eXOJQJ^Jh eXOJQJ^J jh Hh HOJQJ^J jhXh^"DOJQJ^Jh HOJQJ^J!hXh^"DB*OJQJ^Jphh^"DOJQJ^J D l   x  & Fgd eX & Fgd eX & Fgd^"D & Fgd^"Dgd^"D &1h:p5a)/ =!"#$%@@@ NormalCJ_HaJmH sH tH DA@D Default Paragraph FontRiR  Table Normal4 l4a (k(No ListDl000 0 0 0 0 0D 0 0 0 0 0  0x0D{00{00 @0;00*l? Ellis Rahhal@v)(0Z^`OJPJQJ^Jo(^`OJQJ^Jo(hHopp^p`OJQJo(hH@ @ ^@ `OJQJo(hH^`OJQJ^Jo(hHo^`OJQJo(hH^`OJQJo(hH^`OJQJ^Jo(hHoPP^P`OJQJo(hH@v)(v*N        }|Y C}!q)5a)p8'-<^"D eXZ>o HCr-D12V((V((Project.NewMacros.FromPinyinProject.NewMacros.ToPinyinPROJECT.NEWMACROS.TOPINYINPROJECT.NEWMACROS.FROMPINYIN@8<@@@ UnknownGz Times New Roman5Symbol3& z ArialO& k9?Lucida Sans Unicode;Wingdings?5 z Courier New"1hF4r"sr khkh!r4d!3QH)?-DPinyin Template Ellis Rahhal Oh+'0x  4 @ LX`hpPinyin Templateinyinyinyiny pinyin.dotl Ellis Rahhalte9liMicrosoft Word 10.0@q@ E@ghkh՜.+,0 hp|  n{ Pinyin Template Title X ^ !$('),*+OW./0123456789:;<=>?@ABCDEFGHIJKLMNPQRSTUVYZ[\]_`aRoot Entry F0 [h&@1Table #WordDocument"SummaryInformation(DocumentSummaryInformation8Macros0'Vh0XhVBA 0'Vh0Xhdir !"$%&'()*+,-./012456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY[\]^_`bd 0* pHdProjectQ(@= l Ē? J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\STDOLE@2.TLB# Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\@10\MSO.DLL# 10.0 Ob Libra,ryK".ThisDocumentGT isDcumon] 2 HB1Bx%BE,!n"B+B NewMa>G wMaZr%hs 2 O "9O 6!C K*srU~~~~~~o #F)0JlV    pA )Project1Project ThisDocument__SRP_0 Z__SRP_1__SRP_2 ^__SRP_3 Module1 NewMacrosF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a 0 F5C:\Program Files\Microsoft Office\Office10\MSWORD.OLBWord Y@0FC:\WINDOWS\System32\STDOLE2.TLBstdole iPL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`ToPinyin FromPinyin DrU  &Macro created 2/6/2003 by Ellis RahhalNormal.NewMacros.ToPinyinNormal.NewMacros.FromPinyinYrU~| frU $`a$`an.n#xME NewMacros -oCThisDocument#_VBA_PROJECT3 PROJECTZ9.6xME(6 << <h  `@pPP&Macro created 2/6/2003 by Ellis RahhalNormal.NewMacros.ToPinyin 0`&Macro created 2/6/2003 by Ellis RahhalNormal.NewMacros.FromPinyinX%0 Ē? $*\Rffff*0?3f92c4df"   .( X ` p     08 P `p     8 @ P`px     0 @P`h       0@PX p      0@X ` p     08 P `p      ( @ P`px      0 @P`h        0 @ P X  p             0 @ H  `  p             0 8  P  ` p            (  @  P ` p x          (  @  P ` x         (0 H Xh    08 P `p     8@ X hx    (@H ` p    0HP h x    (8PX p      0@X` x    ( "0 8 @ .X    0@P`h   0@PX p   0@H `p   08 P`p   ( @P`px   0@P`h    0@PX p    0@H ` p     08  P`p  ToPinyin Macro' Macro created 2/6/2003 by Ellis Rahhal "!$ler19d]1r5&(dqh ,* "!$B@( "!$<r29dDes2r5&(d-q ,* "!$B@( "!$r39d3r5&(dq ,* "!$B@( "!$r49d4r5&(dqx ,* "!$B@( "!$r59d5r5&(dq( ,* "!$B@( "!$ng19d1ng5&(d ,* "!$B@(q "!$ng29d2ng5&(dq ,* "!$B@( "!$ng39d3ng5&(dq8 ,* "!$B@( "!$ng49d4ng5&(dq ,* "!$B@( "!$ng59d5ng5&(dq ,* "!$B@( "!$n19d1n5&(dqH ,* "!$B@( "!$n29d2n5&(dq ,* "!$B@( "!$n39d3n5&(dq ,* "!$B@( "!$n49d4n5&(dqX ,* "!$B@( "!$n19d5n5&(dq ,* "!$B@( "!$ai19da1i5&(d ,* "!$B@(q "!$ai29da2i5&(dqh ,* "!$B@( "!$ai39da3i5&(dq ,* "!$B@( "!$ai49da4i5&(dq ,* "!$B@( "!$ai59da5i5&(dqx ,* "!$B@( "!$ei19de1i5&(dq( ,* "!$B@( "!$ei29de2i5&(dq ,* "!$B@( "!$ei39de3i5&(dq ,* "!$B@( "!$ei49de4i5&(dq8 ,* "!$B@( "!$ei59de5i5&(dq ,* "!$B@( "!$ao19da1o5&(dq ,* "!$B@( "!$ao29da2o5&(dqH ,* "!$B@( "!$ao39da3o5&(dq ,* "!$B@( "!$ao49da4o5&(dq ,* "!$B@( "!$ao59da5o5&(dqX ,* "!$B@( "!$ou19do1u5&(dq ,* "!$B@( "!$ou29do2u5&(dq ,* "!$B@( "!$ou39do3u5&(dqh ,* "!$B@( "!$ou49do4u5&(dq ,* "!$B@( "!$ou59do5u5&(dq ,* "!$B@( "!$uu19dv15&(dqx ,* "!$B@( "!$uu29dv25&(dq( ,* "!$B@( "!$uu39dv35&(dq ,* "!$B@( "!$uu49dv45&(dq ,* "!$B@( "!$uu9d$.5&(dq0 ,* "!$B@( "!$o19dM$.5&(dq ,* "!$B@( "!$o29d$.5&(dq ,* "!$B@( "!$o39d$.5&(dq( ,* "!$B@( "!$o49d$.5&(dq ,* "!$B@( "!$e19d$.5&(dqx ,* "!$B@( "!$e29d$.5&(dq  ,* "!$B@( "!$e39d$.5&(dq ,* "!$B@( "!$e49d$.5&(dqp ,* "!$B@( "!$i19d+$.5&(dq ,* "!$B@( "!$0&i29d$.5&(dq ,* "!$B@( "!$i39d$.5&(dqh ,* "!$B@( "!$i49d$.5&(dq ,* "!$B@( "!$u19d(~&k$.5&(dq ,* "!$B@( "!$u29d$.5&(dq` ,* "!$B@( "!$u39d$.5&(dq ,* "!$B@( "!$u49d$.5&(dq ,* "!$B@( "!$v19d$.5&(dqX ,* "!$B@( "!$v29d$.5&(dq ,* "!$B@( "!$v39d$.5&(dq ,* "!$B@( "!$v49d$.5&(dqP ,* "!$B@( "!$a19d$.5&(dq ,* "!$B@( "!$a29d$.5&(dq ,* "!$B@( "!$a39d$.5&(dqH ,* "!$B@( "!$a49d$.5&(dq ,* "!$B@(o  FromPinyin Macro' Macro created 2/6/2003 by Ellis Rahhal "!$M$.9do15&(dq8 ,* "!$B@( "!$$.9do25&(dq ,* "!$B@( "!$$.9do35&(dq ,* "!$B@( "!$$.9do45&(dqH ,* "!$B@( "!$$.9de15&(dq ,* "!$B@( "!$$.9de25&(dq ,* "!$B@( "!$$.9de35&(dqX ,* "!$B@( "!$$.9de45&(dq ,* "!$B@( "!$+$.9di15&(dq ,* "!$B@( "!$$.9di25&(dqh ,* "!$B@( "!$$.9di35&(dq ,* "!$B@( "!$$.9di45&(dq ,* "!$B@( "!$k$.9du15&(dqx ,* "!$B@( "!$$.9du25&(dq( ,* "!$B@( "!$$.9du35&(dq ,* "!$B@( "!$$.9du45&(dq ,* "!$B@( "!$$.9dv15&(dq8 ,* "!$B@( "!$$.9dv25&(dq ,* "!$B@( "!$$.9dv35&(dq ,* "!$B@( "!$$.9dv45&(dqH ,* "!$B@( "!$$.9da15&(dq ,* "!$B@( "!$$.9da25&(dq ,* "!$B@( "!$$.9da35&(dqX ,* "!$B@( "!$$.9da45&(dq ,* "!$B@( "!$v19duu15&(dq ,* "!$B@( "!$v29duu25&(dqh ,* "!$B@( "!$v39duu35&(dq ,* "!$B@( "!$v49duu45&(dq ,* "!$B@( "!$$.9duu5&(dqx ,* "!$B@(oXPAttribute VB_Name = "NewMacros" Sub ToPinyin()  T.rDescriptionz created 2/6/2003 by Ellis RahhalPro cDataYInvoke_Funcormal. .L' '= # With Selecd.Find .Tex2tAr16 Replacement1rEnd **.Exec:=wdXAll9E2E2kE_E3"3"dE4".UJg4! 65R5?A ngと1ng'˸QGG^gaR2?QCjbtF/ngP3?rN4N5g1nb????L$2s34iq? 7q5/qo(7uo(nz&ai?7a1iOxxgg+O/Hai((2!p0 XoX((3/__ai((4////Z]x(5///&pe)e) 6 {e)))߁BAA"ei)e)///[])()//// )()//'3) )aoRGa1oz))) vaoR(2/99߿AZ-)(3/////X)(4/////(5" .Replacement.Text = "a5oEnd With Selection.Find.ExecuteB z:=wdAll p n#ou1o1u; 2A2bA3A3bA4 4 bo5 žBEuEvĮ  A F uuR$E$th$uuV8%?w $u~uX8%??$uVChrW(&HFC)S\=GJo%X14D^ 88o=]&3]%D2eo^%}}P /Tndc'Ke%[1oTo "e% 9E9_Po o o B 0%o ` 11B     !w % 8o o o o o 1 0f i%o 2    0w % /Uo o o o 0g %o D0o    !w % qqo o o o 0f ߟҵK6%    0w %FA_po o o o !g %o ` 1D4     A 0w % ^o o o o 0f Á= %D60   } ޲ .Text = "v2" ReplacementChrW(&H1D8)End WithSelection.Find.ExecuteB :=wdAllb; 6U3%Ak4KCKa1N01'낍csadE%K%CEKK$E0% !zSub @ FromP@inyin( A`ttribaz.VB_Descr ipAMacro created 2/6/2003 by Ellis Rahh alS ProcDataa Invoke_Funca Normal.New s.' ' 'h ba^ BFY@4D/b$"o%qߥߥޥF3qe2%qFq%18eK+-_/d0 ,E9_"e%??r?o 81B | %  -t E.?B "e%o o o o o e 12"i%     /Um %o o o o o D5vo i%   _  o ei%o o o o o 6%lu%    { u FU¡_Pu%o o o o o D4KKu%     ^]%o o oo o o 6v%     w ^veqq {1Dl/placement.Text = "v3" End With4Selection.Find.Execute Re:=wdAllbv l0ChrW(&H1DC)J 4Dg*01NTa1EK2pK1CEK?qE0%%('"vőuuj$F8K p8_J??ƤEE8I? 7 2Fީuu?޼ Sub (SLSS<N0{00020906-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2as  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.2#0#C:\Program Files\Microsoft Office\Office10\MSWORD.OLB#Microsoft Word 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\STDOLE2.TLB#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library Ē? .ThisDocument063f92c411ThisDocumentn%NewMacros0?3f92c4dfNewMacros698d7S7{A, JQM[ MxHt'WordkVBAWin16~Win32MacVBA6#Project1 stdole`Project- ThisDocument< _EvaluateNormalOfficeuDocumentjModule1b NewMacrosjToPinyin4) SelectionZFindn ReplacementExecuteYReplacef wdReplaceAllu#ChrW FromPinyinT  $ID="{BA5BA91B-837F-486F-9591-786F0A0C5962}" Document=ThisDocument/&H00000000 Module=NewMacros Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="3C3EDC22245A285A285A285A28" DPB="787A985B995B995B" GC="B4B654AAACE7ADE7AD18" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewMacros=44, 44, 609, 679, Z ThisDocumentThisDocumentNewMacrosNewMacros  FMicrosoft Word Document MSWordDocWord.Document.89qPROJECTwmaGCompObjcj[@ bjbj44 "ViVi>>>>>>>Rv  RO$R#>>> >>>>| 0Xhv0O##RR>>>>#> RR$vRRv 1h/ =!"#$%L@L Normal$CJ OJPJQJ_HaJ mH sH tH DAD Default Paragraph FontRiR  Table Normal4 l4a (k(No List<;05:K*@8<@8@UnknownGz Times New Roman5Symbol3& z ArialO& k9?Lucida Sans Unicode;Wingdings?5 z Courier New"0h0H?K*