ࡱ; H  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F@J9@CompObjbWordDocumentObjectPool88  !"#$%&'()*,/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqtv FMicrosoft Word 6.0 Document MSWordDocWord.Document.6;  Oh+'0 ( Lp @d @@@@ܥe= e@@@@@ @_1@DDDDHHHԥ. !ATY_HDHHH_HD@HHHHDDԥ*2HԥHHWD1025: Supplemental Macros for Word 6.0 for Windows For a complete description of each supplemental macro, see the Supplemental Macros for Word 6.0 for Windows document that is included with this Application Note. If you acquired this Application Note by downloading it from an electronic service, you can find the descriptions in the README.DOC file included in the WD1025.EXE self-extracting executable. WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS APPLICATION NOTE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. pp`(ʦ`(ʦdkE===Microsoft provides this macro code "as is" without warranty of anydkL===kind, either express or implied, including but not limited to the implieddkI===warranties of merchantability and/or fitness for a particular purpose.ddiMaindg> ldRg,dR6jEThe command is not available because a document window is not active.dR*itheendddd6jDPlease wait while Word determines the ANSI codes for this selection.dicount ldiS$ gdiLenSel$ ggiS$nk* Length of the selectiondiA$ gnk*A$=Highlighted textdd/iANSIVal$giA$ld!giA$lnk* While the Length of A$ isdn(k* greater than 1di CharValue ggiA$lnk!* the ANSI value of 1st characterdiB$ giA$ldiANSIVal$icount iB$j gi CharValuedicount icountldgiA$lnk* Reducing the length of A$dniA$ g iA$lnk!* A$ = A$ minus the 1st characterd dniA$ jnk* A$ = nothingdd"n$k* end while loopdi ButtonClicked ld!i ButtonClicked ldM?g)llj!Show Character or Item ANSI Code dRgʀll+llFjPrint List to dRg؀ll:llj New DocumentvToDocdRgɀllGlOl j on ScreendRgڀll2lliANSIVal$vListBox1dRg؀llZlOljPrinterv ToPrinterdRgɀlllPl j Character dRgɀll!l<l jor Item*dRgɀlnl l(l jCodedRgɀlmll(l jANSIdRgɀl lll j5* If you had nothing selected, then the first item todRgɀlllgl j3the right of the insertion point is your selection.dRgǀl2llXld?d/idlg4g)di ButtonClicked ?idlgdddkX*** Checks the check box settings in the ANSI dialog box to determine whether to displaydkJ*** the results in a new document and/or print the results to the printer.ddidlgvToDocidlgv ToPrinterdng-dngDdn gDiMax ldndngldngdng|jCourierl dngj Charactergl j ANSI Codeggdngs ldng gddnk\*** For each character the following commands are used to insert the characters followed by dnkL*** their ANSI code equivalents into a new document for display or printing.dnkZ*** The series of ElseIf commands are used to catch the special characters and add a more dnk]*** descriptive explanation of the code rather than what would normally display. For examplednka*** if the Tab code was one of your selected items, it would display in the ANSI list dialog as adnk`*** thick vertical line. Rather than display in the new document, or print, the thick vertical dnk]*** line as the character for the Tab code, the commands below Insert the word "Tab" followeddnk8*** by ANSI code "9" into the newly created document. dd#ix l$icountldn iChar$ giANSIVal$ixld13iChar$d3gl dngjTabgl j9gd3gl dngj Line Feedngl j11gd3gl dngjParagraph Markngl j13gd3gldngjNonbreaking Hyphenngl j30gd3gldngjOptional Hyphenngl j31gd3gl dngjSpacegl j32gd3gl"dngjQuotation Markgl j34gd3gldngjNonbreaking Spacegl j160gd3 dgichar$gl ggggichar$lgd1d&ixdgdgs+ j3.5s lssdgdRidlgv ToPrinterg.dRix idlgvToDocdk_*** If the only the print checkbox was selected then the new document closes after printing thedk*** descriptive list.dRidlgvToDoc lglddiMax lgDetheendddp; ********** Macro Name: AutoOpen **********ddp3 ********** Shared Variables **********d/0iTRUEiFALSEiENABLEiDISABLEiOPT_ONiOPT_OFFiP$iQ$iT$ddp7 ********** Subroutine: MAIN **********diMAINdRiTRUE liENABLE liOPT_ON liP$ gl iQ$ gl"iT$ gl dRg+jiTOSdoi SummaryPrompt iTOSs7dogs7 ldoiHomeDir$ gldo#ii g$l%ldog gyiil  j APPNOTE1.DOTdogwiidodo&dogiHomeDir$j\MACROS\APPNOTE1.DOT jdogiHomeDir$j\MACROS\APPNOTE1.DOTdodogiENABLEdogiDISABLEdo#ii giHomeDir$$l%ldogiHomeDir$ii jMACROSiDirExist iTRUEii ldo&doiDirExistgiHomeDir$j\MACROSdRdok* * *Creating ACORRECT.DOCdo6jBuilding ACORRECT.DOC...dogglj \normal.dot jdogOsR jnormals ldogTs glj \normal.dots lsU ldogldodog-dogWsR iSource$dogdog{s j AutoCorrectsdogTs iHomeDir$j\MACROS\ACORRECT.DOCsU ls ldogss iSource$s gSs j acAutoOpens ldogsts gSs j acAutoOpensu jAutoOpens ldo,-&do6j%Modifying toolbars in ACORRECT.DOC...do#ii gفj Formatting$l%ldogtj Formattingiildo&doguj FormattinglljAutoOpenjAuto Correct UtilityldRdo#ii gفjStandard$l%ldogtjStandardiildo&dogujStandardlljFileNewDefaultlldogujStandardlljFileOpenlldogujStandardlljFilePrintDefaultlldogujStandardlljlldogujStandardlljEditUndolldogujStandardlljlldogujStandardlljEditRedolldogujStandardlljViewZoomnldogujStandardlljlldogujStandardl ljHelpTooll{ldogujStandardl ljlldo,-*ldo6j"Modifying menus in ACORRECT.DOC...dogss ldRdo#ii g?l$l%ldog@liil j&Helpg@liil j&Windowdog@liil j&Toolsdoggs ls g@liilsdoggs ls+ iils j&Toolssdogs+ ls jToolsAutoCorrects j&Toolss j&AutoCorrect...ss ldogs+ ls jAutoOpens j&Toolss jAutoCorrect Utility...rdoss lsH ldog@liil j&Viewdoggs ls g@liilsdoggs ls+ iils j&Viewsdogs+ ls j ViewNormals j&Views j&Normalss ldogs+ ls jViewPages j&Views j &Page Layoutss ldogs+ ls j (Separator)s j&Views jss ldogs+ ls j ViewRulers j&Views j&Rulerss ldogs+ ls j (Separator)s j&Views jss ldogs+ ls jViewZooms j&Views j&Zoom...ss ldog@liil j&Filedo#ij gAj&Filell$l%ldoimit$ g=j&Filelijldoimit$ j &Print...imit$ jPrint Pre&viewimit$ jPage Set&up...imit$ jSummary &Info...rdoimit$ j FileSaveAllimit$ jFileSavedogs g>j&Filelijls j&Files imit$ss ldodo&do#ij gAj&Filell$l%ldoimit$ g=j&Filelijldoimit$ j (Separator)doiSep ldogs g>j&Filelijls j&Files jss ldoiSep ldo doiSep ldodoimit$ j(List of Mail Tools)imit$ j(List of Recently Used Files)doiSep lg=j&Filelijll j (Separator)dogs g>j&Filelijlls j&Files jss ldodoiSep ldo doiSep ldodo&do doggs ls ls g@liilsdodo&dogTs iHomeDir$j\MACROS\ACORRECT.DOCsU ldogdRdok* * *Creating APPNOTE1.DOTdo6jBuilding APPNOTE1.DOT...dogOs ldogTs iHomeDir$j\MACROS\APPNOTE1.DOTsU ldogss iSource$s gSs jAddCurrentDocumentToWorkMenus ldogss iSource$s gSs jAddGraphicShadows ldogss iSource$s gSs jANSIChars ldogss iSource$s gSs j AppRunners ldogss iSource$s gSs jAutoCorrectUtilitys ldogss iSource$s gSs jAutoTextNamesToDatafiles ldogss iSource$s gSs jColumnRowReferences ldogss iSource$s gSs j DOSDirectorys ldogss iSource$s gSs jDOSFileUtilitiess ldogss iSource$s gSs jFormatFoldOverBooklets ldogss iSource$s gSs jInsertAutoTextEntrys ldogss iSource$s gSs jMailAsTextOrAttachments ldogss iSource$s gSs j MultiSelects ldogss iSource$s gSs jMultiSelectUnloads ldogss iSource$s gSs jPuzzles ldogss iSource$s gSs j RecordNumbers ldogss iSource$s gSs j Watermarks ldogss iSource$s gSs jWord2ViewHeaderFooters ldRdogss iSource$s gSs jFoldOverGraphics ldogss iSource$s gSs j FoldOverLines ldRdogss iSource$s gSs jHideMacroToolbars ldogss iSource$s glj \NORMAL.DOTs jShowMacroToolbars ldRdogss iSource$s gSs jaSupplemental Macross ldogsts gSs jaSupplemental Macrossu jSupplemental Macross lddogCs jSupplemental MacrossPdo#ii g$l%ldogii j Macro Toolbardogs s glj \NORMAL.DOTs j Macro Toolbars ldoii ldodo&dogss iSource$s glj \NORMAL.DOTs jaMacro Toolbars ldogsts glj \NORMAL.DOTs jaMacro Toolbarsu j Macro Toolbars ldogTs iHomeDir$j\MACROS\APPNOTE1.DOTsU ldogdogxiHomeDir$j\MACROS\APPNOTE1.DOTldog-dogCs j Macro ToolbarsPdogldogs7 i SummaryPromptdogiDISABLEdog+jInstallation is complete.dodRddkE===Microsoft provides this macro code "as is" without warranty of anydkL===kind, either express or implied, including but not limited to the implieddkI===warranties of merchantability and/or fitness for a particular purpose.ddiMAINd/iDlg4g)dM?g)l(ljRundRgـl~lllvTextBox1dRgȀlllXldRgʀllllj Main GroupdRg̀llllj &File ManagerdRg̀ll7llj&Control PaneldRg̀llUllj&Print ManagerdRg̀llsllj&MS-DOS PromptdRg̀lllljClipboard &ViewerdRgʀllllj &AccessoriesdRg̀llllj&WritedRg̀ll7llj&NotepaddRg̀llUllj&SyseditdRg̀llslljCharacter &MapdRg̀llllj Calculato&rdRgʀltllljOtherdRgɀl~lltl j Command Line:dRgǀlllXld?diChoice ?iDlgd13iChoicedR3ldRng j File ManagerdRngcj File ManagerdRn dRng-j winfile.exedRndR3ldog-j control.exedR3ldog-j printman.exedR3ldog-j dosprmpt.pifdR3ldog-j clipbrd.exedR3ldRng jMicrosoft WritedRngcjMicrosoft WritedRn dRng-j write.exedRndR3ldRng jNotepaddRngcjNotepaddRn dog-j notepad.exedRndR3ldog-j sysedit.exedR3l dRng j Character Map ldog-j Charmap.exedRn dogcj Character MapdRndR3l dRng j Calculator ldog-jCalc.exedRn dogcj CalculatordRndR3 dRnidlgvTextBox1 jdog-iDlgvTextBox1dRnd1ddiMAINg> ldg,6jEThe command is not available because a document window is not active.*iiquitTdgldg,g+jThere is no text selected.j MultiSelectl0*iiquitTdgld,-*ifooggefoodierr lfdg+jPart of your selection may contain one or more table cells. For MultiSelect to function properly, you must include the whole table plus one paragraph mark (glj4) either above or below the table in your selection.l0TeiquitddpC ********** Macro Name: ShowMacroToolbar **********ddp7 ********** Subroutine: MAIN **********diMAINdRgCs j Macro ToolbarsdR#ii l$gdog gyiil  j APPNOTE1.DOTdogiildodR&dRgCs jSupplemental MacrossPddiMAINg> ldg,6jEThe command is not available because a document window is not active.*iiquitTd,-*iMTdg*iiquiteMTdg+j%There is no text available to insert.j MultiSelectl@eiquitddpH ********** Macro Name: Word2ViewHeaderFooter **********ddp3 ********** Shared Variables **********d/0iType$li LastFocusi CurrentFocusddp7 ********** Subroutine: MAIN **********diMAINdRg> lgRdog,do6jEThe command is not available because a document window is not active.dR doi MainDialogdRdddp= ********** Subroutine: MainDialog **********di MainDialogdRM?g)llj Header/FootervDialogFunctiondogɀl llul jHeader/Foote&r:vtTypeRk0dogڀl ll lYiType$vlbTypeRk1dog؀l l}lljDifferent First &Pagev chbFirstPageRk2dog؀l lllj&Different Odd and Even PagesvchbOddAndEvenPagesRk3dogǀl3l llvpbOKRk4dogȀl3l$llvpbCancelRk5dog̀l3l@lljPage &Numbers...v pbPageNumbersRk6dogʀl!lhllAj From Edgev gbDistanceRk7dogɀl-l{l=l j&Header:vtHeaderDistanceRk8dogـlrlyl[lvtbHeaderDistanceRk9dogɀl-ll7l j&Footer:vtFooterDistanceRk10dogـlrll[lvtbFooterDistanceRk11dR?dR/idlg4g)dRix ?idlgdddp> ********** Function: DialogFuction **********diDialogFunctioniID$iActioniSuppValdR13iActiondo3ldoi Initializedo3ldo13iID$do3j chbFirstPagedo)i ChangeListdog8jlbTypedo3jchbOddAndEvenPagesdo)i ChangeListdog8jlbTypedo3jpbOKdo,-*iKeepOpendogs gjlbTypes gj chbFirstPagerdos gjchbOddAndEvenPagesrdos gjtbHeaderDistancerdos gjtbFooterDistancedo*iExiteKeepOpendoi LastFocus l i LastFocus l dog8i LastFocusdodoiDialogFunction leExitdo3jpbCanceldo3j pbPageNumbersdo/iFPN4g*do>iFPNdo>iFPNdoix1 ?iFPNdog*iFPNdoix1g7jpbCanceljClosedog8jpbOKdoiDialogFunction ldo3 do1do3ldo3ldoi LastFocus iSuppValdoi CurrentFocus g#iID$do3ldo3ldR1dddp= ********** Subroutine: Initialize **********di InitializedRg7jpbOKj&OKdR/iNVHA4gdR>iNVHAdRgj chbFirstPageiNVHAsdRgjchbOddAndEvenPagesiNVHAsdRg7jtbHeaderDistanceiNVHAsdRg7jtbFooterDistanceiNVHAsdR)i ChangeListdddp= ********** Subroutine: ChangeList **********di ChangeListdRgj chbFirstPagegjchbOddAndEvenPagesdo5iType$ldoiType$l jHeaderiType$l jFooterdoiType$l j First HeaderiType$l j First FooterdRgj chbFirstPagegjchbOddAndEvenPagesdo5iType$ldoiType$l j First HeaderiType$l j First FooterdoiType$l j Even HeaderiType$l j Even FooterdoiType$l j Odd HeaderiType$l j Odd FooterdRgj chbFirstPagegjchbOddAndEvenPagesdo5iType$ldoiType$l j Even HeaderiType$l j Even FooterdoiType$l j Odd HeaderiType$l j Odd FooterdR do5iType$ldoiType$l jHeaderiType$l jFooterdRdRg"jlbTypeiType$ddpJ ********** Macro Name: AutoTextNamesToDatafile **********d/0iDlg4g)d/0in$i ListBox1$lddp7 ********** Subroutine: MAIN **********diMAINdi TimeThrough ldin$ gEjMicrosoft Wordj User-dot-Pathestartdg in$l j\in$ in$j\dit$ j|dicount lditemp$ gin$j*.dotd!itemp$ jdRitemp$ gdoitemp$ gin$j Letblock.dotdoicount icountldoitemp$ gin$j letmdsem.dotdoicount icountldoitemp$ gin$j letmodbk.dotdoicount icountldoitemp$ gin$j letpersn.dotdoicount icountldod"dicount ldRi TimeThrough ldoib$ in$doin$ gEjMicrosoft Wordj ProgramDirdog in$l j\in$ in$j\jww2\dog+j=The Word 2.0 for Windows letter templates were not found in:gl rdogib$gl gl njThe macro will now check:gl gin$rdojDistribution List to Data Filel@doi TimeThrough ldo*i ContinuingdRi TimeThrough ldo,-*iOopsdoin$ gj=The Word 2.0 for Windows letter templates were not found in gin$rdoj2. Please specify a directory for these templates.rdoQjDistribution List to Data Filegin$do*i ContinuingdReOopsdRiz g+j9The Cancel button was pressed. Do you want to try again?jDistribution List to Data Filel$dRierr ldRiz l*i GetOuttaHeree ContinuingdR*iStartdd5i ListBox1$icountdicount lditemp$ gin$j*.dotd!itemp$ jdRitemp$ gdoitemp$ gin$j Letblock.dotdoi ListBox1$icount g itemp$gitemp$gin$doicount icountldoitemp$ gin$j letmdsem.dotdoi ListBox1$icount g itemp$gitemp$gin$doicount icountldoitemp$ gin$j letmodbk.dotdoi ListBox1$icount g itemp$gitemp$gin$doicount icountldoitemp$ gin$j letpersn.dotdoi ListBox1$icount g itemp$gitemp$gin$doicount icountldod"dM?g)l8ljDistribution List to Data FiledRgʀl lllj Templates:dRgɀllll j!Select a template containing the vText2dRgɀll&ll j"distribution list to be converted.vText3dRgڀll7llUi ListBox1$v TemplatePathdRgǀl9llXldRgȀlllXld?d5iDlg4g)d?iDlgdRiNewDoc ldRg-dRgWsR in$i ListBox1$iDlgv TemplatePathdRgdRg}l dRgdRgns j1sI j.25gl"sJ j.25rdRQgl"sK j1gl"sL j1gl"sM j0rdRQgl"sF j11gl"sG j8.5gl"sG ldR#icount l$g(ldoiname$ ng)icountldoginame$l jName:dog{s iname$s lsdogdoicounter icounterldodR&dRicounterldogdogus j|^ps j^pss ls} ldogdogjTitleit$jNameit$jSuffixit$jCompanyit$jPositionit$dogjAddress1it$jAddress2it$jCityit$jStateit$jZipit$jPhoneit$dogjFaxit$jAcctgl dogdoglldogj|dogs ldogdogs j0.1gl"ss j0dogs ls ls ls ls lso lsp ldogрdogӀdogdogHdogdogl  ldog ldogldodR dog+jWThere were no entries found for the distribution list. Change templates and try again.do*istartdRd dRiNewDoc lgldde GetOuttaHereddd/0iFinallliCurlliNextTolld/0iUsedliStartld/0iEBiPBiEB$iPB$d/0iNumRightiNumMovesddiMAINdiEB$ jB16ok' The name of the button that is 'empty'diEB lok( The value of the button that is 'empty'diNumRight lok InitializediNumMoves lok Initializedd#iI l$lok Initialize the arraydR#iJ l$ldoiNextToiIiJ ldR&iJd&iIdk4 The following creates a 'table' of values that willdk3 indicate whether or not two buttons are actuallydk3 next to each other in the sense that the move isdk7 actually a valid move. In other words. If Buttton #1dk5 is empty and the user presses Button #2, then thatdk is a valid move.diNextToll liNextToll ldiNextToll liNextToll liNextToll ldiNextToll liNextToll liNextToll ldiNextToll liNextToll ldiNextToll liNextToll liNextToll  ldiNextToll liNextToll liNextToll liNextToll  ldiNextToll liNextToll liNextToll liNextToll  ldiNextToll liNextToll liNextToll  ldiNextTol l liNextTol l  liNextTol l  ldiNextTol l liNextTol l  liNextTol l  liNextTol l ldiNextTol l liNextTol l  liNextTol l  liNextTol l ldiNextTol l liNextTol l  liNextTol l ldiNextTol l  liNextTol l ldiNextToll  liNextToll  liNextToll ldiNextToll  liNextToll liNextToll ldiNextToll  liNextToll lddM?g)lljPuzzlev DialogExecdRg̀ll}l<ljEndvEnddRg̀lll2ljvB1dRg̀l2ll2ljvB2dRg̀ldll2ljvB3dRg̀lll2ljvB4dRg̀lll2ljvB5dRg̀l2ll2ljvB6dRg̀ldll2ljvB7dRg̀lll2ljvB8dRg̀ll<l2ljvB9dRg̀l2l<l2ljvB10dRg̀ldl<l2ljvB11dRg̀ll<l2ljvB12dRg̀llZl2ljvB13dRg̀l2lZl2ljvB14dRg̀ldlZl2ljvB15dRg̀llZl2ljvB16dRgɀll{ldl j Complete:s1dRgɀlZl{l0l jvRightdRgɀllldl jvWond?d/idlg4g)ok Dim the dialog boxdin ?idlgok Call the dialog boxdddi DialogExeciI$iAiwvaluediA lok# First time the dialog is displayeddRiNewGameok% Call the NewGame subroutine to init.diA lok( User has pressed a button on the dialogdR13iI$do3jEndok User hit 'END' or 'MORE'dogjEnd jEnddoi KeepDisplayed lRk Button said EXIT so we'll exit.do ok User pressed 'MORE'doiNewGameok Re-initialize the gamedog7jTextj Complete:k Re-do the button textdog7jWonjdog7jEndjEnddoi KeepDisplayed ldodo3 ok User clicked a puzzle piecedoiPB$ g ok" Get the name of the pushed buttondoiButText$ giPB$Rk Gets the number of the puzzledoiPB gg iI$giI$ldoiNextToiEBiPB lRk Legal movedoiNumMoves iNumMoveslRk Increment the NumMoves counterdogiEB$lok" Turn on the previous empty buttondoiA$ giPB$ok$ Get the number of the pushed buttondog7iEB$iA$ok$ Change the number on the new buttondog8iEB$ok# Have to change focus for next linedogiPB$lok Hide the old buttondok: Test to see if we moved a button out of correct position:doggiPB iButText$iNumRight iNumRightldok< Test to see if we moved a button into the correct position:doggiEB iButText$iNumRight iNumRightldoiEB$ iPB$ok Define the new empty buttondoiEB iPBdodog7jRightggiNumRightok The # of right buttonsdoiNumRight lok Game overdog7jTextj# Moves:ok Display textdog7jRightggiNumMovesRk Display NumMovesdog7jWonjYou Won!ok Display textdog7jEndjMoreok Change the button textdodoi KeepDisplayed ldo3 dR1ddi DialogExec i KeepDisplayedok- Determine whether dialog should be displayedddddiNewGamedRiNumMoves ldRiNumRight ldRgjB16lok! Turn off the last button (empty)dR#iI l$ldoiUsediI ldR&iIdR#iI l$lok" Go through each of the 15 buttonsdoiN gg llok Get a random number from 1-16do!iUsediN lok If it's already been used,doiN gg llRk Then get anotherdo"doiUsediN lok Mark the new number as useddog7jBggiIggiNk Display the numberdoiI iNiNumRight iNumRightldR&iIdRg7jRightggiNumRightk! Display the # of 'right' buttonsddp< ********** Macro Name: Watermark **********dd/0iwizname$i Rotation$lZiSize$l{iNewDoc$itext$li ThisSectiond/0iWidth$iHeight$i StartView$i WhichHeaderiDirtyiPostScriptCodeiAdded$d/0i Vertical$li Horizontal$li mptextfont$li StartView$iObjectsInsertedd/0iNVHA4gd/0iFPS4gd/0iDlg4g)ddp7 ********** Subroutine: MAIN **********diMAINdiwizname$ jWatermark MacrodgRg> ldRg,dR6jEThe command is not available because a document window is not active.d dRiMsg1$ nj1It's a good idea to save your work periodically. dRg+iMsg1$j6Do you wish to save this document prior to continuing?iwizname$l4do,-&dogSdRdRg+j9This macro will need to clear all AutoCaption selections.rdojF You may reset them after running this macro. Do you want to continue?rdoiwizname$l$doM?g)l.liwizname$v DlgControldogȀlRllPldogǀlllKlvpbOKdogʀlBlll(jDocumentdogۀnvDocumentdogˀlOllPlj&Currentv obCurrentdogˀlll;ljNe&wvobNewdogʀlBlllEjWatermark Typedogۀnv OptionGroup1dogˀlOll<lj&TextvobTextdogˀlOl,lTlj&Graphicv obGraphicdog̀lll{lj&WordArt Text...vpbTextdog̀ll-l{lj&Find Graphic...v pbGraphicdogʀlBlPllEj Page LocationdogۀnvuserpagedogˀlOl]lilj&Allv chbAllPagesdogˀlOlmlilj &First Only v chbFirstPagedogˀlOl}lljAll &Except The FirstvchbAllExceptFirstdogˀll\l_lj &Odd Onlyv chbOddPagesdogˀlllldlj E&ven Onlyv chbEvenPagesdogʀl ll1lj vgbPSTextdog؀llllj Use Code for &PostScript Printerv cbPSPrinterdog%lllljSamplelvGraphic1dogɀlllnl j&Watermark TextvtTextdogـll$l"lvusertextdogɀll;l2l j&Fontdog܀llJllFi mptextfont$vuserfontdogʀll<lclSjFormatdog؀llMlIlj&Capsvusercapdog؀ll\l?ljBol&dvuserbolddog؀llklClj&Italicv useritalicdog؀llzlOljS&hadev usershadedogɀl@llBl j &Size (pts)vtSizedogHl@llAl2iSize$vdlbSizedogɀlllXl j &Rotate (deg)v tRotationdogHlllAl2i Rotation$v dlbRotationdogɀl(ll<l j &VerticalvText1dogHl(llZl(i Vertical$sdogɀlllPl j &HorizontalvText2dogHlllZl(i Horizontal$sdo?do5iDlg4g)do?iDlgdoi GrabObjectsdo>iFPSdoiFirst iFPSsFdoiOddEven iFPSsdoiPostScriptCode ldoiNewDoc$ jYesdoi NewDocumentiFirstiOddEvendodogdo doiNewDoc$ jYesdoi NewDocumentiFirstiOddEvendodoi BuildPSCodedRQodoi ThisSection gldogudo13iDlgvUserPagedo3lok All PagesdoiNVHAs liNVHAs ldoiOpenPaneldoiNVHAs liNVHAs ldoiOpenPaneldoiOpenPaneldoiNVHAs liNVHAs ldoiOpenPaneldoiOpenPaneldoiNVHAs liNVHAs ldoiOpenPaneldoiOpenPaneldoiOpenPaneldodo3lok First PagedoiNVHAs ldoiOpenPaneldo doiOpenPaneldodo3lokAll Except First PagedoiNVHAs ldoiOpenPaneldo doiOpenPaneldoiOpenPaneldodo3lok Odd PagesdoiNVHAs ldoiOpenPaneldo doiOpenPaneldodo3lok Even PagesdoiNVHAs ldoiOpenPaneldo doiOpenPaneldodo1doiAdded$ jYesdogs jzzzzzzzzzzzzzzzzzzzzzzzzxxsdogs jzzzzzzzzzzzzzzzzzzzzzzzzxxs dogdogdogdogdodogs jPSS_StartBookmarksdogs jPSS_StartBookmarks doi ResetViewsdoiMsg3$ jB Only the current section will be affected unless Same As Previousrdoj* is active in this or an adjacent section.doiPostScriptCode ldoiMsg1$ j9The object has been added to the header(s) you specified.doiMsg2$ jR The watermark will be visible on the screen in page layout view or print preview.dog+iMsg1$iMsg2$iMsg3$iwizname$l@do doiMsg1$ jBThe PostScript code has been added to the header(s) you specified.doiMsg2$ jI The watermark will only be visible when printed to a PostScript printer.dog+iMsg1$iMsg2$iMsg3$iwizname$l@dodo doiObjectsInsertedli GrabObjectsdogs jPSS_StartBookmarks dog$iDirtydodRddddi DlgControliid$iiactioniwvaluedRifRet ldR13iiactiondR3ldoi InitializedoifRet ldR3ldoiMsg1$ j8An object has already been specified for the watermark. doiresult ldo13iid$do3jCanceldoiNewDoc$ jYesgldoifRet ldoi ResetViewsdo3j obCurrentdoiNewDoc$ jNodo3jobNewdoiNewDoc$ jYesdo3j cbPSPrinterdogj cbPSPrinter ldoiPostScriptCode ldogjGraphic1gjGraphic1ldoiToggleEnablePSOptionsll&ldog8jusertextdo doiPostScriptCode ldoiToggleEnablePSOptionsll&ldodo3jobTextdogjpbTextldogj pbGraphicldogj cbPSPrintergj cbPSPrinterldogjGraphic1ldoiToggleVisiblePSOptionsll&ldogj cbPSPrinter ldoiToggleEnablePSOptionsll&ldodogj cbPSPrinter lg8jpbTextdo3j obGraphicdog7jgbPSTextjdogj pbGraphicldogj cbPSPrintergj cbPSPrinterldoiToggleVisiblePSOptionsll&ldogjGraphic1ldog8j pbGraphicdogjpbTextldo3j pbGraphicdoiObjectsInsertedldoiPostScriptCode ldog+iMsg1$jDo you want to replace it?iwizname$l# ldoiInsertGraphicObjectdodo doiInsertGraphicObjectdodo3jpbTextdoiObjectsInsertedldoiPostScriptCode ldog+iMsg1$jDo you want to replace it?iwizname$l# ldoiInsertWordArtObjectdodo doiInsertWordArtObjectdodo3jpbOKdogjusertext jdogiwizname$j DefaultPSTextgjusertextrdoQgjwindirj \wordwiz.inidodoi WhichHeader gjuserpagedoifRet ldo3jCanceldogjDocument ldogldodoi ResetViewsdoifRet ldo3 do1do doTdR3 dR1dRi DlgControl ifRetdddi InitializedRgldRiPostScriptCode ldRg#doiDirty ldR doiDirty ldRdR>iFPSdRiFPSs ldog+j4The current section begins with a continuous break. rdoj?The watermark may not appear on the first page of this section.iwizname$l0dRiFPSs ldog+j0The current section begins with a column break. rdoj?The watermark may not appear on the first page of this section.iwizname$l0dRdRggsdRiAdded$ jNOdRiObjectsInserted ldRgs jPSS_StartBookmarksdRgt lok Outline Viewdoi StartView$ j0dRgs lok Page Viewdoi StartView$ j2dR doi StartView$ j1dRdRgudR>iNVHAdRgj chbFirstPage  iNVHAsdRgjchbAllExceptFirstiNVHAsdRgj chbOddPagesiNVHAsdRgj chbEvenPagesiNVHAsdRiNewDoc$ jNodRg iwizname$j DefaultPSTextgjwindirj \wordwiz.ini jdog7jusertextj ConfidentialdR dog7jusertextg iwizname$j DefaultPSTextrdoQgjwindirj \wordwiz.inidRdRg7jgbPSTextjdRgj pbGraphicldRgj cbPSPrintergj cbPSPrinterldRiToggleVisiblePSOptionsll&ldRiToggleEnablePSOptionsll&ldRgjGraphic1ldRgjpbTextldRgj OptionGroup1ldR#ii l$l{doiSize$ii ggiildR&dR#ii l$lZdoi Rotation$ii ggiidR&dRi Vertical$l jTopdRi Vertical$l jMiddledRi Vertical$l jBottomdRi Horizontal$l jLeftdRi Horizontal$l jCenterdRi Horizontal$l jRightdRi mptextfont$l jCourierdRi mptextfont$l j HelveticadRi mptextfont$l j Times-RomandRg"jdlbSizeiSize$dRg"jVerticali Vertical$dRg"j Horizontali Horizontal$dRg"j dlbRotationi Rotation$dRg"juserfonti mptextfont$dRgKi mptextfont$dRgjdlbSizel3oksets default Size to 55dRgj dlbRotationl-oksets default Rotation to 45dRgjVerticallok(sets default verticle position to MiddledRgj Horizontallok)sets default horizontal postion to CenterdRgj usershadeldRgjuserboldldRiUpdatePageFormatdR6jRunning the Watermark MacrodddiToggleVisiblePSOptionsiBegItemiEndItemiChangedR#ii iBegItem$iEndItemdogiiiChangedR&iidddiToggleEnablePSOptionsiBegItemiEndItemiStatedR#ii iBegItem$iEndItemdogiiiStatedR&iidRgjpbTextgiStateldddi BuildPSCoded5itext$ldiDlgvusercap ldRi InsertText$ giDlgvusertextd dRi InsertText$ iDlgvusertextddiDlgv usershadedRishade$ j.9d dRishade$ j.8dditext$l jPrint \p page gl"diDlgvuserfont j Times-RomandRiDlgvuserbolddoiDlgv useritalicdoitext$l j/Times-BoldItalicdo doitext$l j /Times-BolddodRiDlgv useritalicdoitext$l j /Times-ItalicdR doitext$l j /Times-RomandRdiDlgvuserfont j HelveticadRiDlgvuserbolddoiDlgv useritalicdoitext$l j/Helvetica-BoldObliquedo doitext$l j/Helvetica-BolddodRiDlgv useritalicdoitext$l j/Helvetica-ObliquedR doitext$l j /HelveticadRdiDlgvuserfont jCourierdRiDlgvuserbolddoiDlgv useritalicdoitext$l j/Courier-BoldObliquedo doitext$l j /Courier-BolddodRiDlgv useritalicdoitext$l j/Courier-ObliquedR doitext$l j/CourierdRdditext$l j findfont iSize$iDlgvdlbSizej scalefont setfont gl ditext$l j/LM glj defgl ditext$l j/RM ggiFPSsF lHj defgl ditext$l j /dlength {(i InsertText$j) stringwidth } defgl ditext$l j/psize {RM LM sub} defgl ditext$l j/printDraft {0 0 moveto (i InsertText$j ) show } def gl ditext$l j!/halflen { dlength pop 2 div} defgl ditext$l j /adjmt {90 i Rotation$iDlgv dlbRotationj sub sin 80 mul 2 div} defgl d13iDlgsd3ldRp left aligndRitext$l  j/ucos {i Rotation$iDlgv dlbRotationj cos} defgl dRitext$l  itext$l j/uadj{halflen ucos mul}defgl dRitext$l  itext$l j /ucos1 {90 i Rotation$iDlgv dlbRotationj sub cos } defgl dRitext$l  itext$l j/uadj1 {1 ucos1 mul}defgl dRitext$l  itext$l juadj1 uadj addgl dRitext$l  itext$l ggiFPSsK lHj addgl dRi Rotation$iDlgv dlbRotation j90itext$l  itext$l j8 subgl d3ldRp centerdRitext$l  j psize 2 divgl d3ldRp right aligndRitext$l  j/ucos {i Rotation$iDlgv dlbRotationj cos } defgl dRitext$l  itext$l j/uadj {halflen ucos mul} defgl dRitext$l  itext$l j RM uadj subgl dRitext$l  itext$l ggiFPSsL lHj subgl d1d13iDlgsd3ldRp topdRitext$l  j /uvcos { i Rotation$iDlgv dlbRotationj cos} defgl dRitext$l  itext$l nj/uvadj { 1 uvcos mul} defgl dRitext$l  itext$l j /uvsin1 { i Rotation$iDlgv dlbRotationj sin } def gl dRitext$l  itext$l j /uvopp { halflen uvsin1 mul} defgl dRitext$l  itext$l ggiFPSsGgiFPSsI lHrdoj uvadj uvopp add subdRiDlgv usershade litext$l  itext$l j 6 sub dRitext$l  itext$l j translategl d3ldRp middledRitext$l  ggiFPSsG lHj 2 div translategl d3ldRp bottomdRitext$l  j /uvsin { i Rotation$iDlgv dlbRotationj sin}defgl dRitext$l  itext$l j/uvopp { halflen uvsin mul} defgl dRitext$l  itext$l ggiFPSsJ lHj 8 uvopp add adddRitext$l  itext$l j translategl d1ditext$l  i Rotation$iDlgv dlbRotationj rotategl ditext$l  j 0 halflen subgl ditext$l j adjmt addgl ditext$l  j 0 translategl ditext$l j.95 -.05 .3 %start incr.endgl ditext$l j({setgray printDraft -1 .5 translate} forgl ditext$l ishade$j setgray printDraft gl"dddiOpenPaneindRgs indRiPostScriptCode lRkPS Codedoi InsertPSCodedR okWordArt or Graphicdogndoglldogs jzzzzzzzzzzzzzzzzzzzzzzzzsdogdogsdogzs jsggi ThisSectiondogeTestdogjzzzzzzzzzzzzzzzzzzzzzzzzdogs jzzzzzzzzzzzzzzzzzzzzzzzzsdogs jzzzzzzzzzzzzzzzzzzzzzzzzs dogldoi InsertTextBoxiWidth$iHeight$dogndo do,-*iErrorFixdogMdo*iTestdodRdRgudogdR dogdRdRgudR*iByedeErrorFixdiErr ldRgdRgs jzzzzzzzzzzzzzzzzzzzzzzzxsdRgdRi TotalSections gldRgs jzzzzzzzzzzzzzzzzzzzzzzzxsdRgl i TotalSectionsRkLast section in documentdogdogs jzzzzzzzzzzzzzzzzzzzzzzzzxxsdogdogdogdogdogs jzzzzzzzzzzzzzzzzzzzzzzzxsdR okNot Last section in documentdogzs jsggglldogldogs jzzzzzzzzzzzzzzzzzzzzzzzzxxsdogdogdogdogdogs jzzzzzzzzzzzzzzzzzzzzzzzxsdRdRgs jzzzzzzzzzzzzzzzzzzzzzzzxs dRiAdded$ jYesdRgdR*iTestddeByedddi InsertPSCodeok"Insert PostScript Code into HeaderdRgdRgdR#ii l$ldoii l iDlgs ldogitext$litext$iidoii l iDlgs ldogitext$litext$iidoii liDlgv usershade ldogitext$iiitext$litext$ldoii liDlgv usershade ldogitext$ldo dogitext$iidodR&dddi InsertTextBoxiWidth$iHeight$Rk%Insert WordArt or Graphic into Headerdgkdg5s j2s ls: ls gggiWidth$ lh?ngl"s ls gggiHeight$ lh?gl"s lsQ ls  j3gl"s  j3gl"s j0 ptdddiInsertWordArtObjectdRin gmdRin lgmldRgdgjusertextj%udRgdRiObjectsInserted iObjectsInsertedldRin lgmgindRgdRg8jpbOKdddiInsertGraphicObjectdR/iIP4gdR>iIPdR?iIPdogs iIPsdog&jGraphic1iIPsldoiObjectsInserted iObjectsInsertedldRdRg8jpbOKdddi ResetViewsdRi StartView$ j0dogtdRi StartView$ j1dogudRi StartView$ j2dogsdRdddiUpdatePageFormatdR5iFPS4gdR>iFPSdRiWidth$ ggggiFPSsFgiFPSsFlrdoggiFPSsKgiFPSsKlrdoggiFPSsLgiFPSsLldRiHeight$ ggggiFPSsGgiFPSsGlrdoggiFPSsIgiFPSsIlrdoggiFPSsJgiFPSsJldddi GrabObjectsdRgs jPSS_StartBookmarks dRiPostScriptCode ldoiObjectsInsertedldoiDlgv OptionGroup1 ldoglldogldogiObjectsInsertedlldogdo dogiObjectsInsertedlldogdoglldogldodoiObjectsInserted ldoglldogldoiObjectsInserted ldog{s jSamples ls lsdoglldogldodR dogiObjectsInsertedldogdRdRgs jPSS_StartBookmarksdddi NewDocumentiFirstiOddEvendRgs jPSS_StartBookmarks dRg-dRgs jPSS_StartBookmarksdRgdRiUpdatePageFormatdRgsF iFirstdRgs iOddEvenddp@ ********** Macro Name: DOSDirectory3 **********dAi GetDriveTypeNjKernelinDrive4C4CdAiWinExecNjKerneli lpCmdLine4FinCmdShow4C4Cdd/0iFileListingResult$liPath$liDir$li DriveList$li FileType$ld/0iStateicounteriCountDiriType$iFound$iTemp1$li iSwitches$i dSwitches$d/0iNet4gddp7 ********** Subroutine: MAIN **********diMAINdRM?g)l&ljList Directory FilesvfFileDlgdogɀlllZl j File &Name:v txtFileNamedog܀lllliFileListingResult$vFList1dogɀllll jList Files of &Type:v txtFileTypesdogHlllli FileType$vTypeListdogɀlllZl j &Directories:vtxtDirectoriesdogɀllll iCurdir$vCurdirdogڀll(llliDir$vListBox1dogɀlll2l jDri&ves:v txtDrivesdogHllll<i DriveList$v ThisDrivedogǀlllxlvpbOKdogȀll(lxlvpbCanceldog̀llAlxlj Ne&twork...v pbNetworkdog؀ll^lOlj&IncludevSubDirsdogɀllnlnl jSubdirectoriesvText1dog؀llllj&Only Files andvcbFilesdogɀlllZl j DirectoriesvText2dog؀lllzlj &Wide DisplayvcbWidedog؀lllxlj &Lower Casev cbLowerCasedogʀllllj Attributes:dogɀl llKl jShowvtShowdog؀l2l llj &Hidden FilesvatHiddendog؀l2l2llj &System FilesvatSystemdog؀l2lDllj &Directoriesv atDirectoriesdog؀l2lVllj&Archived Filesv atArchiveddog؀l2lhllj&Read Only Filesv atReadOnlydogɀl l{lxl j Do Not Showv tDontShowdog؀l2lllj &Hidden Filesv atNHiddendog؀l2lllj &System Filesv atNSystemdog؀l2lllj &DirectoriesvatFilesdog؀l2lllj&Archived Filesv atNArchiveddog؀l2lllj&Read Only Filesv atNReadOnlydogʀlllljSorting:dogɀl llnl j AscendingvText5dog؀ll8lFlj&NamevsAlphaNdog؀llJlxlj &ExtensionvsAlphaEdog؀ll[lslj &Date && TimevsDTEdog؀llol;lj&SizevsSizeSdog؀llllj"&Directories listed prior to filesv sDirFirstdogɀlllnl j DescendingvText6dog؀ll8lFlj&NamevsRAlphaNdog؀llMlxlj &ExtensionvsRAlphaEdog؀ll^lslj &Date && TimevsDTLdog؀llpl;lj&SizevsSizeLdog؀llllj"&Files listed prior to directoriesv sFilesFirstdogɀllll jTextvDisplaydog̀lllxlj &Options...v pbOptionsdR?dR/iFileUtilitydlg4g)dRiChoice ?iFileUtilitydlgdddp? ===================== Function: fFileDlg =================difFileDlgiID$iActioniSuppValdRifRetDlg ldR13iActiondR3ldo)i InitializedR3ldo13iID$do3jTypeListdoi SelectFilterdoi BuildFilesdoi UpdateDisplaydo3j ThisDrivedogldoi ChangeDriveiPath$iID$jCurdirdoi BuildFilesdoi ChangeSubDirdoi UpdateDisplaydogldo3jcbFilesdogg#iID$ lgjcbWideldoiBuildIndepentantSwitchesdo3jcbWidedogg#iID$ lgjcbFilesldoiBuildIndepentantSwitchesdo3jSubDirsj cbLowerCasedoiBuildIndepentantSwitchesdo3jatHiddenjatSystemj atDirectoriesj atArchivedj atReadOnlydogg#iID$ lgg#iID$lldoiBuildDepentantSwitchesdo3j atNHiddenj atNSystemjatFilesj atNArchivedj atNReadOnlydogg#iID$ lgg#iID$lldoiBuildDepentantSwitchesdo3jsAlphaNjsAlphaEjsDTEjsSizeSj sDirFirstdogg#iID$ lgg#iID$lldoiBuildDepentantSwitchesdo3jsRAlphaNjsRAlphaEjsDTLjsSizeLj sFilesFirstdogg#iID$ lgg#iID$lldoiBuildDepentantSwitchesdo3j pbOptionsdogj pbOptions j &Options...doi ToggleOptionsll+ldog7j pbOptionsjClose &Optionsdo doi ToggleOptionsl+lldog7j pbOptionsj &Options...dodo3jpbOKdog  jListBox1dogldoiChangeDirectoryjCurdirgjListBox1doi ChangeSubDirdoi BuildFilesdoi UpdateDisplaydogldo doiFound$ jnodo#ii l$icounterdogjFList1 iFileListingResult$iiliFound$ jyesdo&doiFound$ jyesdog gjCurdirl j\doiOpenMe$ gjCurdirdo doiOpenMe$ gjCurdirj\dodogldo=jc:\xxdosdir.bat#;4qldo6qljdir iOpenMe$iType$i iSwitches$i dSwitches$nj > j c:\zzzdir.txtdoLqldoggjwindirj \xxdosdir.pif jdoix iWinExecj xxdosdir.pifldog+jThe directory of giOpenMe$giOpenMe$lrdoj has been compiled using the gl"iType$gl"rdoQj- file filter. Click the OK button to view it.jList Directory Filesl@dog-dogjcbWide ldogs j1sF j11rdogl"sG j8.5gl"sG ldodo,-&dogs j c:\zzzdir.txtsI ldo,-&dognj c:\zzzdir.txtdo,-&dogjc:\xxdosdir.batdogdog|j Courier Newl dogdo dog+j2The pif file needed to run this macro is missing. rdoj=Please run the WordBasic Application Note Installation again.rdojList Directory Filesldo,-&dogjc:\xxdosdir.batdodoifRetDlg ldo dogldoiType$ gjFList1doi BuildFilesdoi UpdateDisplaydogldododo3j pbNetworkdoiDrvNum1 gj ThisDrivedo5iNet4gdo>iNetdo?iNetdo>iNetdogiNetdoiCountDrv iCountDirldoiCountDir ldo5iTemp1$iCountDrvdo#ii l$iCountDrvldoi GetDriveTypeii ldoiCountDir iCountDirldoiTemp1$ii giilAdodo&doiBuildDriveListiCountDirldogj ThisDriveiDrvNum1ldoi ChangeDriveiPath$nj ThisDrivejCurdirdoi BuildFilesdoi ChangeSubDirdodo3jpbCanceldoifRetDlg ldo3 do1dR3ldR3ldR3ldR3ldR1dRifFileDlg ifRetDlgdddpB ===================== SubRoutine: Initialize =================di InitializedR6j.List specified directory files in new documentdR5iTemp1$ldR#ii l$ldoi GetDriveTypeii ldoiCountDir iCountDirldoiTemp1$iCountDirl giilAdodR&dR5iPath$iCountDirldRiBuildDriveListiCountDirldRggj. ldog7jCurdirggj.j\dR dog7jCurdirggj.dRdRg7j ThisDriveggjCurdirldRiType$ j*.*dRi BuildFilesdRi ChangeSubDirdRi FileType$l jAll Files (*.*)dRi FileType$l jWord Documents (*.doc)dRi FileType$l jWord Templates (*.dot)dRi FileType$l jRich Text Format (*.rtf)dRi FileType$l jText Files (*.txt)dRg"jTypeListi FileType$dRi UpdateDisplaydRi ToggleOptionsll+ldddi ToggleOptionsiFirst1iSecond1istepmed#ii iFirst1$iSecond1%istepmedRgiid&ddddp@ ********** Subroutine: UpdateDisplay **********di UpdateDisplaydg gjCurdirl j\dRiThisDirectory$ gjCurdird dRiThisDirectory$ gjCurdirj\ddg7jDisplayjDir iThisDirectory$iType$i iSwitches$i dSwitches$ddddpK ********** Subroutine: BuildIndepentantSwitches **********diBuildIndepentantSwitchesdi iSwitches$ jdgjSubDirsi iSwitches$ i iSwitches$j /sdgjcbFilesi iSwitches$ i iSwitches$j /bdgjcbWidei iSwitches$ i iSwitches$j /wdgj cbLowerCasei iSwitches$ i iSwitches$j /ldi UpdateDisplayddddpI ********** Subroutine: BuildDepentantSwitches **********diBuildDepentantSwitchesdi dSwitches$ jdgjatHiddeni dSwitches$ i dSwitches$jhdgj atNHiddeni dSwitches$ i dSwitches$j-hdgjatSystemi dSwitches$ i dSwitches$jsdgj atNSystemi dSwitches$ i dSwitches$j-sdgj atDirectoriesi dSwitches$ i dSwitches$jddgjatFilesi dSwitches$ i dSwitches$j-ddgj atArchivedi dSwitches$ i dSwitches$jadgj atNArchivedi dSwitches$ i dSwitches$j-adgj atReadOnlyi dSwitches$ i dSwitches$jrdgj atNReadOnlyi dSwitches$ i dSwitches$j-rdi dSwitches$ ji dSwitches$ j/a:i dSwitches$di dSwitches$ i dSwitches$j/o:dgjsAlphaNi dSwitches$ i dSwitches$jndgjsRAlphaNi dSwitches$ i dSwitches$j-ndgjsAlphaEi dSwitches$ i dSwitches$jedgjsRAlphaEi dSwitches$ i dSwitches$j-edgjsDTEi dSwitches$ i dSwitches$jddgjsDTLi dSwitches$ i dSwitches$j-ddgjsSizeSi dSwitches$ i dSwitches$jsdgjsSizeLi dSwitches$ i dSwitches$j-sdgj sDirFirsti dSwitches$ i dSwitches$jgdgj sFilesFirsti dSwitches$ i dSwitches$j-gdg i dSwitches$l j/o:i dSwitches$ gi dSwitches$gi dSwitches$ldi UpdateDisplaydddddpF ===================== SubRoutine: SelectFilter =================di SelectFilterdR13gjTypeListdo3ldoiType$ j*.*do3 doiType$ ggg gjTypeListlldR1dddpZ ----------------------------------- DRIVE SUBROUTINES ----------------------------------dpB ===================== SubRoutine: ChangeDrive =================di ChangeDrivei ChngPath$iChngDr$iDirText$dRi ChngPath$giChngDr$ jdoiChangeDriveLoopiChngDr$j:\dR doiChangeDriveLoopiChngDr$jdRdRgggj. ldog7iDirText$ggj.j\dR dog7iDirText$ggj.dRdRg7iChngDr$ggiDirText$ldddpC ================== SubRoutine: ChangeDriveLoop =================diChangeDriveLoopiChngDr2$iSlash$dR!icontdoggiChngDr2$j:\ ldog+jError reading drive giChngDr2$j.j Drive Errorl ldoicont ldodo doicont ldoggiChngDr2$iSlash$dodR"dddpE ===================== SubRoutine: BuildDriveList =================diBuildDriveListiThisNumberOfDrivesdR5i DriveList$iThisNumberOfDrivesdR#ii l$iThisNumberOfDrivesdoi DriveList$ii iTemp1$iidR&dRg"j ThisDrivei DriveList$dddp[ ------------------------------------ DIRECTORY SUBROUTINES ----------------------------dpG ===================== SubRoutine: ChangeDirectory =================diChangeDirectoryitDir$i Directory$dRi Directory$ j [..]do,-&dogj..\doiErr ldog7itDir$ggj.doggitDir$ lg7itDir$gitDir$j\dRg i Directory$l j:\dogi Directory$dog7itDir$gi Directory$dR doggitDir$ ldoggitDir$gi Directory$dog7itDir$gitDir$gi Directory$do doggitDir$j\gi Directory$dog7itDir$gitDir$j\gi Directory$dodRdddpD ===================== SubRoutine: ChangeSubDir =================di ChangeSubDirdR,-&dRiDirNum ggjCurdirdRiErr ldoiDirNum ldoiErr ldRdRiDirNum ldoggjCurdir ldoiLoopDirectories1lldo doiLoopDirectories1lldoiDir$l j [..]dodR doggjCurdir ldoiLoopDirectories1iDirNumldoiLoopDirectoriesldo doiLoopDirectories1iDirNumlldoiDir$l j [..]doiLoopDirectoriesldodRdRg"jListBox1iDir$dddpG ===================== SubRoutine: LoopDirectories1 ================diLoopDirectories1iThatNumiNum2dR5iDir$iThatNumdRiDir$iNum2 ggj ThisDrivej:\dddpG ===================== SubRoutine: LoopDirectories =================diLoopDirectoriesiThisNumdR#ii l$ggjCurdirdoiThisNum lQRiDir$ii j ggiidoiThisNum lQRiDir$iil j ggiidR&iidggjCurdirlgKiDir$liThisNumggjCurdirdddpY ------------------------------------- FILE SUBROUTINE --------------------------------dpB ===================== SubRoutine: BuildFiles =================di BuildFilesdRia$ giType$dR!ia$ jdoicount icountldoia$ gdR"dRicount ldogldogjFList1ldoggjCurdir ldoiA ldo doiA ggjCurdirldodo5iFileListingResult$iCountldoia$ giType$do#ii l$icountdoiFileListingResult$iil gg ia$gia$iAdoia$ gdo&doicounter icountdogKiFileListingResult$dog"jFList1iFileListingResult$dogldR doicount ldoicounter icountdo5iFileListingResult$iCountldog"jFList1iFileListingResult$dRddp? ********** Macro Name: RecordNumber **********ddp7 ********** Subroutine: MAIN **********diMAINdg> lgRdRg,dR6jEThe command is not available because a document window is not active.dR*iByeddgl dRgldRgрdRgӀdRgπdRgЀdR#ii l$gldog jRec_Numdog+jeThe Rec_Num field already exists. Do you want to replace it with the new, Word 6.0 dynamic numbering?rdoQjRecord Numbering Messagel$doii gldogdogdogӀdoiFoundIt$ jYesdo do,-*iByedoiText$ gjCWhat would you like to name the new field that numbers the records?dododoiFoundIt$ jYesgπdR&dRiFoundIt$ jYesdoglldog+j@Your datafile currently has the maximum number of table columns.rdoj4 This macro will be unable to insert another column.jRecord Number Macro Errorl0do*iByedodogdogdogdRdRiText$ jiText$ jRec_NumdogiText$dRg ldRgԀldRgSdRgs" jAutos# ls js ls js j1rdRs ls j0.25gl"s j0gl"s ls! jrdRs ls$ ls% ls( ldRgdR/idlg4gdR>idlgdRiWidth$ idlgsFdRidlgsF j22gl"dRgidlgdRgs j2.05gl"s j0.15gl"sdRidlgsF iWidth$dRgidlgdRgӀdRgldRg+jNThe datafile records are numbered. To include record numbers in a mail merge, rdRjTplace the insertion point in the main document where numbers will appear. Click the gl"rdRQjInsert Word Field gl"j- button in the Mail Merge toolbar and select gl"rdRQjMerge Record #gl"j.jRecord Numbering Completel@d dRg+jPPlease place the insertion point within a datafile table and restart this macro.jRecord Numbering Macro ErrorldeByedglddpC ********** Macro Name: AddGraphicShadow **********d/0iCounteriNd/0iDlg4g)ddiMAINdg>ngRdRgldR/iColors$ldRiColors$l jNonedRiColors$l jBlackdRiColors$l jBluedRiColors$l jCyandRiColors$l jGreendRiColors$l jMagentadRiColors$l jReddRiColors$l jYellowdRiColors$l jWhitedRiColors$l  j Dark BluedRiColors$l  j Dark CyandRiColors$l  j Dark GreendRiColors$l  j Dark MagentadRiColors$l  jDark ReddRiColors$l j Dark YellowdRiColors$l j Dark GraydRiColors$l j Light GrayddRM?g)lcljAdd Graphics Shadowsdogʀl lllkjShadowsdogɀlllel j Shadow Color:vText1dogڀll#lgl?iColors$vColorsdogǀll lXldogȀll lXldogʀll%llMjApply Todogۀnv OptionGroup2dogˀll<lqlj All &Graphicsv OptionButton4dogĀj FormatPicturedogˀllPllj&Current Graphicv OptionButton3dodog؀l8lxllj&Add 3-D Borders to Graphic(s)vAddBoxdR?dR/iDlg4g)dRiDlgvColors ldRiDlgvAddBox ldR?iDlgdoiDlgvAddBox liDlgvColors ldog+j>You selected not to add shading or borders to your graphic(s).rdoj Do you want to continue?jGraphic Shadowsl$doiDlgvAddBox ldoiN g+j"Do you want to remove the current rdojborders on your graphic(s)?jGraphic Shadowsl#doiN ldoiDoItdo dog+jNo graphics were affected.jGraphic Shadowsl@dododo dog+jNo graphics were affected.jGraphic Shadowsl@dodo doiDlgvAddBox ldoiN g+j"Do you want to remove the current rdojborders on your graphic(s)?jGraphic Shadowsl#doiN liDoItdo doiDoItdododRd dRg,dR6jEThe command is not available because a document window is not active.dddddiDoItdgudRi CurrentView ldgtdRi CurrentView ld dRi CurrentView lddgsdgs jZZZZZZsdiDlgv OptionGroup2 ldRgdRgtdRgps j^gs ls} ldR!g׀doi AddShadowsdogpdR"d dRi AddShadowsddRgs jZZZZZZsdRgs jZZZZZZs di CurrentView ldRgudi CurrentView ldRgtddgldiCounterldRg+jThe operation is complete.gl gl rdRjThe macro modifiedgiCounterj) graphic(s). To view the shading, switch rdRj%to page layout view or print preview.jGraphic Shadowsl0d dRg+j)No graphics were found in the document. rdRjSo, no alterations were made.jGraphic Shadowsl0dddddi AddShadowsdiCounter iCounterld6jAltering graphic numbergiCounterd/iFP4gd>iFPdi Leftinch$ gggl lh?gl didlgvAddBoxdRgs ls ls lrdRQs ls ls lso lrdRQsp lsc lsd lse lrdRQsf lsg lsh ls j0 ptrdRQs ls ls ls j0s; ldiN ldRgs ls ls lrdRQs ls ls lso lrdRQsp lsc lsd lse lrdRQsf lsg lsh ls j0 ptrdRQs ls ls ls j0s; lddiDlgvColors ldRgdRgydRg5s j2s0 iDlgvColorssa js2 j8rdRQs1 j1s ls4 ls5 js8 lrdRQs7 ls6 ls ls: ls i Leftinch$rdRQs ls nj0.25gl"s lsQ ls  iFPs6rdRQs  iFPs5s jdRgddgdgddp@ ********** Macro Name: FileUtilities **********dk3 API call to locate all drives, local and network.dAi GetDriveTypeNjKernelinDrive4C4Cddd/0iDir$liDir2$liFileListingResult$liPath$liPath2$li DriveList2$li TimeThrough$d/0iGraphic$li FileType$liToBox$iTemp1$li DriveList$liCountDrviCounteriLastItemd/0i IndexDrivei IndexDrive2iEnableiDisableiStateiaStateiIStateiTRUEiCount1d/0i CurrentFile$iDisplayFileTypes$iCount2d/0iNet4gddp= ===================== Main Macro Routine ===============diMAINdg> lg-dpB *****************************************************************dp= ************ To Change File Type Display *******************dkA If you want the file type list to display all file types in yourdk= win.ini file (giving a list of file types from other Windowsdk= applications), change the number "1" below to a "0". If youdk7 make this change, the macro will take longer to start.ddRiDisplayFileTypes$ j1ddpB *****************************************************************dRiENABLE liTRUE ldRM?g)lljFile UtilitiesvfFileDlgdogʀlll_ljvGroup1dogɀlllZl j File Names:v FilesTextdog܀ll+lliFileListingResult$vFList1dogɀlllZl j File Types:vFileTypedogHllll<i FileType$vTypeListdogɀlllUl j Directories:vText2dogɀll*ll iCurdir$vCurdirdogڀll=llmiDir$vListBox1dogɀlll7l jDrives:vText4dogHllll<i DriveList$v ThisDrivedogʀllll jvGroup2dog5ll llvFile1dog%ll lljlvGraphic1dogɀlllUl j Directories:vText3dogɀll*ll iCurdir2$vDestDirdogڀll=llmiDir2$vListBox2dog̀lllljCreate &New DirectoryvpbNewDirdogɀlll7l jDrives:vText5dogHllll<i DriveList2$v DestDrivedogʀlrll*l jvGroup3dog̀lrl(lXlj&Copy >>vpbCopydog̀lrlAlXlj&Move >>vpbMovedog̀lrldlXlj&RenamevpbRenamedog̀lrl}lXlj&DeletevpbDeletedog̀lrllXljvpbAttribdog̀lrllXljvpbInfodogǀl llXlvpbOpendog̀lillXlj Ne&twork...v pbNetworkdogȀlllXlvpbClosedog؀l'llAlj&ViewvcbViewdogɀl;ll2ljFilesvtFilesdok&==== Attribute Options ===============dog̀lllljCl&ear AttributesvpbClearAttribsdog؀llUlflj Read Onlyv CheckBox2dog؀lljlOljHiddenv CheckBox3dog؀lllZljArchivedv CheckBox4dok%==== Information Text ===============dogɀllll jSelected Files:vText1dogɀll&ll jvText6Rdogɀll:ll jAvailable Disk Space:vText7dogɀllGll jvText8Rdogɀll[ll jMS-DOS Version:vText9dogɀllhll g lvText10dogɀll|ll jWindows Version:vText11dogɀllll g lvText12dogɀllll j Windows Mode:vText13dogɀllll g lvText14dogɀllll j CPU Type:vText15dogɀllll g lvText16dogɀllll jSystem Resources:vText17dogɀllll g lj availablevText18dogɀl l l,l jv FileLengthdR?dR/iFileUtilitydlg4g)dRiChoice ?iFileUtilitydlgddddp? ===================== Function: fFileDlg =================difFileDlgiID$iActioniSuppValdR13iActiondR3ldo)i InitializedR3ldo13iID$do3jTypeListdo)i BuildFilesgjTypeListdo3j ThisDrivedo)i ChangeDriveiPath$iID$jCurdirdo)i BuildFilesgjTypeListdo)i ChangeSubDirldoi TogglePicturejFList1dog7jText8glj kb on drive gj ThisDrivedoiFileSizedo3j DestDrivedo)i ChangeDriveiPath2$iID$jDestDirdo)i ChangeSubDirldo3jpbDeletedoi CurrentFile$ gjFList1do)i FileDeletedoifFileDlg ldo3jpbCopydo)iCopyMovejCopydoifFileDlg ldo3jpbRenamedo)i RenameFiledoifFileDlg ldo3jpbInfodo)i InformationiiStatedoiiState giiStateldoifFileDlg ldo3jpbMovedoin gjFList1do)iCopyMovejMovedo,-&doin lgjFList1inldoifFileDlg ldo3j CheckBox3dogj CheckBox3 ldog+j