Category : DeskTop Publishing in the 1990's
Archive   : W4W-MAC.ZIP
Filename : GJGMA5.DOC

Output of file : GJGMA5.DOC contained in archive : W4W-MAC.ZIP

›¥!v )€”G¡XÆL2NXNXXNXNXNXNXNfN<¢N¢N¢N¢N3XCX¢N¢N¤NLðNðNðNðNðN OO %O+OGO¯öO®¤PÂPBQ%ÂPXNÂPÂPÂP$%ÿÿŸ ¡¢£¤¥¦§ÿÿ©ª«¬­®¯°±ÿÿ³´µ¶·¸ÿÿº»¼½¾¿ÀTitleGJG Macros Version 5.0
© author Guy J. Gallo , 1990
CIS 71171,3555
This is the fifth 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.
This macro prints an envelope, using a hard-coded Return Address and either 1) a bookmark named NameAddress, 2) the current selection, or 3) an InputBox supplied address.
You install the macro by clicking on Install above -- but you must also edit the macro and insert your Return Address. Search for the line that begins "MYAddress$".
Also, please note, this macro was written for the Hewlett Packard Lasrjet Model II. It should work, as is, on all subsequent models (the IID, IIP, and III), but if you are using a Laserjet I, you will have to modify the control codes contained in the macro.
To do so, search, in the macro for "Model", and replace the corresponding Case statement with the following:

Select Case dlg.Size
Case 0
Margin1$ = E$ + "&l27E" + E$ + "&a0r17L"
Margin2$ = E$ + "&a65L"
Case 1
Margin1$ = E$ + "&l27E" + E$ + "&a0r35L"
Margin2$ = E$ + "&a65L"
Case 2' small
Margin1$ = E$ + "&ll28E" + E$ + "&a0r45L"
Margin2$ = E$ + "&a75L"
End Select
Current version: 1.6
Allows simple assignment and removal of key stroke combinations to macros (either global or template bound).
Enhancements over the built in MacroAssignToKey:
Allows the use of Alt-Char, Alt-Ctrl-Char, and Alt-Shift-Char. In the built in routine the first two combinations are disallowed. The last is reserved for WinWord's use. Note that WinWord reserves these key sequences for it's own use in many cases, so preventing you from reassigning them is a form of protection. Use this routine cautiously, and backup all DOT files before you experiment.
It seems that any combination of keystroke with F1 will always call help. So it isn't fair game.
It seems that NumPad 5 (the numpad 5 that is activated by turning NumLock ON) does not accept shift characters. The NumPad 5 that is active in default state (NumLock OFF) does accept shift characters. The macro accounts for this oddity. Also note that the Unshifted NumLockOFF-5 cannot be assigned to a macro (this is the key, by the way, that is described as KeyCode 12 in the Technical Reference).
No sorting of the macros. The template macros will appear in the order you created them. The built in macros (if that option is checked) will appear in the order God created them.
How it works:
First dialog: You will be presented with a dialog allowing you to choose several options:
Global - Displays the macros from
Template - Displays the macros from the currently active document's template if there is one (if there isn't then "No Template" will be displayed.
Show Built in Macros - In addition to the user created macros, this option, if checked, will show all of the built in macros. Note that the macros will not be displayed sorted. This is equivalent to the Show All option available on the main screen
Do Multiple - Checking this option will loop through the macro until you select cancel from the main screen.
Main Screen:
List box of macros from the currently selected context. Select the macro you wish to assign a key to (or remove a key from).
Key Combination: Check the shift keys you wish to activate (Alt, Ctrl, Shift, in any combination), and then move to the Key box and type the key you wish to assign to the selected macro. Legal keys are any non-shifted alphanumeric key. For instance, the semi-colon is legal, the colon is not (since the colon is already a shift state key...). Likewise, there is no difference between "D" and "d"
Fkeys - double clicking on Fkeys, or clicking on it once and then selecting OK, will display a dialog box of twelve function keys, and three check boxes for the shift states.
Special - double clicking on Special, or clicking on it once and then selecting OK, will display a dialog box of all supported special keys (Esc through Del...). Try it, you'll like it.
Reload - this option reloads the macros - useful if you have changed the checkbox states of Template or Showall.
Remove - this option checks to see if the currently selected macro has a keycode assigned to it. If so you are asked if you want to remove it. If not, a message displays at the bottom of the screen.
Template - this is a checkbox (double clicking will not execute the command; you have to check it and then click on OK). It toggles between displaying only Template Macros and only Global Macros.
ShowAll - this is a checkbox that toggles between showing macros in the selected context (global or template) and the built in macros.
Additions in this version:
Will not allow you to assign anything to Ctrl-Alt-Del (duh...)
Cleaned up the screen a little and includes the working macro on all screens
O/bkmk$A5#i $A"T bkmk$i Bi;v 8\selBi default$ BiÇ&ÍÏO?v-ñ g
&Macro to install, M
 Xbkmk$bkmkG e¸Xa f¸X€?Œ Ž/dlg4¥dlgbkmk default$ º,-*byeÍ?dlg Ù,-*êìdlgbkmk 
W' 1dlgbkmk S
bÙmXx „byeŠ“
 © Guy Gallo, 1990GJGMacroKey v 1.6 8+6 Added display of macro to all contexts (thanks Peter)d/0b$sMAIN}O` œV$ 1.5c©/z: Î ¡CÕ  Cannot run on a macro paneGJG AssignMacroToKey0
 *Bye#+-A 4Context AECCSet the above to 1 if you want all macros shown, including built in:‰8Set to 0 if you only wish to modify the user added macroÄn$ 
NORMAL.DOT ×/dlg4Oó>dlgdlgR None$ Context 
2 T < B Context P M$ dlgRdl!/M$\
6‡ M$ mM$M$/M$\¶"¼O?@x,Þ g“ 
MacroKeys V$# h“< Setup  , RCont#@ i'$b&Globali t ){ g'7¾
(No template)£  %ª i'2b &TemplateÕ:Ý SNÛInclude &Built in macrosAll6 S`ÛDo &multiple macrosLoopS eã@n fã2@? ™5dlg4 ²,-*byeÅdlgAll AÒDlgCont Contextæ?dlg ò,-*Context DlgContLoop dlgLoop -A dlgAll:again(BContext b$ n$ b$ M$$l5S$cContextA$“ #x $cContextA/º s$x …xContextAâ&èO?¶ð0
 gÞ  Macros: (b$)08 gÞ¨ GJG MacroKeys V$ f gíhD &Key'† L Ís$LB2¬ hÞ¾iSelect Key Combination'ã Sï'<&Alt+Alt)
 Sï;D&Ctrl+Ctrl+9 SïOD&Shift+Shiftg RKeyType"~ iC'D&Fkeys$§ iC;KS&pecialÒ QVd5Keyó eæŒ@ fCŒ@
/ RAction*E i籠Re&load Macros+x iï´„&Remove Keycode,¬ SïÃ\ &TemplateCont.Ü S ïÒ\ Sh&ow AllAll ?  5dlg40 dlgCont Context D T dlgCont d dlgAll Aq dlgAction ƒ dlgKeyType – ,-*TheEnd¬ ?dlg ¸ ,-*É A dlgAllÖ Context DlgContê T Context 

Action = dlg.Action

dlgAction *again M
Remove dlgAction "g
Special dlgKeyType &ƒ
 FunctionKey dlgKeytype /£
Macro$ …dlgLBContextA(Ð
Illegal$ :|[email protected]$%^&*()_+{}<>?j"+ TheKey$ dlgKey > Remove%N   RemoveKeyMacro$Context
k  *Byev /~ TheKey$ /Illegal$TheKey$†°   ~Either you have click on OK after changing Context and/or ShowAll, or you entered an illegal character (or none). Reloading... :  *againG  O AgainKey
Z Specialk O?ߪB  hÕ‚Select Key Combination for: Macro$Ð  R
SpecialKey ê  i7&Esc 
 i7&Home ¯
 iÄ$7Pg&Dn"& iT@DSp&ace"N iDGrey&/"w iHDGrey&*"  iDGrey&-"É i$DGrey&+ò i$n7Ins iln7Del@ i$Z#&0e ilZ#&.Š i$H#&1¯ iHH#&2Ô ilH#&3ù i$6#&4 iH6#&5C il6#&6h i$$#&7 iH$#&8² il$#&9× e$d<ò fd<& SŒF&AltAlt(; SnŒF&CtrlCtrl*g S¾ŒF&ShiftShift•?¡ £5dlg4 ¼,-*byeÏ?dlg Û,-*ì 13dlg
 32  KeyNum Esc
, 32 ; KeyNum  Tab
N 32 ] KeyNum BS
o 32 ~ KeyNum 
” 32 £ KeyNum $Home
¸ 32 Ç KeyNum #End
Û 32 ê KeyNum !PgUp
ÿ 32  KeyNum "PgDn
# 32 2 KeyNum  Space
H 32  W KeyNum oGrey/
n 32 
~ KeyNum jGrey*
• 32  ¥ KeyNum mGrey-
¼ 32  Ì KeyNum kGrey+
ã 32 
ó KeyNum -Ins
 32  KeyNum .Del
+ 32 ; KeyNum `Num0
P 32 ` KeyNum n NumPeriod{ 3 $% KeyNum dlg
SpecialKeyP® 32  KeyPad53È dlgAltdlgCtrlDlgShift÷ KeyNum     KeyNum e # . 3$%? KeyNum dlg
SpecialKeyP` 3 m ¡_v]Something needs to be done with case 21 - the "5" key -- what about the NonNumLock Center KeyÖ 1ãå FunctionKey Function key O?þxB- hôKSelect Key Combination for: Macro$ o RFkeyƒ i
$(f&1¨ i2$(f&2Í iZ$(f&3ò i‚$(f&4 iª$(f&5> iÒ$(f&6d iú$(f&7Š i"$(f&8° iJ$(f&9 Ö im$-f1&0 ý iš$/f1&1 $ iÇ$-f1&2&K SWF&AltAlt(s SnWF&CtrlCtrl*ž S¾WF&ShiftShiftË e$W@æ flW@? 5dlg4 ,,-*bye??dlg K,-*\KeyNum pdlgFkeyuw  Not special‰
‹13TheKey$   3 ;« KeyNum º » 3 =Æ KeyNum » Ö 3 ,á KeyNum ¼ ñ 3 -ü KeyNum ½  3 . KeyNum ¾ ' 3 /2 KeyNum ¿ B 3 `M KeyNum À ] 3 [h KeyNum  Û x 3 \ƒ KeyNum Ü “ 3 ]ž Keynum Ý ® 3 '¹ Keynum ÞÉ 3 %Õ KeyNum €TheKey$ö 1 H
dlgCtrlKeyNumRKyCode .An  #Cannot assign a macro to CtrlAltDel MacroKey 0¯ *AgainKey¿ *ÈŽMacro$KyCode ContextBye Loop*again %TheEnd.7$9 RemoveKeyMacro$ContextY#i $7ContextEz Macro$ ‰iContextKyCode =iContextÀ&
ÆDes$ Ñ KyCodeWas KyCodeåKyCodeü KyCode KyCode Des$ AltDes$+3KyCodeI KyCode KyCodea Des$ Des$ShiftyKyCode— KyCode KyCode¯ Des$ CtrlDes$Æ(ÎKyCode0KyCodeZô KyCode|  KyCodeo;# Des$ Des$FnkKyCodeoX KyCode_s Des$ Des$ NumPad KyCodej*© Des$ Des$kKyCode`Î  9× Des$ Des$n*+ -./KyCodei
    13KyCode4 32 D Des$ Des${BS}] 32  m Des$ Des${Tab}‡ 32 
˜ Des$ Des${Enter}´ 32 Å Des$ Des${Esc}
ß 32  ï Des$ Des${Space}
 32 !  Des$ Des${PgUp}
6  32 "F  Des$ Des${PgDn}
a  32 #q  Des$ Des${End}
‹  32 $›  Des$ Des${Home}
¶  32 -Æ  Des$ Des${Ins}
à  32 .ð  Des$ Des${Del}
! 3 ! Des$ Des$'! 15! >!  |E! KyCodeÚDes$ Des$n[\]'KyCodeÚ Des$ Des$n;=,-./`KyCode¹½! Æ!  #Í! Des$ Des$jKyCodeë! ô! KyCode
"  Macro$ is assigned to [Des$ ]. Delete?Remove keycode$2h" ŽMacro$ KyCodeWas Context2®" ŽMacro$ KyCodeWas Context ô" #  ># 6No key combination assigned to Macro$ in b$I# R#[#
20GJG Print Envelope -- April 9, 1990 version 1.0735 Guy Gallo, James Gleick and the WinWord Gadfly TeamkMAINuO…CrLf$ j
¢NL$ j ²E$ jÁDown$ E$&a12R ØUnderOn$ E$&dDï UnderOff$ E$[email protected]( NameAddress\ NameAddressGK ^ VFC hw VFC hœ Address$ r ¶ hVFCË  6Ò Address$ ƒAddress:GJG Print Envelope "I /Address$nl$0j  7Temp$ 
C!i?P Temp$ Temp$nAddress$jijCrLf$„ j i&‘ i /jAddress$nl$°"(¶Temp$ Temp$nAddress$jÙAddress$ Temp$BëmAddress$
CrLf$Address$ Address$CrLf$.-,Edit the following with your Return address:M\
First lineCrLf$ Second line CrLf$
Third line<§ LinePrinter$ E$(s0t0b0s08.50v16.66h0PE$&l8D2ãCourier$ E$(s0p10h12v0s0b3TE$&l6D(&You could put soft fonts here as well.A>Setup$  E$EE$&l1o3H  Landscape, Envelopey{O?úú/ g
´ Envelope to print
Ë RSize)á i(Z  &Business) iWZ  &Personal&? i…Z &Small"l h}_(4x9½"‘ h}MK(4x7½#¶ h}{A3½x6½>Ý S´È Include &return addressReturn+ SÈ< Note:Extra&M Q\ÅŒ ExtraTextv eÜ@“ fsÜ@µ? Á/dlg4ØdlgExtra çdlg ExtraText URGENTdlgReturn  ,-*bye$?dlg 0,-*  6Crlf$ &Haven't figured why this is necessary.B  6
MyAddress$Y a 6Courier$u 6Down$† dlgExtra   6UnderOn$²  6dlg ExtraTextÌ  6 UnderOff$â ê 6Margin2$þ 6Address$
6E$E( Reset/

ËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÿÿÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ€†‡‘’£¤«¬¸¹ÒÓ×Øßà⛜¼½ÙÚÜ ¿Õ÷q£1 ? í ü X ^ † Ž 
!„’š"ÝࢧPYƒ‰MU‚…F’G”GüùüùüùüùüùüùüùüùüùöñìñçñìæáààààæÛÛÛÛæÛÛàÛÛÛÛÛÛà F€¡ÂÒâ0›Üë—¦MQ¿Á×à %.Ysƒ¯ÉÕà÷q£1 ? ¢ 6 í ü X † 
„’¢RƒMœ¸øøøøøòòéäßÚßÕÐÊÊÊÊÊÊÊÊÊÊÊÊÅÚÚÐÚÀÚлßÚг«£«ž«–ŽŽ«ŽŽ«³†À!þ pÀ!þ pÀ!þ pÀ!úÀ!þ pÀ!þ pÀ!þ pÀ!þÀ!þþÀ!þÀ!þÀ!þÀ!þÀ!þþÀ!3À!ààÀ!3À!c4øF‰®<G’G”GøóóóóøÀ!þ pÿÿ0ÿÿ/ÿ
þÿРðÿÿÿÞFÿÿÿÿV7 8Fÿÿ
MakeGlobalLAllows the user to select a macro to be made available in the global contextMacroKey,Assigns/Unassigns key combinations to macros
PrintEnvelopePrints envelopesPCL / HP LaserJetLPT2:HPPCLPCL / HP LaserJet<!Š@¶ÿÿÿ1
Ÿc(r3€VV €€VU"
à=Ð/  ÐhM¤%ƒŒ¥…iŒ¥…0XA% Guy J. GalloJohn C. Collinsÿÿÿÿÿ˜™ÿÿÿÿÿÿžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÿÿÿÿÿÿÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ›¥!v €S‚S¡XXXXXXXX)X)X)X+X3X3XCX)XYX[X_X_X_X_X_X_X_X_X_X_X_X_X_XB¡X_XX_X_X_X*+on Capitalization:(No Suggestions)!Checking... Press Esc to cancel.
Þÿÿÿÿ€€S‚S$*€ø€S‚S%&+"à=Ð/  Ðh