Dec 292017
 
Customizable FAX macro for Word for Windows.
File W4WFAX1.ZIP from The Programmer’s Corner in
Category DeskTop Publishing
Customizable FAX macro for Word for Windows.
File Name File Size Zip Size Zip Type
FAXDOCS.DOC 24749 6798 deflated
NEWFAX2.DOT 26630 4859 deflated

Download File W4WFAX1.ZIP Here

Contents of the FAXDOCS.DOC file


[email protected]*
`5HHHHHHHDXXXXX"XYo}Y}YYYYYYYYYYYYYYL`4`-YHYYTo Install:

1.Copy the "Newfax2.dot" template to your winword directory
2.Open the "Newfax2.dot" template
3.Replace "Your Name" with your name.
4.Replace "Your Title" with your title.
5. Test print this page on the paper you intend to fax with, you may have to add carriage returns (or delete them) at the top of the page to account for you letterhead.
6.Close the template and save all changes.
7.Chose"File, New", make sure "normal" is the selected template. Hit OK
8.Choose "Tools, Macro".
9.Type "NewFax"
10.Choose EDIT
11.After Sub MAIN, type, FileNew .NewTemplate = 0, .Template = "NewFax2.dot"
It should look like this:
Sub MAIN
FileNew .NewTemplate = 0, .Template = "NewFax2.dot"
End Sub

12.Choose "File, Close". Save all changes.
13.Now you can add this "NewFax" macro to your pull-down menus or your button-bar using the "Tools, Options, Menus/Toolbar" command. If you do not add this macro to the menus or the button-bar or a hot-key, you will have to launch the macro by choosing "File, New", then choosing "NewFax2.dot" as the template, then choose OK. See your Windows manual for help with this, or call me at the number below.
14.Open the "Newfax2.dot" template
15.Choose "Tools, Macro".
16.Type "AutoNew"
17.Choose EDIT
18.You are now looking at the main macro. A copy of the macro is listed below. Look for all of the areas that are in COLOR below, these are the areas that you can edit to customize the FAX macro.and then modify the corresponding lines in the macro
19.Follow the directions that are in Bold/Italics, adding your names to the fax recipient lists etc.
20.Choose "File, Close". Save all changes.
21.Close Word, saving all changes, especially changes to "Newfax2.dot"
22.Re-launch Word and have fun with the macro.


If you have problems, or find a bug, call me at
703-684-0123(H) or 202-775-9556(W), 202-775-8122 (Fax)

Ask for Caby (pron KB) Smith, Jr.

Last But Not Least
If you like this macro, remember, it is shareware not freeware. Help me feed my kids and send me $10.00, or whatever you can afford to:

Caby Smith, Jr.
6a E. Mason Ave.
Alexandria, VA 22301
filename NORMAL.DOT



88
COLOR below, except you will be changesactual macro instead of the copy below
Print this document, then... Use a marker to Highlight your print-out of this document so that it matches the areas that are in color below., (or your print-out)


Now to Customize your Macro



Copy of the Macro, print it and highlight your copy to match the colored areas below.

late to your winword directory
2.Open the "Newfax2.dot" template
3.Replace "You^
W+-2F



!
"
(
*
3
4
6
;
<
A
V
]
^









+-1LNgl;;;;;;;;;;;;;;;;;;;;

0H


LChT^`)Nj~#l
02F
$
&
(
*
6

-/[email protected]!!!6!`'``'`'`'M`' `'V`'`'`'`'Ghead 1Text)F0)Dim Shared Fax2
Sub MAIN
Begin Dialog UserDialog 616, 374, "Frequently Faxed"
Text 31, 13, 143, 13, "Choose a recipient"
Text 43, 24, 116, 13, "or Press OK to "
Text 43, 35, 112, 13, "Type your own"
GroupBox 20, 55, 481, 297, " Frequent Faxees "
OptionGroup .Fax2
OptionButton 45, 89, 150, 16, "User Defined"'Case 0
OptionButton 45, 106, 150, 16, "John Doe"'Case 1Starting here, type your
OptionButton 45, 123, 150, 16, "Reserved"'Case 2own list of FAX
OptionButton 45, 140, 150, 16, "Reserved"'Case 3recipients between the
OptionButton 45, 157, 150, 16, "Reserved"'Case 4quotation marks
OptionButton 45, 174, 150, 16, "Reserved"'Case 5
OptionButton 45, 191, 150, 16, "Reserved"'Case 6
OptionButton 45, 208, 150, 16, "Reserved"'Case 7
OptionButton 45, 225, 150, 16, "Reserved"'Case 8
OptionButton 45, 242, 150, 16, "Reserved"'Case 9
OptionButton 45, 259, 150, 16, "Reserved"'Case 10
OptionButton 45, 276, 200, 16, "Reserved"'Case 11
OptionButton 45, 293, 150, 16, "Reserved"'Case 12
OptionButton 45, 310, 179, 16, "Reserved"'Case 13
OptionButton 45, 327, 183, 16, "Reserved"'Case 14
OptionButton 299, 89, 150, 16, "Reserved"'Case 15
OptionButton 299, 106, 150, 16, "Reserved"'Case 16
OptionButton 299, 123, 150, 16, "Reserved"'Case 17
OptionButton 299, 140, 150, 16, "Reserved"'Case 18
OptionButton 299, 157, 150, 16, "Reserved"'Case 19
OptionButton 299, 174, 150, 16, "Reserved"'Case 20
OptionButton 299, 191, 150, 16, "Reserved"'Case 21
OptionButton 299, 208, 150, 16, "Reserved"'Case 22
OptionButton 299, 225, 150, 16, "Reserved"'Case 23
OptionButton 299, 242, 150, 16, "Reserved"'Case 24
OptionButton 299, 259, 150, 16, "Reserved"'Case 25
OptionButton 299, 276, 150, 16, "Reserved"'Case 26
OptionButton 299, 293, 150, 16, "Reserved"'Case 27
OptionButton 299, 310, 150, 16, "Reserved"'Case 28
OptionButton 299, 327, 150, 16, "Reserved"'Case 29
OKButton 529, 61, 58, 293
End Dialog
Dim Freq As Dialog UserDialog
Dialog Freq
Fax2 = Freq.Fax2'Assignes the variable Freq.Fax2 to the 'Shared Variable Fax2"

Begin Dialog UserDialog 594, 366, "Fax Form"
Text 46, 23, 24, 13, "To:"
TextBox 48, 39, 507, 18, .To
Text 47, 63, 61, 13, "Position:"
TextBox 47, 79, 269, 18, .Position
CheckBox 131, 60, 125, 16, "Use Position?", .UsePosition
Text 338, 63, 88, 13, "Fax Number:"
TextBox 338, 79, 217, 18, .Fax
Text 48, 105, 70, 13, "Company:"
TextBox 47, 120, 508, 18, .Company
CheckBox 132, 101, 134, 16, "Use Company?", .UseCompany
Text 46, 144, 40, 13, "From:"
TextBox 46, 160, 293, 18, .From
CheckBox 365, 161, 188, 16, "Include Your Title ??", .YourTitle
Text 46, 184, 50, 13, "Pages:"
TextBox 46, 200, 45, 18, .Pages
Text 46, 224, 57, 13, "Subject:"
TextBox 46, 240, 509, 18, .Subject
Text 46, 264, 25, 13, "CC:"
TextBox 46, 280, 509, 18, .CC
Text 94, 264, 187, 13, "...Seperate List with Comas"
Text 181, 12, 202, 13, "Use TAB / Shift-TAB to Move"
GroupBox 302, 186, 252, 40, "Save to which Drive ?"
OptionGroup .Drive
OptionButton 322, 202, 53, 16, "A:\"
OptionButton 384, 203, 157, 16, "C:\Winword\Doc"'This should be your 'default directory
Text 98, 204, 168, 13, "....Including Cover Sheet"
OKButton 46, 309, 511, 41
End Dialog
Dim FaxDlg As Dialog UserDialog
FaxDlg.Pages = "1"'This sets the default num. of pages sent
FaxDlg.From = "Your Name"'Insert your name here
Print Fax2


'In this next section, fill in the defaults for each person on your fax list
'Start with CASE 1, leave CASE 0 blank for user addressable FAX

Select Case Fax2
Case 0
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 1

FaxDlg.To = "Recipients Name"
FaxDlg.Position = "Recipients Title"
FaxDlg.Fax ="Recipients FAX #"
FaxDlg.Company = "Recipients Company"
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No

'The three numbers above refer to the defaults for the 'checkboxes that you use to include/exclude the recipients Company & Title, or to 'include/exclude your title.
'You can set these defaults based on who you are faxing, a more formal fax might 'require your title, but a casual fax might not. Set these defaults to 0 (not checked) or '1 (checked)

Case 2
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 3
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 4
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 5
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 6
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =1'1=Yes 0=No
FaxDlg.YourTitle =1'1=Yes 0=No
Case 7
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 8
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 9
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 10
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 11
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 12
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 13
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 14
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 15
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 16
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 17
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
Case 18
FaxDlg.To = ""
FaxDlg.Position = ""
FaxDlg.Fax =""
FaxDlg.Company = ""
FaxDlg.UseCompany =1'1=Yes 0=No
FaxDlg.UsePosition =0'1=Yes 0=No
FaxDlg.YourTitle =0'1=Yes 0=No
'ADD MORE USING THIS FORMAT AS NEEDED
Case Else
Skip:
End Select

Beep
Beep
Dialog FaxDlg

EditGoTo .Destination = "To"
Insert FaxDlg.To
If FaxDlg.UsePosition = 0 Then
Goto NoPosition
End If
If FaxDlg.Position = "" Then
Goto NoPosition
Else
Insert ", " + FaxDlg.Position
NoPosition:
End If
If FaxDlg.UseCompany = 0 Then
Goto NoCompany
End If
If FaxDlg.Company = "" Then
Goto NoCompany
Else
Insert ", " + FaxDlg.Company
NoCompany:
End If
EditGoTo .Destination = "Fax"
On Error Goto Continue
Insert FaxDlg.Fax
If FaxDlg.Fax = "" Then
Beep
FaxDlg.Fax = InputBox$("Type in the FAX Number Please!", "Just the FAX Ma'm", FaxDlg.Fax)
Insert FaxDlg.Fax
End If
Continue:

EditGoTo .Destination = "From"
Insert FaxDlg.From
EditGoTo .Destination = "Date"
InsertField .Field = "date \@ d-MMM-yy"
EditGoTo .Destination = "Pages"
Insert FaxDlg.Pages
EditGoTo .Destination = "Subject"
Insert FaxDlg.Subject
ViewHeaderFooter .Type = 1, .FirstPage = 1 'formats footer
ExtendSelection
EndOfLine 1
EditClear
FormatCharacter .Points = "8"
Insert "FAX # : "
Insert FaxDlg.Fax
Insert ""
Insert "Page # "
InsertPageField
Insert " of "
Insert FaxDlg.Pages
Insert ""
InsertDateField
InsertPara
Insert ""
Insert "Facsimile transfer to "
Insert FaxDlg.To
ViewNormal
ClosePane
ViewHeaderFooter .Type = 3, .FirstPage = 1 'formats first footer
ExtendSelection
EndOfLine 1
EditClear
Font "Univers (WN)", 8
FormatCharacter .Points = "8"
FormatTabs .Position = "3.5" + Chr$(34), .Align = 1, .Leader = 0, \
.Clear
FormatTabs .Position = "3" + Chr$(34), .Align = 1, .Leader = 0, \
.Set
FormatTabs .Position = "7" + Chr$(34), .Align = 2, .Leader = 0, \
.Clear
FormatTabs .Position = "5.94" + Chr$(34), .Align = 2, .Leader = 0, \
.Set
Insert "FAX # : "
Insert FaxDlg.Fax
Insert ""
Insert "Page # "
InsertPageField
Insert " of "
Insert FaxDlg.Pages
Insert ""
InsertDateField
InsertPara
ExtendSelection
EndOfLine 1
Font "Univers (WN)", 8
Insert ""
Insert "Facsimile transfer to "
Insert FaxDlg.To
ClosePane
On Error Goto 0
On Error Goto Bye
If FaxDlg.Drive = 1 Then
ChDir "A:\"
Else
ChDir "C:\Winword\Doc"'Change this Dir. to your default Directory
End If
Bye:
If FaxDlg.CC = "" Then
Goto Nobody
Else
EditGoTo .Destination = "CC"
InsertPara
InsertPara
Insert "cc: "
Insert FaxDlg.CC
End If
Nobody:
If FaxDlg.YourTitle = 1 Then
Goto StillNobody
Else
EditGoTo .Destination = "Title"
EditClear 12'This number should equal the number of letters & spaces 'in your title as typed on the "NewFax2.dot" form
End If
StillNobody:
EditGoTo .Destination = "Notes"
Beep
Beep
End Sub

"
O'^:qM)`*as1dprt$8Qe} $ M q !!!"""""""#!!!_#F#n#w#######$K$T$h$$$$$%(%1%E%^%r%%%%&&"&;&O&g&&&&&&','D'm''''''(!(J(t(((((((')Q)y))))))*/*W*a*u*****
+5+?+S+l+++++,,1,J,^,v,,,,,-(-<-T-}----!c--..2.[......./9/c///////0A0i0s0000001G1p1|111111111112262H2N2o2|2222222233$3C3[3n3333344444H4h444445G5X5e5p5555555566%616=6^6p6|6!!a|666666757z777788\8b8u88888888899"9:9F9g9y9999999:$:*:B:P:V:u::::::::::;;;;;;;;;;%D'D!!Aed below. Look for all of the

*+/3598)

Mqp&v.0MO+ZBDgi}
-CEG
L
v



H!W/
f


By!Y9qQ;DDD D!D"D#D%D'D5R4%*+/3598)

Mqp&v.0MO+ZBDgi}
-CEG
L
v



H!W/
f


By!Y9qQ;=k*Pq5w @w"Gz1:Ng{:c/1
3]:bk?H\u%9Rf~ / C [ ! !8!a!!!!!!!">"h"""""""#F#n#x######$$L$V$j$$$$$%*%4%H%a%u%%%%&&&&?&S&k&&&&&''1'I'r''''''('(P(z(((((().)X)))))))*6*^************+'+/+M+_+e++++++++,,',3,;,Z,r,,,,---)-+-K-_-----..^.o.|........
//+/00-0L00000%1-1s1y11111111122,292Q2]2~2222222233;3A3Y3g3m333333333444444444455!!!!!!!!!!!!!!!!!!!!!!!!!!6!!r!;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;'D#O#-|6'D !oCG Times (WN)Symbol"Univers (WN)CG Times (WN)1LinePrinterTimes New Roman5Courier New
LDJ,,0KM)*3EFgstv(i}AZ_

#.F}LMNP-.ef
EF}~ESVkuEV_bx(7P`t6`**23333?4A4D4455555
--1LDDD D3Q




!D


4
6
;
<
A
"DV
^
2FNgl&>u;;;
;;BD;y{;;;;U;;;;1;h/[email protected]_q/@ILbt ! : J ^ n !! !;""I1n1999:(;*;-;;;%D&
(
"h{%{%-
Caby C. Smith
Caby C. Smith


 December 29, 2017  Add comments

Leave a Reply