WPC[F ėa0 긂긂a0 DmͿqYЂþ\0*iY˅3O0Z#33;Qh D*Ix"o; _y-$g +t,s\k?o']t nц]9Hr%=xnbv NHAՏg*>xGE\GSܹ]mDu;cT 0xߕ Yr=FpTd+1g&7Rc[;:k{vpEC?n\& ,*q^|ná#rCƔZn%9-ul[|H| Nܖ949\YB64y`|tsH6g 0 |QKRi-.zv=!WnK /|?qvOB# %eNk 0mUF^ w4 m UT  0tU,U: 1u 72i   0r]<]<]<]<]<]<]<]<]<]<]<]<]<]<]<]<]<]< D5<<<<< AS====== B W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W=W= D5t= B= D5= B= D5> BM> D5j> B> D1> D5> B*"? D5L? B*? D5? B*? D5 @ B*?@ D5i@ B7@ B7@ C A C&A C@A CZA CtA CA CA CA CA CA 0B CBBB 0B 0D.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C.C 0rCrCrCrCrCrCrCDDDDDDDDDDDD B-DDDDDDDDDDDDDDDDDDDDDDD DEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE DKLELE 0EEEEEEEEEEEEEEEEEE CAFHP LaserJet 5L0 X!(2$TRW6&A4X3' Letter 6&A43' Letter3'LetterT<UKUS.,    lXXX XXXXX  . Z.Century Schoolbook N8[7sL6:i+003|xUH. Z<Century Schoolbook Regular<oo@B:QuickFormat1X{XXX&5%XX{cb  X{XXX&5%XX{cb  ,iAZArial "Arial Regular3#37=CIQYag1.a.i.(1)(a)(i)1)a)i)95[H:\MasterMacros\DBCSRemove.wcm # 5  $CHECKVERSION11@ HB VRC rVRC{H[LIE<HoLEXITLOB*@Hx LIB)VHRTHB+:HEHB NNNH rNNNL@x'L@B(x!VMINrVMIN aQ?: a?VMINHvVANSLRo DBCSRemoveLN-oIt will take about rVMIN=o minutes to clean this filerVHRT/oIs it OK to proceed?LN[[LIBn)@rVANS[-/HE*/!H[LIB*@$[ DBCSCOUNT& DBCSCLEANUP@*+H!o L_ENDFOOTNOTELOB*@,H oLQE%-H[LIE.HE0 DBCSCLEANUP@2HB+f3HE4:5#,L_CONTFOOTNOTE69HE:;Ho L_ENDENDNOTELOB*@<H oLQE%=H[LIE>HE@ DBCSCLEANUP@BHB+sCHEDGE!, L_CONTENDNOTEFIHEJHB@[2K!, L_ENDGRAPHICSLNH!o L_ENDGRAPHICSLOB*@OHB@NBOXESQ[ IrNBOXES rI[ IcRH rILUESHB@[;T#,L_SKIPGRAPHICSUVHE@X DBCSCLEANUP@Z[HB+x\HE]L^HE_HBP`H[LI[LIEabcdHBP eH[LI[LIEf jHEkHB@[2t l, L_ENDCAPTIONmt oHo L_ENDCAPTIONLOB*@pHB@NBOXESr[ IrNBOXESL  rI[ I sH rILUEtHB@[; u!, L_SKIPCAPTIONv wHEy DBCSCLEANUP@{}HB+ ~HE HEHBPA H[LI[LIEA  HBP H[LI[LIE HEH!o L_ENDCOMMENTSLOB*@H o}LQE%H[LIEHE DBCSCLEANUP@HB+v HEJ HBP H[LI[LIE #,L_FINDCOMMENTSHEHoL_WBLOB*@HoL_WBLOB*@H oLQE%H[LIEH[LIEт DBCSCLEANUP@HB+ HE , L_STARTWAHEHoL_HALOB*@HoL_HALOB*@H oLQE%H[LIEH[LIE҂ DBCSCLEANUP@HB+HE, L_STARTWBHEHoL_HBLOB*@HoL_HBLOB*@H oLQE%H[LIEH[LIE DBCSCLEANUP@HB+(HE, L_STARTHAHEHoL_FALOB*@HoL_FALOB*@H oLQE%H[LIEH[LIE DBCSCLEANUP@HB+JHE, L_STARTHBHEHoL_FBLOB*@HoL_FBLOB*@H oLQE%H[LIEH[LIE DBCSCLEANUP@, L_STARTFAHEH+oL_ENDSUBSTRUCTURESLOB*@H+oL_ENDSUBSTRUCTURESLOB*@H oLQE%H[LIEH[LIE DBCSCLEANUP@HB+HEn , L_STARTFB  HE0H rVRCLIE<Ho DBCSRemoveLN1oDBCS Codes deleted = r DBCSCOUNTLNBn)@HvVANSLRo DBCSRemoveLNGo It is recommended that language wo8settings for Language: CS are removed from your documentrVHRTrVHRTyo9Would you like all language codes to be reset to default?LNBn)@rVANS[-bHE*bHEH o|LQE%HoLQE&H[LIE-HE0HE* !H[LIB~@"$HB@xO*HB@xN*?/%HE&HBZ@ FF'HB[@ FS(HE&)H rFFLQE*H rFSLXE+r DBCSCOUNT[ DBCSCOUNT,D-HE./HB@o*HB@[*0[|525Hx LIB)VHRT6H[L@[LIB,+ NNN7 rNNN aXb/FB2 rNNN a`/FB-8HvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@>rVANS[-yHE*y@[|5[)5!1 L_STARTFB31 L_ENDSUBSTRUCTURES!1 L_STARTFA1YL_FB1gL_FA!1X L_STARTHB1EL_HB!16 L_STARTHA1#L_HA!1 L_STARTWB1L_WB!1 L_STARTWA)1 L_ENDCOMMENTS+1 L_FINDCOMMENTS)1{ L_SKIPCAPTION'1L L_ENDCAPTION+1ZDL_SKIPGRAPHICS)1c L_ENDGRAPHICS'1F L_ENDENDNOTE)1: L_CONTENDNOTE)16 L_ENDFOOTNOTE+1*L_CONTFOOTNOTE1LEXIT++12CHECKVERSION11%1  DBCSCLEANUPN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter4>;2Arial 10X=XX XXX=tttt)!dxdxiE<<C d)!dxdx  d)!dxdxP Pd)!dxdx d)!dxdx d)! dxdx)!dxdx&0 d d)!dxdx&P d d)!dxdx&p d Pd)!dxdx&p Pd d)!dxdx3+0 d d d3+0 d d dd ddd(d2dl:StandardFontStandard Font ChoiceX;XXXX;XXX;ԃLevel 1Level 2Level 3Level 4Level 5)Hairline d9Hairline!dxdxtttt?Single Blue!dxdx:p{U8Alt Legal 40  0` ""0 ` "` "2#(  0  )3    dd !TRW6&A4X3' Letter 6&A43' Letter3'LetterT<UKUS.,    XXX XXXXX  _!XXXX,H,XX%  =XXdd=IfPlatform("comment")  =dXXd=USUK.,K A(Bd dd#sK W;,H,,,HZ,,H   MacroDBCSRemove.wcm 0   h   Version14.0.0@=#=#=#2008May01 E RemoveDBCSfontfaceandsizecodesfromalltext %u  CharlesRossiter  U charles@rossiter.co.za0 0 =# =# pp#=#=#=#CheckedinWordPerfectversions11X4 UK.,US.,Ԉ 5 @""""!@,H,ZEndIfPlatform("comment")#Z,,H#USUK.,     2=#. //CheckBuildofWPWin11   H [ CallCheckVersion11()    &%ZApplication(WordPerfect;WordPerfect;Default!) I   #Z%&#&%ZUK.,US.,0USUK.,vRC=?RevealCodesActive  l  AIf(notvRC)  ?  ЀRevealCodes(On!) (=#. B&%%&&%%&&%%&cb    [//RevealCodesmustbeswitchedonB&%%&&%%&&%%&cb    ݈    V ԀEndIf   #Z%&橅#} UK.,US.,OnCancel(LExit) h  vHRt=NToC(0F90Ah) 'w  While(?SubStructure)     SubStructureExit() d   EndWhile #s nnn=DocumentInfo()  vMin=RoundOff(nnn;10000)/1000 ` vMin=(vMin*0.12)+0.1 o MessageBox(vAns;"DBCSRemove";"Itwilltakeabout"+vMin+"minutestocleanthisfile"+vHRt+  Ѐ"IsitOKtoproceed?";USUK.,OKCancel!|IconWarning!UK.,US., ) \ If(vAns>1) k ЀQuit * ЀEndIf  USUK., NotFound(On!) g   UK.,US.,   &!  GlobalDBCSCount=0  o  0  0` =#=#0 ` =#` =#0 =# =#0h=#=#0h=#h=#0=#=# //SectionforMainText .~=#=#  DBCSCleanUp  `     h      //ProcedureforremovingDBCScodes  = USUK.,      M    U      ] //SectionforFootnotes UK.,US.,USUK.,  PosDocVeryTop()UK.,US.,USUK.,  o UK.,US.,FUSUK.,Label(l_ContFootNote)  .~  OnNotFound(l_EndFootNote)  = UK.,US.,USUK.,SearchString(StrgToLookFor:">  [Footnote]?  ")    z UK.,US.,USUK.,SearchNext(SearchMode:Regular!) k FootNoteEdit() * z UK.,US.,USUK.,DBCSCleanUp   UK.,US.,VUSUK.,While(?SubStructure) & v    SubStructureExit()  5    EndWhile     Go(l_ContFootNote) c  UK.,US.,USUK.,Label(l_EndFootNote)  "r  UK.,US.,  1  USUK.,   M    U      ] //SectionforEndnotesV UK.,US.,  USUK.,PosDocVeryTop()UK.,US.,USUK., o  UK.,US.,USUK.,Label (l_ContEndNote ) .~  OnNotFound(l_EndEndNote)  = UK.,US.,XUSUK.,SearchString(StrgToLookFor:">  [Endnote]?  ")  0  =#=# W SearchNext(SearchMode:Regular!) k EndNoteEdit() * z DBCSCleanUp    While(?SubStructure) & v    SubStructureExit()  5    EndWhile    UK.,US.,USUK., Go (l_ContEndNote ) c   Label(l_EndEndNote)  "r  UK.,US.,USUK.,  1      M    U      ] //SectionforTextBoxes   PosDocVeryTop() o UK.,US.,NUSUK.,If(?boxCount<1) .~   Go(l_EndGraphics)  =    M EndIf   OnError(l_EndGraphics)  * z NBoxes=?BoxCount  9  For(i;1;Nboxes;i+1)  g   BoxEdit(i) & v  If(?BoxContentType<>1)0  5  =# =# 0  Go(l_SkipGraphics )  =#=# 0  0M =#=#EndIfc M =#M =# BoxContentEdit() "r   DBCSCleanUp   Label(l_SkipGraphics)  n  While(?SubStructure) -   SubStructureExit()    EndWhile [ UK.,US.,rUSUK.,SelectOff() j If(?GraphicSelected) ) 0  BoxEnd(Save!;Hide!)=#=#   EndIf  W EndFor  f  Label(l_EndGraphics)  % If(?GraphicSelected)  0  0M =#=#BoxEnd(Save!;Hide!)SM =#M =# 0   M EndIf b=#=# UK.,US.,USUK.,  ! @*   ] //SectionforGraphicsCaptions   PosDocVeryTop() .~ UK.,US.,USUK.,If(?boxCount<1) =   Go(l_EndCaption)      M EndIf k  OnError(l_EndCaption)   9 NBoxes=?BoxCount    For(i;1;Nboxes;i+1)  & v  BoxEdit(i)  5  If(?BoxContentType<>3)      Go(l_SkipCaption ) c     M EndIf "r  BoxCaptionEdit() 1   DBCSCleanUp  _  UK.,US., USUK., Label(l_SkipCaption)  - While(?SubStructure) [   SubStructureExit() j    M EndWhile ) SelectOff()  If(?GraphicSelected) W 0  BoxEnd(Save!;Hide!)f=#=#   EndIf %  EndFor  S  Label(l_EndCaption) !  If(?GraphicSelected) O! BoxEnd(Save!;Hide!) ^" EndIf # UK.,US.,"USUK.,  $    M    U      ] //SectionforComments%   UK.,US.,\%USUK.,PosDocVeryTop() o UK.,US.,Y&USUK., Label(l_FindComments) .~ OnNotFound(l_EndComments) =  SearchString(StrgToLookFor:"> } [Comment]?  ") k SearchNext(SearchMode:Extended!) * z CommentEdit()  9  DBCSCleanUp g    While(?SubStructure)  5    SubStructureExit()      EndWhile c  UK.,US.,&USUK., If(?GraphicSelected) "r  BoxEnd(Save!;Hide!) 1  EndIf    UK.,US.,(USUK.,Go(l_FindComments)  _   Label(l_EndComments)  n  UK.,US.,>)USUK.,  -     M    U      ] //SectionforWatermarkAR*   PosDocVeryTop() o UK.,US.,)USUK., Label(l_StartWA)  .~  OnNotFound(l_WB) = OnError(l_WB)   SearchString(StrgToLookFor:">  [WatermarkA]?  ") * z SearchNext(SearchMode:Regular!)UK.,US.,*USUK.,  9 WatermarkA(Action:Edit!)    DBCSCleanUp  & v   While(?SubStructure)      SubStructureExit() c    EndWhile "r  UK.,US., ,USUK., Go(l_StartWA)  1  UK.,US.,0- USUK.,Label(l_WB)   UK.,US.,-USUK.,  _     M    U      ] //SectionforWatermarkB_.    UK.,US.,-USUK.,PosDocVeryTop() o UK.,US.,.USUK., Label(l_StartWB)  .~  OnNotFound(l_HA) = OnError(l_HA)   SearchString(StrgToLookFor:">  [WatermarkB]?  ")   * z  0 SearchNext(SearchMode:Regular!)  9 WatermarkB(Action:Edit!)    DBCSCleanUp  & v  While(?substructure)      SubStructureExit() c    EndWhile "r   Go(l_StartWB)  1  UK.,US.,)/ USUK.,Label(l_HA)    UK.,US.,1USUK.,  _      M    U      ] //SectionforHeaderA|2   UK.,US.,1USUK.,PosDocVeryTop() o UK.,US.,2 USUK.,Label(l_StartHA)  .~ UK.,US.,@3 OnNotFound(l_HB) = OnError(l_HB)   SearchString(StrgToLookFor:">  [HeaderA]?  ")   * z 44 SearchNext(SearchMode:Regular!)  9 HeaderA(Action:Edit!)    DBCSCleanUp  & v   USUK.,While(?SubStructure)      SubStructureExit() c    EndWhile "r  UK.,US.,5 Go(l_StartHA)  1   Label(l_HB)     _     M    U      ] //SectionforHeaderBx6   PosDocVeryTop() o  Label(l_StartHB)  .~  OnError(l_FA) = OnNotFound(l_FA)   SearchString(StrgToLookFor:">  [HeaderB]?  ")   * z 7 SearchNext(SearchMode:Regular!)  9 HeaderB(Action:Edit!)    DBCSCleanUp & v   USUK.,While(?SubStructure)      SubStructureExit() c    EndWhile "r  UK.,US.,8 Go(l_StartHB)     Label(l_FA)  _    n      M    U      ] //ContinuationforFooterA :   PosDocVeryTop() o  OnError(l_FB) .~ OnNotFound(l_FB) = Label(l_StartFA)   SearchString(StrgToLookFor:">  [FooterA]?  ")   * z N; SearchNext(SearchMode:Regular!)  9 FooterA(Action:Edit!)    DBCSCleanUp  & v   Go(l_StartFA)      Label(l_FB)  c    "r     M    U      ] //ContinuationforFooterB<    PosDocVeryTop() o  OnError(l_EndSubstructures) .~ OnNotFound(l_EndSubstructures) = Label(l_StartFB)   SearchString(StrgToLookFor:">  [FooterB]?  ") * z SearchNext(SearchMode:Regular!)  9 FooterB(Action:Edit!)    DBCSCleanUp & v   USUK.,While(?SubStructure)      SubStructureExit() c    EndWhile "r  UK.,US.,> Go(l_StartFB)     Label(l_EndSubstructures)   U      ] //EndofSubStructures  _    n  PosDocTop()   @Label(LExit)8 M    U      ] @//EndofMacroDBCSRemove OA .~ RevealCodes(vRC) = MessageBox(;"DBCSRemove";"DBCSCodesdeleted="+DBCSCount) k MessageBox(vAns;"DBCSRemove";"Itisrecommendedthatlanguage"+ * z Ѐ"settingsforLanguage:CSareremovedfromyourdocument"+vHRt+vHRt+  9 Ѐ"Wouldyoulikealllanguagecodestoberesettodefault?")   USUK.,If(vAns>1)0 M Quit0 M =#M =#EndIfUK.,US.,:Cg   =# =# USUK.,ԀPosDocVeryTop()  5  ЀSearchString(StrgToLookFor:"> | [Lang]?  ")    ЀReplaceString(RplcStrg:"") c  ЀReplaceForward(SearchMode:Extended!) "r  ЀPosDocTop() 1  UK.,US.,C Quit _    n     M    U      ] //DBCSCleanUpProcedure 1E   ProcedureDBCSCleanUp()  o Display(On!) .~ Repeat   M    U  //Checkeverycharacterindocument F = 0  0M =#=#0 M =#M =#0 =# =#0U =# =# //DBCSfontfaceandfontsizecodestoberemoved GGU=#U=# If((?rightcode=20436)or(?rightcode=20180))     k PosCharNext() * z ff=?font M    U  //Getcurrentfontfaceandsize H  9 fs=?fontsize   DeleteCharPrevious()   U  //DeleteDBCScode II g   Font(ff) M    U  //ReplaceDBCScodesbycurrentfontfaceandsize I & v  Fontsize(fs) M    U  //.......tomaintainoriginalformatting J  5  DBCSCount=DBCSCount+1  U  //Countreplacements /K    Else c  PosCharNext() "r  EndIf 1  Until((?rightchar="")and(?rightcode=0))   //UntilendofDocumentorSubStructure L    EndProc  M    U    //EndofProcedure L _    n   USUK.,ProcedureCheckVersion11()    2=#. //CheckBuildofWPWin11  .~ =MvHRt=NToC(63754) = nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!)  If(nnn<11000000000300.0andnnn>11000000000000.0) k MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ * z "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+  9 "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+   "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt; g   OKCancel!|IconWarning!) & v  If(vAns>1)0 M Quit0 M =#M =#EndIf0 =# =#EndIf   =# =#  EndProc  "r  QUK.,US.,MM  1