ࡱ;  Root Entry F}CompObjbWordDocumentd/ObjectPool    FMicrosoft Word 6.0 Document MSWordDocWord.Document.6;  Oh+'0 ( Lp @@@@Microsoft Word 6.01)4)SummaryInformation(0)3)4)ܥe- ed/     .. $E . . . 2 2 2 2 !L#L#L#$p##$$T;%$2 2 2 2 2 $2 2  2 2 2 2 2 2 !  2 !2 j2 macrobutton InstallMacros Click here to Install Macros This is where your documentation would go. This document is an example "vehicle" based upon NEWMAC.DOT. diMAINdg+j Hello World!jNeatddiMAINdkAutoOpendk8(c) Guy Gallo 1994, for PC Magazine Extending Your AppsdgmldgBgBdgDgDdp? to automatically execute InstallMacros uncomment the followingdp, ToolsMacro "InstallMacros", .Run, .Show = 2dpG to get user confirmation before running, uncomment the next two lines:dp= Msg$ = "Do you wish to proceed with installation of ImHere?"dpE If MsgBox(msg$, 36) Then ToolsMacro "InstallMacros", .Run, .Show = 2dd/0i SavePromptitCountit$liUpDoc$iContextdiMAINdk InstallMacrosdk8(c) Guy Gallo 1994, for PC Magazine Extending Your AppsdkA*****************************************************************dk INITILIZATIONdgdk,See if changes are to be automatically saveddi SavePrompt ggMj ForceSavediNull$ jNonediUpDoc$ i fFileNameExt$g;Rk"For closing and returning; globaldiCount g(lQok%Total number of macros in this updatedicount lg+j&No macros to install from this vehicle*ibyed5it$iCountllokDimension the arraydiMarker$ j|dkZParse all the glossaries in the vehicle and put the information into a 5 dimensional arrayd#ix l$iCountdRiGloss$ g'g)ixlldRiCurrent ixldRit$iCurrentlQR iChew$iGloss$iMarker$RkDestination TemplatedRit$iCurrentlQR iChew$iGloss$iMarker$Rk Source NamedRit$iCurrentlQR iChew$iGloss$iMarker$RkDestination NamedRit$iCurrentlQR iChew$iGloss$iMarker$RkKey Code or NonedRit$iCurrentlQR iChew$iGloss$iMarker$RkMenuText,Menu or Noned&dkARemove duplicate templates (so that we only open a template once)d#ix l$icountldRgi Templates$it$ixlj, ldoi Templates$ i Templates$it$ixlj,doitCount itCountldRd&iXditClose$ i Templates$di UpdateDoc$ g%di OpenFilesi Templates$g,g+jError opening a template...*ibyed#ix l$iCountldRiActivatePartialiUpDoc$dRiFrom$ i UpdateDoc$j:it$ixldRiTo$ it$ixlj:it$ixldRit$ixl j NORMAL.DOTit$ixl jGlobaliContext ldR6j MacroCopy iFrom$j,iTo$dRg€iFrom$iTo$dRnit$ixl iNull$doiContext liActivatePartialit$ixldogs iContexts it$ixls git$ixlsdRdRnit$ixl iNull$doiContext liActivatePartialit$ixldoitemp$ it$ixldoiMenuTxt$ iChew$itemp$j,doiMenu$ iChew$itemp$j,doiDivider giChew$itemp$j, ldoiDividerdoiS$ j--------------------dogs iContexts iMenu$rdos is$ns is$sdodogs iContexts iMenu$s it$ixlrdos iMenuTxt$sdRdRiActivatePartialiUpDoc$d&dg,6jDone...*iNoErreErrMsgdg+j The macro [it$ixlnj] could not be found to copy...eNoErrd)iCloseAllitClose$diActivatePartialiUpDoc$eByed6jDonedddiChew$iSource$iMarker$diIndex giSource$iMarker$dRiIndex ldoiC$ iSource$doiSource$ jdR doiC$ g iSource$liIndexldogic$iMarker$giSource$doiSource$ g iSource$iIndexgiMarker$do doiSource$ jdodRdRiChew$ iC$dddi OpenFilesitToOpen$diDotPath$ gEjDOT-PATHdiDotPath$ jiDotPath$ gEj ProgramDirdiDotpath$ jiDotPath$ j C:\WINWORDdiWin g:ditCountlg+j!Can't load that many templates...i OpenFiles l*ifEnddiWinitCountl dR!iWinldogdogldo6jClosing other windows...doiWin g:dR"ddgրldgiDotPath$d!itToOpen$ jdRiThis$ iChew$itToOpen$j,dRgiThis$ jGLOBALgiThis$ j NORMAL.DOTdogiThis$j. liThis$ iThis$j.DOTdo6jOpening iThis$dogPniThis$dR do6j+Installing to NORMAL.DOT. No need to open.dRd"dgրldi OpenFiles lefEnddddi fFileNameExt$ia$dib$ ia$d!gib$j\ ldRib$ g ib$gib$gib$j\d"di fFileNameExt$ gib$dddiActivatePartialiDoc$dg:lg,*isEnddiH g>nd!ggg;giDoc$ ldRgdRg> iHg,6jNo such window as iDoc$*isEndd"esEnddddiCloseAllitClose$d!itClose$ jdRiThis$ iChew$itClose$j,dRgiThis$ jGLOBALgiThis$ j NORMAL.DOTdo6jClosing iThis$doiActivatePartialiThis$dogi SavePromptdR do6j+Installing to NORMAL.DOT. Nothing to closedo,-&dogi SavePromptdRd"d789ubc uDbc9d!!!& &)')())).K"@"Normal]a *@"* Heading 1 U]c(@( Heading 2 h& c$@b$ Heading 3Vc&@b& Heading 4h]^c$@b$ Heading 5U]$@b$ Heading 6]^$@b$ Heading 7V]$@b$ Heading 8V]$ @b$ Heading 9 V]"A@"Default Paragraph Font$'@$Annotation Referencec @ Annotation Text&@&TOC 8X !&@&TOC 7X !&@&TOC 6X !&@&TOC 5@ X !&@&TOC 4pX !$@$TOC 3X !&@&TOC 2X !&@&TOC 1X !@Index 7p@Index 6@Index 5 @Index 48 @Index 3 @Index 2h @Index 1(@ Line Number!@ Index Heading! @" Footer "! @2 Header #!$&@A$Footnote Referencece@R Footnote Text%"@b" Normal Indent&dOdSourceJ+& ' ( ) / xHP X @@@@@@@@@@Uc$/@$List ,ps]TOT SourceTop5-s& ' ( )  xHUc 73j Guy J. GalloD:\WINWORD6\TEMPLATE\NEWMAC.DOT Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC Guy J. GalloD:\WINWORD6\TEMPLATE\HWORLD.DOC ForceSaveN 0U=&U>U@'~ !QQ InstallMacros7Automatically copy macro(s) to destination template(s).AutoOpen3Macro executed automatically upon opening document.ImHere &Bogus...GreetingBOGUS=IMHERE>AUTOOPEN@ INSTALLMACROS@Windows Printing SystemLPT1:WPSLJWindows Printing System PDF od,,LPT1:22 8Windows Printing System PDF od,,LPT1:22 8 dETimes New Roman Symbol &ArialCG Times (W1)"  h܅H-$#Click here to Install MacrosInstallation Vehicle+An example "vehicle" built from NEWMAC.DOT. Guy J. Gallo Guy J. Galloࡱ; ܥe- e)4)d/4.p.pp.p.p.p.p..... .....E.............../Td/.p........p.p.......p..p.....p.p.p.p.....NORMAL.DOT|ImHere|ImHere|839|&Greetings...,&View,1 ࡱ; K @ Normal ]a c"A@"Default Paragraph Font4NORMAL.DOT:ImHere34)4) )4) 4@ETimes New Roman Symbol &ArialCG Times (W1)"V hࡱ;