WPC] Q~[|[|ohavNSKԜI6nJ؇^z }xӴwǻE:sqI2]QS)%ڜ*}xާ 1#nPgJ&'vhN']T>KDK( (b@lU}2"Sy>:;mYB^t+"˾eБVI@a[}?ٟdK+t,ӯ ̝ը^/WSȻRԯ,(C`^(,*26+<1\øt_P .nal%;\BuFyBȟ@hz; @e'po1+bA^7^ӂ$jV'm@[VUw+40;%U?rVO=zlrHT)L5\0 [ ǔy`gҘ3iZ84"`L0v B 0# %W]w#^ '43GV mXNo 1uqUFU:,U1,f 72 0EUT 1[( 0U 0 0 0 0? 0 0! 0X" 0" 0# 0e$ 06% 0% 0& 0=' 0' 0y( 0) 0) 0]* 0++ 0+ 0, 0)- 0- 0_. 0.<{/U*/ 0N/ 72/0 0fa0%0 \2 oooooooooooooooooooooooooooooooooooooooooooooooooo D5uuuuu AS B B* C0DDDDDDDDDDDDDDDDDDDDDDD D3t B7 B7ސސސސސސ 0 0# 0D111 D-uuu C C D3֕ B D3& 0cYYYYYY B Cٖٖٖٖٖٖ B C֗֗֗֗֗ 0 D3 BŘŘ D3 D/ D5D D3y B* D3֙ B* D33 B*f D3 BÚ D5 D- DKBBBBBBBBBB C C C Cۛ C C C) CC($TRW6&A4W6&A4 6&A4X3' Letter 6&A4X3' LetterTHP LaserJet 5L0XLevel 1Level 2Level 3Level 4Level 5z/8ȃ7sL6WPWIN3|x U3#37=CIQYag1.a.i.(1)(a)(i)1)a). Z.Century Schoolbook "Arial Regular,iAZArial  i)(3$ !TRW6&A4X3' Letter 6&A4X3' Letter3'LetterTX]XXX"XX]  . Z<Century Schoolbook Regulary379;=?AGM1.a.1)*+ (_2623  ..*G+G (_25   /%` ` hp x /23  ../%` ` hp x /   *8+8 (_24  ," hp x ,23  ..," hp x ,  *5+5 (_23 ` ) hp x )23  ..) hp x ) ` *2+2 (_22  &hhp x &23  ..&hhp x &  */+/ (_21  #p x #23  ..#p x #  *,+, (_20 h  p x 23  .. p x h *)+) (_19  pp x 23  ..pp x   *&+& (_18   x 23  .. x   *AA (_17  5+ ` hp x 523  Ԁ5+ ` hp x 5  *GG (_16   /%` ` hp x /23  Ԁ/%` ` hp x /   *88 (_15  ," hp x ,23  Ԁ," hp x ,  *55 (_14 ` ) hp x )23  Ԁ) hp x ) ` *22 (_13  &hhp x &23  Ԁ&hhp x &  *// (_12  #p x #23  Ԁ#p x #  *,, (_11 h  p x 23  Ԁ p x h *)) (_10  pp x 23  Ԁpp x   (&& &_9   x 23  Ԁ x   (AA &_8  5+ ` hp x 523  5+ ` hp x 5  (GG &_7   /%` ` hp x /23  /%` ` hp x /   (88 &_6  ," hp x ,23  ," hp x ,  (55 &_5 ` ) hp x )23  ) hp x ) ` (22 &_4  &hhp x &23  &hhp x &  (// &_3  #p x #23  #p x #  (,, &_2 h  p x 23   p x h ()) &_1  pp x 23  pp x   &&& $_   x 23   x   mailto:charles@rossiter.co.za%2A`Arial(O$a)(W$ @``)`   A   'XXXX&XX  _ StyleList.wcm@33"`Version_13.1.0_Ԉ?#Page  1  ڀof  9  _Ԉ  CharlesRossiter    h charles@rossiter.co.zaSS<#30August2007 o _At) xdE-aA 95H:\MasterMacros\StyleList.wcmZ[[[5\ $CHECKVERSION11@Hx LIB)HRTHxLIB)VBOLDONHxLIB)VBOLDOFFHxLIB)VLARGEONHxLIB) VLARGEOFFHx LIB)VTABH[LIB*@HoLQUITLOB*@HB){HEMHBQ[ *Ho StyleListLNio1 This macro needs to use 1 empty document rHRTso6 You are now using all 9 available documents rHRT rHRTIo!Please close at least 1 document, rHRT9oand then rerun Style List rHRTLNBn)@H[LIB~@,LQUIT 0H!v NWPSTYLECOUNTLR[LI[LI[LIE1!r NWPSTYLECOUNT[ WPSTYLES[2[ JY #(F1-FIRST)!r NWPSTYLECOUNTr #(F1-FIRST)q( rJ-H[Oc #(F1-STEP)r #(F1-STEP) rJ JZ #(F1-FIRST) rJr #(F1-STEP)[2-23Hv NWPSTYLENAMELR[LI[LI[LI rJL@E4 rJ[r NWPSTYLENAME WPSTYLES[5 #(F1-FIRST) #(F1-STEP)7[H[S WPSTYLES[LZB* WPSTYLES[9H%vNUSERSTYLECOUNTLR[LI[LI[LIE;%rNUSERSTYLECOUNT[ USERSTYLES[<[ IY #(F2-FIRST)%rNUSERSTYLECOUNTr #(F2-FIRST) ( rI-~ [ c #(F2-STEP) r #(F2-STEP) rI IZ #(F2-FIRST) rIr #(F2-STEP)[2: - D 2 =H#vNUSERSTYLENAMELR[LI[LI[LI rIL@E> rI[#rNUSERSTYLENAME USERSTYLES[?  #(F2-FIRST) #(F2-STEP)A[H[S USERSTYLES[LZB* USERSTYLES[C[ DUPLICATESD[ JY #(F3-FIRST)%rNUSERSTYLECOUNT[r #(F3-FIRST)| ( rJ-S [Z c #(F3-STEP) r #(F3-STEP) rJ JZ #(F3-FIRST) rJr #(F3-STEP)[2 - 2E rJ[S USERSTYLES[ rJ[[S USERSTYLES[*Fr DUPLICATES[ DUPLICATESGHvVANSLR/oDuplicate Style nameLNo Duplicate: rJ[[S USERSTYLES[LN[LIBn)@HrVANS[-I,LQUITJK rJ[[o USERSTYLES[LM  #(F3-FIRST) #(F3-STEP)O%rNUSERSTYLECOUNTr DUPLICATES'NUSERSTYLECOUNT2Q[H[S USERSTYLES[LZB* USERSTYLES[Sr DUPLICATES[*THvVANSLRo DuplicateLN_o,There is one duplicate in the list of styles rHRToBThis duplicate style name has been omitted from the list of stylesLN[LIBn)@VrVANS[-W,LQUITXYZr DUPLICATES[-[HvVANSLRo DuplicatesLNo There are r DUPLICATESIo! duplicates in the list of styles rHRToEThese duplicate style names have been omitted from the list of stylesLN[LIBn)@]rVANS[-^,LQUIT_`c'rNUSERSTYLECOUNT2[  USERSTYLES2[e[ JY #(F4-FIRST)'rNUSERSTYLECOUNT2r #(F4-FIRST)( rJ-[c #(F4-STEP)r #(F4-STEP) rJ JZ #(F4-FIRST) rJr #(F4-STEP)[2q-{2f rJ[ rJ[S USERSTYLES[ USERSTYLES2[gI #(F4-FIRST) #(F4-STEP)i'rNUSERSTYLECOUNT2!r NWPSTYLECOUNT'NUSERSTYLECOUNT3j'rNUSERSTYLECOUNT3[*k, STYLESSKIPln'rNUSERSTYLECOUNT3[  USERSTYLES3[p[ Kq[ Lr[ JY #(F5-FIRST)'rNUSERSTYLECOUNT2r #(F5-FIRST)(( rJ-[c #(F5-STEP)Xr #(F5-STEP) rJ JZ #(F5-FIRST) rJr #(F5-STEP)[2-=2=s rJ[S USERSTYLES2[ rL[S WPSTYLES[*Mt rL[ Luv rK[ rJ[S USERSTYLES2[ USERSTYLES3[w rK[ Kxy rK'rNUSERSTYLECOUNT3-2z, STYLESSKIP{2| #(F5-FIRST) #(F5-STEP)~[H[S USERSTYLES3[LZB* USERSTYLES3[H%vNWPOUTLINECOUNTLR[LI[LI[LIE%rNWPOUTLINECOUNT[ WPOUTLINES[[ JY #(F6-FIRST)%rNWPOUTLINECOUNTr #(F6-FIRST)6( rJ- [c #(F6-STEP)fr #(F6-STEP) rJ JZ #(F6-FIRST) rJr #(F6-STEP)[2-2H#vNWPOUTLINENAMELR[LI[LI[LI rJL@E rJ[#rNWPOUTLINENAME WPOUTLINES[ #(F6-FIRST) #(F6-STEP)[H[S WPOUTLINES[LZB* WPOUTLINES[H)vNUSEROUTLINECOUNTLR[LI[LI[LIE)rNUSEROUTLINECOUNT[" USEROUTLINES[[ IY #(F7-FIRST))rNUSEROUTLINECOUNTr #(F7-FIRST)( rI-g[nc #(F7-STEP)r #(F7-STEP) rI IZ #(F7-FIRST) rIr #(F7-STEP)[2# - - 2 H'vNUSEROUTLINENAMELR[LI[LI[LI rIL@E rI['rNUSEROUTLINENAME! USEROUTLINES[ #(F7-FIRST) #(F7-STEP)[H[!S USEROUTLINES[LZB*! USEROUTLINES[[ DUPLICATES[ JY #(F8-FIRST))rNUSEROUTLINECOUNT[r #(F8-FIRST)}"( rJ-T"[["c #(F8-STEP)"r #(F8-STEP) rJ JZ #(F8-FIRST) rJr #(F8-STEP)[2#-$%#2$% rJ[!S USEROUTLINES[ rJ[[!S USEROUTLINES[*%r DUPLICATES[ DUPLICATESHvVANSLR3oDuplicate Outline nameLNo Duplicate: rJ[[!S USEROUTLINES[LN[LIBn)@rVANS[-$,LQUIT$ rJ[[o! USEROUTLINES[%! #(F8-FIRST) #(F8-STEP))rNUSEROUTLINECOUNTr DUPLICATES+NUSEROUTLINECOUNT2[H[!S USEROUTLINES[LZB*! USEROUTLINES[r DUPLICATES[*(HvVANSLRo DuplicateLNco.There is one duplicate in the list of Outlines rHRToFThis duplicate Outline name has been omitted from the list of OutlinesLN[LIBn)@rVANS[-',LQUIT'(r DUPLICATES[-*HvVANSLRo DuplicatesLNo There are r DUPLICATESMo# duplicates in the list of Outlines rHRToIThese duplicate Outline names have been omitted from the list of OutlinesLN[LIBn)@rVANS[-),LQUIT)*+rNUSEROUTLINECOUNT2[$USEROUTLINES2[[ JY #(F9-FIRST)+rNUSEROUTLINECOUNT2r #(F9-FIRST)'+( rJ-*[+c #(F9-STEP)W+r #(F9-STEP) rJ JZ #(F9-FIRST) rJr #(F9-STEP)[2+-1,+21, rJ[ rJ[!S USEROUTLINES[# USEROUTLINES2[* #(F9-FIRST) #(F9-STEP)+rNUSEROUTLINECOUNT2%rNWPOUTLINECOUNT+NUSEROUTLINECOUNT3+rNUSEROUTLINECOUNT3[*V-, OUTLINESSKIPV-+rNUSEROUTLINECOUNT3[$USEROUTLINES3[[ K[ L[ JY #(F10-FIRST)+rNUSEROUTLINECOUNT2r #(F10-FIRST).( rJ-t.[{.c #(F10-STEP).r #(F10-STEP) rJ JZ #(F10-FIRST) rJr #(F10-STEP)[28/-0B/20 rJ[#SUSEROUTLINES2[ rL[S WPOUTLINES[*/ rL[ LW0 rK[ rJ[#SUSEROUTLINES2[# USEROUTLINES3[ rK[ K rK+rNUSEROUTLINECOUNT3-0, OUTLINESSKIP0. #(F10-FIRST) #(F10-STEP)[H[#SUSEROUTLINES3[LZB*# USEROUTLINES3[HEHoArialLQEH g$@LXEHBUNAMErUNAMEo*B2oUnknownUNAMEB2HoLCHK1LOB*@H[LIB++UNAMEoUnknownCNAMEHoLCHK2LOB*@H[LIB++CNAMEHIrVBOLDONrVLARGEONSo&Listing of WordPerfect and User Styles rHRTrVBOLDOFFr VLARGEOFFLQEHI rHRToMacro rVBOLDON!o StyleList.wcmrVBOLDOFFLQEHIrVTABoVersion rVBOLDONo13.1.0rVTABrVTABrVBOLDOFF#o2007 August 30LQEHEUHIo Copyright rVBOLDON+oCharles E RossiterrVTABrVTAB3ocharles@rossiter.co.zaLQEHEUHEJHEUHI rHRTrVBOLDOFFHB)rVBOLDOFFo for User rVBOLDONrUNAMErVBOLDOFF!o on computer rVBOLDONrCNAMErVBOLDOFFLQEHEUHEUHI#oMacro Output: rVBOLDON?oListing and Number of StylesrVBOLDOFFo for:LQEHEUHEUHIrVTABrVBOLDON-oUser-Created Styles rHRTLQEHIrVTABrVBOLDON9oWordPerfect System Styles rHRTLQEHIrVTABrVBOLDON;oAll System and User Styles rHRTLQEHEUHIrVTABrVBOLDON1oUser-Created Outlines rHRTLQEHIrVTABrVBOLDON=oWordPerfect System Outlines rHRTLQEHIrVTABrVBOLDON?oAll System and User Outlines rHRTLQEHEUHEJHEUH[LI a?LJI \ @LX[LII \ffffff?LX[LII \ @LX[LII \ffffff?L X[L II \ @L X[L II \ffffff?L X[LII \ @LX[LII \ffffff?LX[LIEHvVANSLR-oUser-Created StylesLN3oUser-Created Styles = 'rNUSERSTYLECOUNT3LN[LIBn)@rVANS[-,>,LQUIT,>HIrVBOLDON9oUser Created Styles (N = 'rNUSERSTYLECOUNT3 o)rVBOLDOFF rHRT rHRTLQE 'rNUSERSTYLECOUNT3[*r? !, SKIPSTYLELIST r? [ JY #(F11-FIRST)'rNUSERSTYLECOUNT3r #(F11-FIRST)?@( rJ-@[@c #(F11-STEP)q@r #(F11-STEP) rJ JZ #(F11-FIRST) rJr #(F11-STEP)[2@-CA@2CA HI rJ[S USERSTYLES3[LQEHEU? #(F11-FIRST) #(F11-STEP)HEWH vANSLR'oWP System StylesLN-oWP System Styles = !r NWPSTYLECOUNTLN[LIBn)@rVANS[-B,LQUITBHIrVBOLDONEoWordPerfect System Styles (N = !r NWPSTYLECOUNT o)rVBOLDOFF rHRT rHRTLQE[ JY #(F12-FIRST)!r NWPSTYLECOUNTr #(F12-FIRST)/D( rJ-D[ Dc #(F12-STEP)aDr #(F12-STEP) rJ JZ #(F12-FIRST) rJr #(F12-STEP)[2D--ED2-EHI rJ[S WPSTYLES[LQEHEUC #(F12-FIRST) #(F12-STEP)HEW H vANSLR9oWP System and User StylesLNGo All WP System and User Styles = 'rNUSERSTYLECOUNT2LN[LIBn)@!rVANS[-F",LQUIT#F$HIrVBOLDON]o+All WP and User Styles, no duplicates (N = 'rNUSERSTYLECOUNT2 o)rVBOLDOFF rHRT rHRTLQE%[ JY #(F13-FIRST)'rNUSERSTYLECOUNT2r #(F13-FIRST)jH( rJ-?H[FHc #(F13-STEP)Hr #(F13-STEP) rJ JZ #(F13-FIRST) rJr #(F13-STEP)[2I-lI I2lI&HI rJ[S USERSTYLES[LQE'HEU(G #(F13-FIRST) #(F13-STEP))HEW,HvVANSLR1oUser-Created OutlinesLN7oUser-Created Outlines = +rNUSEROUTLINECOUNT3LN[LIBn)@-rVANS[-J.,LQUIT/J0HIrVBOLDON=oUser Created Outlines (N = +rNUSEROUTLINECOUNT3 o)rVBOLDOFF rHRT rHRTLQE2+rNUSEROUTLINECOUNT3[*L3,SKIPLIST4L5[ JY #(F14-FIRST)+rNUSEROUTLINECOUNT3r #(F14-FIRST)L( rJ-L[Lc #(F14-STEP)Mr #(F14-STEP) rJ JZ #(F14-FIRST) rJr #(F14-STEP)[2~M-MM2M6HI rJ[#SUSEROUTLINES3[LQE7HEU8HL #(F14-FIRST) #(F14-STEP)9:HEW<HvVANSLR+oWP System OutlinesLN1oWP System Outlines = %rNWPOUTLINECOUNTLN[LIBn)@=rVANS[-@O>,LQUIT?@OAHIrVBOLDONIo!WordPerfect System Outlines (N = %rNWPOUTLINECOUNT o)rVBOLDOFF rHRT rHRTLQEB[ JY #(F15-FIRST)%rNWPOUTLINECOUNTr #(F15-FIRST)P( rJ-P[Pc #(F15-STEP)%Qr #(F15-STEP) rJ JZ #(F15-FIRST) rJr #(F15-STEP)[2Q-QQ2QCHI rJ[S WPOUTLINES[LQEDHEUE\P #(F15-FIRST) #(F15-STEP)FHEWJHvVANSLR=oWP System and User OutlinesLNKo"All WP System and User Outlines = +rNUSEROUTLINECOUNT2LN[LIBn)@KrVANS[-uSL,LQUITMuSOHIrVBOLDONao-All WP and User Outlines, no duplicates (N = +rNUSEROUTLINECOUNT2 o)rVBOLDOFF rHRT rHRTLQEP[ JY #(F16-FIRST)+rNUSEROUTLINECOUNT2r #(F16-FIRST)LU( rJ-!U[(Uc #(F16-STEP)~Ur #(F16-STEP) rJ JZ #(F16-FIRST) rJr #(F16-STEP)[2U-RVU2RVQHI rJ[!S USEROUTLINES[LQERHEUST #(F16-FIRST) #(F16-STEP)UVHEWHE*[ZZ]Hx LIB)VHRT^H[L@[LIB,+ NNN_ rNNN aXb/FB2 rNNN a`/FB-Z`HvVANSLR!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)@erVANS[-ZfHE*gZhZj[|5[)513LCHK212LCHK11UVLQUIT'1p1 OUTLINESSKIP19)NSKIPLIST)1A SKIPSTYLELIST#1 STYLESSKIP++1[VCHECKVERSION11N!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterHtttt)!dxdxiE<<C d&0 d d,Sticky Notedd'dxd3+0 d d d3+0 d d d(2$ !TRW6&A4X3' Letter 6&A4X3' Letter3'LetterTX]XXX"XX]  (3$ !TRW6&A4X3' Letter 6&A4X3' Letter3'LetterTX]XXX"XX]  ($$   1  )!dxdxd d'dxd  d'dxd(;3$2#  0  .3  0  P Pdd dLevel 1Level 2Level 3Level 4Level 5ddd>q:StandardFontStandard Font Choice &E2%%&T XE X%&E2'dxd d'dxd' dxd)!dxdx$$$$'dxd&P d d&&&&'dxd&p d Pd(((('dxd&p Pd d****'dxd dttttt'dxdt'dxdtttt?Single Blue!dxdxd(d2d#//WPStyles d_#  #& #&Ԁ  nUserStyleCount;   UserStyles[#&+ #& nUserStyleCount]<#//UserStyles $ #& #&   (nUserStyleCount2;  UserStyles2[#&e#&nUserStyleCount2])^^:#//UserStyles2  % #&1#&  (nUserStyleCount3;  UserStyles3[#&#&UserStyleCount3])^^:#//UserStyles3 /!*& #&y#&  (nWPOutlineCount;  WPOutline[G#&#&nWPOutlineCount])//6#//WPOutlineStyles !' #&#&  (nUserOutlineCount;  UserOutlines[n#&#&]UserOutlineCount])4#//UserOutlineStyles a"\( #&#&K  (nUserOutlineCount2;  UserOutlines2[#&#&nUserOutlineCount2])oo2#//UserOutlineStyles2 ") l#&#&  (nUserOutlineCount3;  UserOutlines3[#&Y#&&nUserOutlineCount3])oo2#//UserOutlineStyles3 #* EndIfPlatform("VariablesandArrays")  ,$'+ #&#  $, @t t ` //StylelistingforWPSystemandUserCreatedstyles Ԉ  GetData(nWPStyleCount;Styles!;Count!;CurrentDoc!)   5#.*//HowmanyWPStyles? Ԉ  Declare(WPStyles[nWPStyleCount]) W .#.WW //CreatearrayofWPstyles  hc ForNext(J;1;nWPStyleCount) ' " ЀGetData(nWPStyleName;Styles!;Item:Name!;CurrentDoc!;J)   ЀWPStyles[J]=nWPStyleName   EndFor d _ WPStyles[]=SortArray(WPStyles[])  W pp0#.WW //SortarrayofWPstyles     GetData(nUserStyleCount;Styles!;Count!;PersonalLibrary!) p  %#.pp///HowmanyWP+UserStylesintotal Ԉ `[  Declare(UserStyles[nUserStyleCount])     ForNext(i;1;nUserStyleCount)   -  '#.--//CreatearrayofWP+Userstyles    ЀGetData(nUserStyleName;Styles!;Item:Name!;PersonalLibrary!;i) \W  ЀUserStyles[i]=nUserStyleName   EndFor   UserStyles[]=SortArray(UserStyles[])  W BB)#.WW //SortarrayofWP+Userstyles   XS Duplicates=0 Y     UU#. //Checkforandeliminateduplicatestylenames Ԉ  ForNext(J;2;nUserStyleCount1)  ЀIf(UserStyles[J]=UserStyles[J1]) TO ЀDuplicates=Duplicates+1   -  gg*#.--//Adviseuserofeachduplicate #Ԉ  ЀMessageBox(vAns;"DuplicateStylename";"Duplicate:"+UserStyles[J1];OKCancel!)  ЀIf(vAns>1)  ЀGo(lQuit) PK ЀEndIf   ЀUserStyles[J1]=""     *#.  //SetDuplicatestoNullvalues  Ԉ  ЀEndIf  EndFor LG nUserStyleCount2=nUserStyleCountDuplicates ==#.ZZ7//HowmanyWP+UserStyles;noduplicates !Ԉ ! UserStyles[]=SortArray(UserStyles[]) W    ii#.%//ResortwithNullvaluesforDuplicateslast z"Ԉ H C# If(Duplicates=1)    qq.#. //Reminduserofduplicates B#Ԉ !% ЀMessageBox(vAns;"Duplicate";"Thereisoneduplicateinthelistofstyles"+HRt+ "& Ѐ"Thisduplicatestylenamehasbeenomittedfromthelistofstyles";OKCancel!) D#?' ЀIf(vAns>1) $( ЀGo(lQuit) $) ЀEndIf %|* EndIf @&; + If(Duplicates>1) & , ЀMessageBox(vAns;"Duplicates";"Thereare"+Duplicates+"duplicatesinthelistofstyles"+HRt+ '!- Ѐ"Theseduplicatestylenameshavebeenomittedfromthelistofstyles";OKCancel!) }(x". ЀIf(vAns>1) <)7#/ ЀGo(lQuit) )#0 ЀEndIf *$1 EndIf y+t%2   ,&4 Declare(UserStyles2[nUserStyleCount2])   #.%//CreatearrayofWP+UserStyles;noduplicates  'Ԉ  ForNext(J;1;nUserStyleCount2) -  W  %#.WW //Populatearray,withoutduplicates 'Ԉ ~ ЀUserStyles2[J]=UserStyles[J] B= EndFor   nUserStyleCount3=nUserStyleCount2nWPStyleCount p  *#.pp///HowmanyUserCreatedStyles (Ԉ  z If(nUserStyleCount3=0)    -  W  &#.WW //SkipUserCreatedStyles,ifzero )Ԉ > 9 ЀGo(StylesSkip)   EndIf    Declare(UserStyles3[nUserStyleCount3]) :5  K=1   L=1 wr  ForNext(J;1;nUserStyleCount2) -  W  33##.WW //SelectstyleswhichareUserCreated '+Ԉ 61  ЀIf(UserStyles2[J]=WPStyles[L]) -  W  7#.WW //WPSystemStyles +Ԉ   ЀL=L+1   ЀElse sn  ЀUserStyles3[K]=UserStyles2[J] -  W  ss4#.WW //UserCreatedstyles ,Ԉ 2- ЀK=K+1  ЀEndIf  ЀIf(K>nUserStyleCount3)    -  W  ee*#.WW //Avoidreferenceoutsidearray -Ԉ oj ЀGo(StylesSkip) .) ЀEndIf  EndFor  UserStyles3[]=SortArray(UserStyles3[])     ,#.*//ResortwithoutDuplicates .) *%  Label(StylesSkip)UKUS.,     //StyleListingforOutlineStyles /  /GetData(nWPOutlineCount;OutlineStyles!;Item:Count!;CurrentDoc!)         /  Y   US.,UK.,/  3#. //HowmanyWPOutlines? 1@UKUS.,Ԉ hc @t1Declare(WPOutlines[nWPOutlineCount])   ,#.%//CreatearrayofWPOutlines 1   ForNext(J;1;nWPOutlineCount)   ЀGetData(nWPOutlineName;OutlineStyles!;Item:Name!;CurrentDoc!;J) d _ ЀWPOutlines[J]=nWPOutlineName #  EndFor    WPOutlines[]=SortArray(WPOutlines[])   .#.%//SortarrayofWPOutlines{3  `[       /  Y     ##. //HowmanyWP+UserOutlinesintotal X4US.,UK.,1Ԉ   GetData(nUserOutlineCount;OutlineStyles!;Count!;PersonalLibrary!)   Declare(UserOutlines[nUserOutlineCount])     ForNext(i;1;nUserOutlineCount) -  W  %#.WW //CreatearrayofWP+UserOutlines5    ЀGetData(nUserOutlineName;OutlineStyles!;Item:Name!;PersonalLibrary!;i)   ЀUserOutlines[i]=nUserOutlineName XS EndFor  UserOutlines[]=SortArray(UserOutlines[])   '#.%//SortarrayofWP+UserOutlinesI7   Duplicates=0 Y     #. //Checkforandeliminateduplicateoutlinenames 8Ԉ  ForNext(J;2;nUserOutlineCount1)  ЀIf(UserOutlines[J]=UserOutlines[J1])  ЀDuplicates=Duplicates+1   -  gg*#.--//Adviseuserofeachduplicate V9Ԉ PK ЀMessageBox(vAns;"DuplicateOutlinename";"Duplicate:"+UserOutlines[J1];OKCancel!)   ЀIf(vAns>1)  ЀGo(lQuit)  ЀEndIf LG ЀUserOutlines[J1]=""    -  *#.--//SetDuplicatestoNullvalues :Ԉ    ЀEndIf ! EndFor " nUserOutlineCount2=nUserOutlineCountDuplicates #.;//HowmanyWP+UserOutlines;noduplicates ;Ԉ !$ UserOutlines[]=SortArray(UserOutlines[])     ii#.*//ResortwithNullvaluesforDuplicateslast <Ԉ "& If(Duplicates=1)    qq.#. //Reminduserofduplicates =Ԉ $( ЀMessageBox(vAns;"Duplicate";"ThereisoneduplicateinthelistofOutlines"+HRt+ $) Ѐ"ThisduplicateOutlinenamehasbeenomittedfromthelistofOutlines";OKCancel!) %|* ЀIf(vAns>1) @&; + ЀGo(lQuit) & , ЀEndIf '!- EndIf }(x". If(Duplicates>1) <)7#/ ЀMessageBox(vAns;"Duplicates";"Thereare"+Duplicates+"duplicatesinthelistofOutlines"+HRt+ )#0 Ѐ"TheseduplicateOutlinenameshavebeenomittedfromthelistofOutlines";OKCancel!) *$1 ЀIf(vAns>1) y+t%2 ЀGo(lQuit) 8,3&3 ЀEndIf ,&4 EndIf -'5 Declare(UserOutlines2[nUserOutlineCount2])   ::#.%//CreatearrayofWP+UserOutlines;noduplicates JAԈ 4//)7   /)8 ForNext(J;1;nUserOutlineCount2) W    %#.%//Populatearray,withoutduplicates /BԈ  ЀUserOutlines2[J]=UserOutlines[J]  EndFor ~ nUserOutlineCount3=nUserOutlineCount2nWPOutlineCount p  (#.pp///HowmanyUserCreatedOutlines PCԈ   If(nUserOutlineCount3=0)    -  W  $#.WW //SkipUserCreatedOutlines,ifzero DԈ   ЀGo(OutlinesSkip)  z EndIf > 9 Declare(UserOutlines3[nUserOutlineCount3])    K=1 { v  L=1 :5  ForNext(J;1;nUserOutlineCount2) -  W  DD #.WW //SelectOutlineswhichareUserCreated EԈ   ЀIf(UserOutlines2[J]=WPOutlines[L]) W    ;;5#.%//WPSystemOutlines ^FԈ   ЀL=L+1 wr  ЀElse 61  ЀUserOutlines3[K]=UserOutlines2[J] W    2#.%//UserCreatedOutlines RGԈ   ЀK=K+1   EndIf sn  If(K>nUserOutlineCount3)    -  W      p      ee*#.  9//Avoidreferenceoutsidearray HԈ  ЀGo(OutlinesSkip)  ЀEndIf oj EndFor .) UserOutlines3[]=SortArray(UserOutlines3[])     ,#.*//ResortwithoutDuplicates I)  Label(OutlinesSkip) *% PosDocVeryTop()     @cc ` //PreparingandlistingUserCreatedJԀandWPSystemstyles   J Font("Arial") Y    5#. //CreateHeaderText KԈ  FontSize(10p) hc UName=?username  $$9#. //IDInformationJL  ' " If(UName="")   ЀUName="Unknown"   EndIf d _ OnError(LChk1) #  UName=MacroInfo(UserName!)    Label(LChk1)    CName="Unknown"   OnError(LChk2)   CName=MacroInfo(ComputerName!)   Label(LChk2) \W        / %#.////ListUser,Computer,DateandTimeVN    Type(vBoldOn+vLargeOn+"ListingofWordPerfectandUserStyles"+HRt+vBoldOff+vLargeOff)   Type(HRt+"Macro"+vBoldOn+"StyleList.wcm"+vBoldOff)   Type(vTab+"Version"+vBoldOn+"13.1.0"+vTab+vTab+vBoldOff+"2007August30") XS HardReturn  Type("Copyright"+vBoldOn+"CharlesERossiter"+vTab+vTab+"40 2O  5  charles@rossiter.co.za6zP2OPs[J  7tyP")  HardReturnHLineCreate()  HardReturn TO Type(HRt+vBoldOff+DateAndTime+vBoldOff+"forUser"+vBoldOn+UName  Ѐ+vBoldOff+"oncomputer"+vBoldOn+CName+vBoldOff)  HardReturnHardReturn  Type("MacroOutput:"+vBoldOn+"ListingandNumberofStyles"+vBoldOff+"for:") PK HardReturn Y HardReturn   Type(vTab+vBoldOn+"UKUS., UserCreatedStyles US.,UK.,.S"+HRt)  Type(vTab+vBoldOn+" UKUS.,WordPerfectSystemStyles US.,UK.,S"+HRt)  Type(vTab+vBoldOn+" UKUS.,AllSystemandUserStyles US.,UK.,)T"+HRt) LG HardReturn    Type(vTab+vBoldOn+" UKUS.,UserCreatedOutlines US.,UK.,T"+HRt) ! Type(vTab+vBoldOn+"UKUS., WordPerfectSystemOutlinesUS.,UK.,BU "+HRt) " Type(vTab+vBoldOn+"UKUS., AllSystemandUserOutlinesUS.,UK.,U "+HRt) H C# HardReturn !$ HLineCreate() !% HardReturn "&       / )#.////HeaderTextcreationcompleted VԈ D#?' &#&6W#ColumnsDefinition(NewspaperBalanced!;1.0;{3.6c;Fixed!;0.7c;Fixed!;3.6c;Fixed!;0.7c;Fixed!;3.6c; $) Fixed!;0.7c;Fixed!;3.6c;Fixed!;0.7c;Fixed!})     >>1#.*//LayoutforstylelistsBX  [%V*      /  @@*#.////ListUserCreatedstylenames XԈ & , MessageBox(vAns;"UserCreatedStyles";"UserCreatedStyles="+nUserStyleCount3;OKCancel!) '!- ЀIf(vAns>1) W(R". ЀGo(lQuit) )#/ ЀEndIf )#0 Type(vBoldOn+"UserCreatedStyles(N="+nUserStyleCount3+")"+vBoldOff+HRt+HRt) *$1 If(nUserStyleCount3=0)    -  W  ==&#.WW //TrapforzeroUserCreatedStyles ZԈ S+N%2 ЀGo(SkipStyleList) , &3 EndIf ,&4 ЀForNext(J;1;nUserStyleCount3) -'5 ЀType(UserStyles3[J]) O.J(6 ЀHardReturn / )7 ЀEndFor /)8 Label(SkipStyleList) 0*9 HardColumnBreak() K1F+:    2,;      /  $#.////ListWordPerfectsystemstylenames \Ԉ  MessageBox(Ans;"WPSystemStyles";"WPSystemStyles="+nWPStyleCount;OKCancel!)  ЀIf(vAns>1) ~ ЀGo(lQuit) B= ЀEndIf   Type(vBoldOn+"WordPerfectSystemStyles(N="+nWPStyleCount+")"+vBoldOff+HRt+HRt)   ЀForNext(J;1;nWPStyleCount)  z ЀType(WPStyles[J]) > 9 ЀHardReturn   ЀEndFor    HardColumnBreak { v       /  #.////Listallstylenames,excludingduplicates _Ԉ :5  MessageBox(Ans;"WPSystemandUserStyles";"AllWPSystemandUserStyles="+nUserStyleCount2;   OKCancel!)   ЀIf(vAns>1) wr  ЀGo(lQuit) 61  ЀEndIf   Type(vBoldOn+"AllWPandUserStyles,noduplicates(N="+nUserStyleCount2+")"+vBoldOff+HRt+HRt)   ЀForNext(J;1;nUserStyleCount2) sn  ЀType(UserStyles[J]) 2- ЀHardReturn  ЀEndFor  HardColumnBreak oj      /  (#.////ListUserCreatedOutlinenames bԈ .) MessageBox(vAns;"UserCreatedOutlines";"UserCreatedOutlines="+nUserOutlineCount3;  OKCancel!)  ЀIf(vAns>1) kf ЀGo(lQuit) *% ЀEndIf  Type(vBoldOn+"UserCreatedOutlines(N="+nUserOutlineCount3+")"+vBoldOff+HRt+HRt)  If(nUserOutlineCount3=0)    -  W  $#.WW //TrapforzeroUserCreatedOutlines dԈ &! ЀGo(SkipList)   EndIf ! ЀForNext(J;1;nUserOutlineCount3) c^" ЀType(UserOutlines3[J]) " # ЀHardReturn  $ ЀEndFor !% Label(SkipList) Y       -  W  <#.WW //Endoftrap fԈ _"Z& HardColumnBreak() #'      /  MM"#.////ListWordPerfectsystemOutlinenames ]gԈ #( MessageBox(vAns;"WPSystemOutlines";"WPSystemOutlines="+nWPOutlineCount;OKCancel!) $) ЀIf(vAns>1) [%V* ЀGo(lQuit) & + ЀEndIf & , Type(vBoldOn+"WordPerfectSystemOutlines(N="+nWPOutlineCount+")"+vBoldOff+HRt+HRt) W(R". ЀForNext(J;1;nWPOutlineCount) )#/ ЀType(WPOutlines[J]) )#0 ЀHardReturn *$1 ЀEndFor S+N%2 HardColumnBreak , &3   ,&4      /  #.////ListallOutlinenames,excludingduplicates 4jԈ  MessageBox(vAns;"WPSystemandUserOutlines";"AllWPSystemandUserOutlines="+  nUserOutlineCount2;OKCancel!) ~ ЀIf(vAns>1) B= ЀGo(lQuit)   ЀEndIf   Type(vBoldOn+"AllWPandUserOutlines,noduplicates(N="+nUserOutlineCount2+")"+  z vBoldOff+HRt+HRt) > 9 ЀForNext(J;1;nUserOutlineCount2)   ЀType(UserOutlines[J])    ЀHardReturn { v  ЀEndFor :5  Label(lQuit) Y       6#.  //TrapforOnCancel UmԈ   PosDocVeryTop() wr  Quit 61     @  @  @/  @Y  @  //EndofMacroStyleList.wcm Vn   n    ProcedureCheckVersion11()    1#. //CheckBuildofWPWin11   nvHRt=NToC(63754) ~ nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) B= If(nnn<11000000000300.0andnnn>11000000000000.0)   ЀMessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+   Ѐ"Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+  z Ѐ"Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+ > 9 Ѐ"Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt;OKCancel!|IconWarning!)   ̀If(vAns>1) { v  ЀQuit :5  ЀEndIf   EndIf    EndProc r 61