Dec 182017
 
Word for Windows macros. Self installing.
File W4W-MAC.ZIP from The Programmer’s Corner in
Category DeskTop Publishing
Word for Windows macros. Self installing.
File Name File Size Zip Size Zip Type
GJGMA3.DOC 16027 6296 deflated
GJGMA5.DOC 22689 9293 deflated
GJGMAC.DOC 17162 7065 deflated
GJGPUB.DOC 9371 3791 deflated

Download File W4W-MAC.ZIP Here

Contents of the GJGMA3.DOC file


!v c,>5
2%2%%2%2%2%2%232E2E2E2E23>C>E2E2G2L22222m3..3 N3T3:3(5(5F5B5F5%2F5F5F5TitleGJG Macros Version 3.0
author Guy J. Gallo
CIS 71171,3555
DATEMarch 5, 1990

This is the third in a series of Microsoft Word for Windows macro templates.
To install simply double click on the button below, and choose the macro to install into your NORMAL.DOT:

MacroButton MakeGlobal [Install]Error! Bookmark not defined.


GJGChooseDirectory
This is an improvement on a macro included in GJGMA1. The first seven directory choices are now stored in the WIN.INI file, under the Microsoft Word section. As a result the directory descriptions and pathnames can be easily edited. And in order to configure it for your system you no longer have to edit the macro -- you can simply run the macro and it will prompt you for names and pathnames.

Note, however, that the macro still contains several hard-coded items: 1) there are eight choices, the first seven of which are configurable, the eighth simply opens the last file edited. These numbers could be raised or lowered, but it would require editing the size of the dialog box, and the number of items in the Case statement that controls the macro flow. 2) There are three extensions -- DOC is the default, DOT is an option that will open the DOT path with *.DOT as the extension no matter which of the eight items on the left are selected; and XWS -- which is an example of how you can tie one of these extension OptionBoxes to a hard coded directory/extension pairing (this could be used for editing any kind of text file -- like a BBS capture LOG).
GJGMakeWordBook
This macro will first check to see if there is a block of text selected. If so, that selection will be inserted as a glossary name.

If there is no selected text (just an insertion point cursor), then this macro will take the current word and make it a glossary name.

This macro will check for duplicate glossary names and append the instance count to the word if there is already a glossary using the word as the mark. It does not, however check for illegal punctuation marks in the current selection.
GJGMakeBook
A slightly more complicated version of MakeWordBook, this macro takes the current selection and presents it for editing.

Instead of grabbing the current word if there is not selection it grabs the current line.

It presents the multi-word selection as a proposed bookmark, with spaces converted to underline marks
It does not check for illegal punctuation.
GJGMergeTemplate
This macro checks to see if there is a document template attached to the currently active document. If so, it merges the paragraph/character styles as they are currently defined in the template into the document. This is useful if you have changed the template or document independent of one another, and is the equivalent of FormatDefineStyle.Options.Merge.From.TemplateName.
GJGWinArrVert
Arranges open document windows vertically.
GJGWinStack
Simply stacks the current document windows, leaving the title bars visible. There are two constants in the macro, HLap and VLap, which can be adjusted if the overlap does not suit your preferences.

The macro is not device dependent. It should work at all monitor resolutions.
GJGWinSideBySide
This macro simply checks to see if there are precisely two document windows open. If so, it arranges them side by side. If not it presents an error message.
MAIN
O/bkmk$A5#i$A"Tbkmk$iBi;v8\selBidefault$Bi&O?v-g

&Macro to install,M
Xbkmk$bkmkGeXafX?/dlg4dlgbkmkdefault$,-*bye?dlg,-*dlgbkmk
W'1dlgbkmkS
bmXxbye
kiGJG MakeBook - a macro to create a bookmark out of the current selection, or the first twenty characters lljof the current selection. This macro will allow you to edit before accepting the Bookmark name. Bear in SQmind, however, that punctuation is not automatically stripped from the selection.g-e If there is no selection the first twenty characters of the current line is proposed as the bookmarkMAINOK
>=
K$r*k$K$lk$!(!/K$j
IK$NoSpace$K$]"cK$NoDup$K$tDoMarkk$byeDoMarkK$,-*Off]s l)Edit bookmark (Twenty Characters maximum) GGJ MakeBook K$&off,57NoSpace$K$2NA$lk$/K$j 7xB$mk$k$a$"NoSpace$ A$_B$NoDup$T$/bkmk$Ax#i$A"&bkmk$iBi#H8BiT$yx'T$T$mkx @T$lT$t$mkxxx&iNoDup$T$+
MAIN
-MagicIVlapTHlap^pxfpy+nxb Magic
HLap'ybMagic
VLap#i$Magic! Revision by Mike DavisonpxpyxypxpxHLap)pypyVLap:&iBK
MAIN
6&%More than two Docuement Windows [email protected]\*Byei oxbybMove non-active Window xxy& return to and move active Window1>Mxy\dbyejs
MAIN
/dlg4z%>dlg7T$dlgRJT$7[No Template attachedMerge [email protected]
*byeEMerge styles from T$?GJG Merge Templage$}gT$.*G<>cE^This just gets the screen repainted so you can see the font change if you aren't in draft modebye
MAIN
-MagicEpxMpy#Uxb Magictyb#i$Magicpxpyxypxpxx&i
GJG MakeWordBook v [email protected] This macro takes the current selection and makes it a bookmark.E\C It will also, if there is no selection, highlight the current word! and make that word a bookmark.CA If the current Word is *already* a bookmark, it will optionally,CA append a number corresponding to the instance of this word as a L bookmarkQXO To activate the duplication feature, uncomment the line K$=NoDup$(k$) below [Y The macro will check for appropriate length of the bookmark, and it will remove spaces, EC but it will not check if the selection contains punctuation marks.LMAINVOfK
AB
K$rP/k$K$j K$lK$k$!!/K$j
3A$lk$/K$j 8JB$mk$k$a$uK$A$_B$"K$NoDup$K$GE comment this line if you don't want to check for duplicate bookmarksslk$!6BookMark K$
inserted.2\\EndOfSelHbyeOXZNoDup$T$o/bkmk$Ax#i$A"bkmk$iBi#8BiT$x'T$T$mkx7 @?T$lT$t$mkxt~xx&iNoDup$T$
/0DirD$/0DirP$*MAIN4#I$DDD$ Microsoft WordDirPmki)d$D$EditString$i?DirD$inD$/d$|:DirP$inD$/d$|&iO&Again.O? @'Qh Directory zRh(iDirD$(i#DirD$(i2DirD$(iADirD$(7iPDirD$(`i_DirD$(inDirD$&i}Z
&Last FileRExtension* i _<.DOC*' i n<.DOT*V i }<.XWSe#Df>D([email protected]&EditEDIT?/dlg4
,-*Bye ?dlg,,-*bye?dlgEditUidlghmd$EditString$I?DirD$inD$/d$|:DirP$inD$/d$|*Again13dlgh3XDirP$*33XDirP$E3NXDirP$`3iXDirP${3XDirP$3XDirP$3XDirP$3Q3 *Bye1dlgh*Bye'/lg4F;>lgL13dlgExtensiong3plg*.DOC3HBThe next line assumes you have an DOT-PATH defined in your win.iniXDOT-PATHlg*.DOT3XG:\XTALK\XWS3lg*.XWSVITThe above is just an example of how you can tie an extension to a specific directory3 lg*[email protected]$i,-*byeg*I$Edit description for directory kiGJG Choose Directory EditDirD$iUX$Edit full path for i$GJG Choose Directory EditDirP$iEditString$I$|X$HMicrosoft WordDirPmkiI$|X$NbyeTb


DirP$3XDirP$3XDirP$3Q3 *Bye1dlgh*Bye'/lg4F;>lgL13dlgExtensiong3plg*.DOC3HBThe next line assumes you have an DOT-PATH defined in your win.iniXDOT-PATHlg*.DOT3a,c,0
"
}


%


FCr"_,a,c,0
**
!)6JO]>[*3mGJGChooseDirectoryGJGMakeWordBookGJGMakeBookGJGMergeTemplate
GJGWinArrVertGJGWinStackGJGWinSideBySideb!!9
t!!9
CU

w%%%%%%&;&
MakeGlobalLAllows the user to select a macro to be made available in the global contextGJGMakeBookMake selection into a bookmarkGJGWinStackArrange Windows in stackGJGWinSideBySide Arrange two windows side by sideGJGMergeTemplate#Re-loads template style definitions
GJGWinArrVertArrange Windows verticallyGJGMakeWordBookMakes current word a bookmarkGJGChooseDirectoryChoose directory - use WIN.INI
u"=/ho+%80EOP
GJG MacrosTo macros:
CustomGlossary: allows the toggling between glossary entries specific to a template and global.
ManageMacros: a way to more easily copy macros from one context to anotherGuy GalloGuy Gallo456789:;<=>[email protected][\]^_`abcdefghijklmnopqrstuvwxyz{|}~!v 99>>>>>>>>)>)>)>+>3>3>C>)>S>U>Y>Y>Y>Y>Y>Y>Y>Y>Y>Y>Y>Y>Y>B>Y>>Y>Y>Y>
9999
9999"=/h


 December 18, 2017  Add comments

Leave a Reply