Is there anyone out there willing to convert this code to
VBA for me...
I am willing to pay (small though) Price...............
Please Please can anyone help. I would be grateful
Louise
UK
Option Explicit
Dim ANO$, ANOinstr$, ANOerror, ANOnull
Dim ADN$, ADNinstr$, ADNerror, ADNnull
Dim ADNminlen, ADNmaxlen, ADNminval, ADNmaxval
Dim CONF, CONFinstr$
Dim TIT$, TITinstr$, TITerror, TITnull, TITminlen, TITmaxlen
Dim RN$, RNinstr$, RNerror, RNnull, RNminlen, RNmaxlen
Dim RNminval, RNmaxval
Dim PCC$, PCCinstr$, PCCerror, PCCnull, PCCminlen, PCCmaxlen
Dim ORF$, ORFinstr$, ORFerror, ORFnull, ORFminlen, ORFmaxlen
Dim STL__$(), STL_, STLinstr$
Dim INS$, INSinstr$, INSerror, INSnull, INSminlen, INSmaxlen
Dim SUN$, SUNinstr$, SUNerror, SUNnull, SUNminlen, SUNmaxlen
Dim POS$, POSinstr$, POSerror, POSnull, POSminlen, POSmaxlen
Dim COM$, COMinstr$, COMerror, COMnull, COMminlen, COMmaxlen
Dim ADD1$, ADD1error, ADD1null, ADD1minlen, ADD1maxlen
Dim ADD2$, ADD2error, ADD2null, ADD2minlen, ADD2maxlen
Dim ADD3$, ADD3error, ADD3null, ADD3minlen, ADD3maxlen
Dim ADD4$, ADD4error, ADD4null, ADD4minlen, ADD4maxlen
Dim ADD1instr$, ADD2instr$
Dim ASN$, ASNinstr$, ASNerror, ASNnull, ASNminlen, ASNmaxlen
Dim TEL$, TELinstr$, TELerror, TELnull, TELminlen, TELmaxlen
Dim TELminval, TELmaxval
Dim FAX$, FAXinstr$, FAXerror, FAXnull, FAXminlen, FAXmaxlen
Dim FAXminval, FAXmaxval
Dim STAT, STATinstr$
Dim SUP$, SUPinstr$, SUPerror, SUPnull, SUPminlen, SUPmaxlen
Dim OCA$, OCAinstr$, OCAerror, OCAnull, OCAminlen, OCAmaxlen
Dim OKinstr$, Clearinstr$
Dim Doctype$, Asstype$, TCF, TC$, CGF$
Dim FN$, SC$, KN$, ST$, UCFlag
Dim IniPath$, IniFN1$, IniFN2$, FPath1$, FPath2$
Public Sub MAIN()
ReDim STL__$(5)
Dim x
Dim Dtime$
Dim Author$
Dim FullSubName$
Dim DearSubName$
Dim Submitter$
Dim Cat$
ANO$ = ""
ANOinstr$ = ""
ANOerror = 0
ANOnull = 0
ADN$ = ""
ADNinstr$ = ""
ADNerror = 0
ADNnull = 0
ADNminlen = 0
ADNmaxlen = 0
ADNminval = 0
ADNmaxval = 0
CONF = 0
CONFinstr$ = ""
TIT$ = ""
TITinstr$ = ""
TITerror = 0
TITnull = 0
TITminlen = 0
TITmaxlen = 0
RN$ = ""
RNinstr$ = ""
RNerror = 0
RNnull = 0
RNminlen = 0
RNmaxlen = 0
RNminval = 0
RNmaxval = 0
PCC$ = ""
PCCinstr$ = ""
PCCerror = 0
PCCnull = 0
PCCminlen = 0
PCCmaxlen = 0
ORF$ = ""
ORFinstr$ = ""
ORFerror = 0
ORFnull = 0
ORFminlen = 0
ORFmaxlen = 0
STL_ = 0
STLinstr$ = ""
INS$ = ""
INSinstr$ = ""
INSerror = 0
INSnull = 0
INSminlen = 0
INSmaxlen = 0
SUN$ = ""
SUNinstr$ = ""
SUNerror = 0
SUNnull = 0
SUNminlen = 0
SUNmaxlen = 0
POS$ = ""
POSinstr$ = ""
POSerror = 0
POSnull = 0
POSminlen = 0
POSmaxlen = 0
COM$ = ""
COMinstr$ = ""
COMerror = 0
COMnull = 0
COMminlen = 0
COMmaxlen = 0
ADD1$ = ""
ADD1error = 0
ADD1null = 0
ADD1minlen = 0
ADD1maxlen = 0
ADD2$ = ""
ADD2error = 0
ADD2null = 0
ADD2minlen = 0
ADD2maxlen = 0
ADD3$ = ""
ADD3error = 0
ADD3null = 0
ADD3minlen = 0
ADD3maxlen = 0
ADD4$ = ""
ADD4error = 0
ADD4null = 0
ADD4minlen = 0
ADD4maxlen = 0
ADD1instr$ = ""
ADD2instr$ = ""
ASN$ = ""
ASNinstr$ = ""
ASNerror = 0
ASNnull = 0
ASNminlen = 0
ASNmaxlen = 0
TEL$ = ""
TELinstr$ = ""
TELerror = 0
TELnull = 0
TELminlen = 0
TELmaxlen = 0
TELminval = 0
TELmaxval = 0
FAX$ = ""
FAXinstr$ = ""
FAXerror = 0
FAXnull = 0
FAXminlen = 0
FAXmaxlen = 0
FAXminval = 0
FAXmaxval = 0
STAT = 0
STATinstr$ = ""
SUP$ = ""
SUPinstr$ = ""
SUPerror = 0
SUPnull = 0
SUPminlen = 0
SUPmaxlen = 0
OCA$ = ""
OCAinstr$ = ""
OCAerror = 0
OCAnull = 0
OCAminlen = 0
OCAmaxlen = 0
OKinstr$ = ""
Clearinstr$ = ""
Doctype$ = ""
Asstype$ = ""
TCF = 0
TC$ = ""
CGF$ = ""
FN$ = ""
SC$ = ""
KN$ = ""
ST$ = ""
UCFlag = 0
IniPath$ = ""
IniFN1$ = ""
IniFN2$ = ""
FPath1$ = ""
FPath2$ = ""
'***************************************************************************
**
' SET PARAMETERS FOR MACRO
'***************************************************************************
**
IniPath$ = "O:\Winword\Templates\"
IniFN1$ = "UserChoice.ini"
IniFN2$ = "InputRules.ini"
FPath1$ = "O:\Data\Hazrep\"
FPath2$ = "Draft\"
UCFlag = 1
Asstype$ = ""
STL__$(0) = "Dr."
STL__$(1) = "Miss"
STL__$(2) = "Mr."
STL__$(3) = "Mrs."
STL__$(4) = "Ms."
STL__$(5) = "Professor"
SetInputRules
LoadDefaults
'***************************************************************************
**
' ENSURE CORRECT FOLDER STRUCTURE EXISTS
'***************************************************************************
**
On Error Resume Next
WordBasic.MkDir FPath1$
WordBasic.MkDir FPath1$ + FPath2$
Err.Number = 0
'***************************************************************************
**
' RESETS ENVIRONMENT
'***************************************************************************
**
WordBasic.DocMaximize 1
WordBasic.ViewPage
WordBasic.ViewZoomPageWidth
WordBasic.ToolsOptionsSave SummaryPrompt:=0
'***************************************************************************
**
' DIALOG BOX DEFINITION
'***************************************************************************
**
WordBasic.BeginDialog 800, 400, "Chemical Assessment - Letter Format",
"AutoNew.AssLetfn"
WordBasic.GroupBox 20, 10, 760, 100, "ASSESSMENT DETAILS" '0
WordBasic.Text 35, 35, 121, 13, "Assessment No:", "Text1"
'1
WordBasic.TextBox 165, 33, 80, 18, "ANO$" '2
WordBasic.Text 270, 35, 63, 13, "Add No:", "Text2" '3
WordBasic.TextBox 335, 33, 30, 18, "ADN$" '4
WordBasic.Text 400, 35, 113, 13, "Confidentiality:", "Text3"
'5
WordBasic.GroupBox 505, 26, 160, 25, "" '6
WordBasic.OptionGroup "CONF" ' 7
WordBasic.OptionButton 520, 33, 71, 16, "Cat B", "OptionButton1"
'8
WordBasic.OptionButton 590, 33, 71, 16, "Cat C", "OptionButton2"
'9
WordBasic.Text 35, 57, 105, 13, "Title/Subject:", "Text4"
'10
WordBasic.TextBox 165, 55, 600, 18, "TIT$" '11
WordBasic.Text 35, 79, 96, 13, "Request No:", "Text5"
'12
WordBasic.TextBox 165, 77, 80, 18, "RN$" '13
WordBasic.Text 270, 79, 123, 13, "PTD Cost Code:", "Text6"
'14
WordBasic.TextBox 400, 77, 100, 18, "PCC$" '15
WordBasic.Text 525, 79, 65, 13, "Our Ref:", "Text7" '16
WordBasic.TextBox 590, 77, 175, 18, "ORF$" '17
WordBasic.GroupBox 20, 120, 350, 100, "SUBMITTER DETAILS" '18
WordBasic.Text 35, 145, 40, 13, "Title:", "Text8"
'19
WordBasic.DropListBox 125, 144, 70, 63, STL__$(), "STL"
'20
WordBasic.Text 230, 145, 56, 13, "Initials:", "Text9"
'21
WordBasic.TextBox 296, 143, 54, 18, "INS$" '22
WordBasic.Text 35, 167, 72, 13, "Surname:", "Text10"
'23
WordBasic.TextBox 125, 165, 225, 18, "SUN$" '24
WordBasic.Text 35, 189, 72, 13, "Pos/Dept:", "Text11"
'25
WordBasic.TextBox 125, 187, 225, 18, "POS$" '26
WordBasic.GroupBox 390, 120, 390, 145, "COMPANY DETAILS" '27
WordBasic.Text 405, 145, 75, 13, "Company:", "Text12"
'28
WordBasic.TextBox 480, 143, 285, 18, "COM$" '29
WordBasic.Text 405, 167, 67, 13, "Address:", "Text13"
'30
WordBasic.TextBox 480, 165, 285, 18, "ADD1$" '31
WordBasic.TextBox 480, 187, 285, 18, "ADD2$" '32
WordBasic.TextBox 480, 209, 285, 18, "ADD3$" '33
WordBasic.TextBox 480, 231, 285, 18, "ADD4$" '34
WordBasic.GroupBox 20, 230, 350, 150, "ASSESSOR DETAILS" '35
WordBasic.Text 35, 255, 49, 13, "Name:", "Text14" '36
WordBasic.TextBox 125, 253, 225, 18, "ASN$" '37
WordBasic.Text 35, 278, 57, 13, "Tel No:", "Text15" '38
WordBasic.TextBox 125, 276, 40, 18, "TEL$" '39
WordBasic.Text 230, 278, 60, 13, "Fax No:", "Text16"
'40
WordBasic.TextBox 310, 276, 40, 18, "FAX$" '41
WordBasic.Text 35, 301, 55, 13, "Status:", "Text17" '42
WordBasic.GroupBox 125, 293, 225, 25, "" '43
WordBasic.OptionGroup "STAT" '44
WordBasic.OptionButton 135, 300, 124, 16, "Independent",
"OptionButton3" '45
WordBasic.OptionButton 255, 300, 91, 16, "Training", "OptionButton4"
'46
WordBasic.Text 35, 324, 87, 13, "Supervisor:", "Text18"
'47
WordBasic.TextBox 125, 322, 225, 18, "SUP$" '48
WordBasic.Text 35, 347, 67, 13, "Other(s):", "Text19"
'49
WordBasic.TextBox 125, 345, 225, 18, "OCA$" '50
WordBasic.GroupBox 390, 275, 390, 68, "GUIDANCE NOTES" '51
WordBasic.Text 405, 300, 360, 26, "", "Text21" '52
WordBasic.GroupBox 390, 353, 284, 27, "" '53
WordBasic.Text 405, 363, 260, 13, "Click OK to proceed or X (top) to
cancel.", "Text22" '54
WordBasic.CancelButton 692, 359, 88, 21 '55
WordBasic.OKButton 692, 359, 88, 21 '56
WordBasic.PushButton 705, 30, 60, 18, "Clear", "Push1" '57
WordBasic.EndDialog
'***************************************************************************
**
' CREATE DIALOG RECORD AND DISPLAY DIALOG BOX
' (DisableInput stops Escape key interrupting macro)
'***************************************************************************
**
Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
WordBasic.DisableInput 1
x = WordBasic.Dialog.UserDialog(dlg)
WordBasic.DisableInput 0
'***************************************************************************
**
' TEST FOR CANCELLATION OF DIALOG BOX
'***************************************************************************
**
If x = 0 Then WordBasic.FileClose 2: GoTo Bye
'***************************************************************************
**
' STOPS SCREEN FROM SCROLLING WHILE MACRO RUNS
'***************************************************************************
**
WordBasic.StartOfDocument
WordBasic.ScreenUpdating 0
'***************************************************************************
**
' SAVE DIALOG INPUTS AS NEXT DEFAULTS
'***************************************************************************
**
FN$ = IniPath$ + IniFN1$
SC$ = "Last Letter"
KN$ = "Assessment Number": ST$ = dlg.ANO$: SetFile
KN$ = "Addendum Number": ST$ = dlg.ADN$: SetFile
KN$ = "Confidentiality": ST$ = Str(dlg.CONF): SetFile
KN$ = "Title": ST$ = dlg.TIT$: SetFile
KN$ = "PTD Cost Code": ST$ = dlg.PCC$: SetFile
KN$ = "Our Ref": ST$ = dlg.ORF$: SetFile
KN$ = "Submitter Title": ST$ = Str(dlg.STL): SetFile
KN$ = "Initials": ST$ = dlg.INS$: SetFile
KN$ = "Surname": ST$ = dlg.SUN$: SetFile
KN$ = "Position": ST$ = dlg.POS$: SetFile
KN$ = "Company": ST$ = dlg.COM$: SetFile
KN$ = "Address1": ST$ = dlg.ADD1$: SetFile
KN$ = "Address2": ST$ = dlg.ADD2$: SetFile
KN$ = "Address3": ST$ = dlg.ADD3$: SetFile
KN$ = "Address4": ST$ = dlg.ADD4$: SetFile
SC$ = "Assessor"
KN$ = "Name": ST$ = dlg.ASN$: SetFile
KN$ = "Telephone": ST$ = dlg.TEL$: SetFile
KN$ = "Fax": ST$ = dlg.FAX$: SetFile
KN$ = "Status": ST$ = Str(dlg.STAT): SetFile
KN$ = "Supervisor": ST$ = dlg.SUP$: SetFile
KN$ = "Other Author": ST$ = dlg.OCA$: SetFile
'***************************************************************************
**
' OBTAIN CREATE TIME & SET DOCUMENT VARIABLES
'***************************************************************************
**
Dtime$ = WordBasic.[GetDocumentProperty$]("CreateTime", 1)
WordBasic.SetDocumentVar "DocStatus", "DRAFT"
WordBasic.SetDocumentVar "DraftDate", Dtime$
WordBasic.SetDocumentVar "FinalDate", "-"
WordBasic.SetDocumentVar "ArchiveDate", "-"
'***************************************************************************
**
' SET AUTHOR STRING & SUBMITTER'S NAME STRINGS (3)
'***************************************************************************
**
Author$ = dlg.ASN$
If dlg.STAT = 1 Then Author$ = Author$ + " / " + dlg.SUP$
If dlg.OCA$ <> "" Then Author$ = Author$ + " / " + dlg.OCA$
FullSubName$ = STL__$(dlg.STL) + " " + UCase(dlg.INS$) + " " + dlg.SUN$
DearSubName$ = STL__$(dlg.STL) + " " + dlg.SUN$
Submitter$ = UCase(dlg.INS$) + " " + dlg.SUN$
'***************************************************************************
**
' INSERT INPUTS INTO FILE PROPERTIES
'***************************************************************************
**
WordBasic.SetDocumentProperty "Title", 0, dlg.TIT$, 1
If dlg.CONF = 0 Then Cat$ = "B" Else Cat$ = "C"
WordBasic.SetDocumentProperty "Category", 0, Cat$, 1
WordBasic.SetDocumentProperty "Works Area", 0, "-", 2
WordBasic.SetDocumentProperty "Works", 0, dlg.COM$, 2
WordBasic.SetDocumentProperty "Submitter", 0, Submitter$, 2
WordBasic.SetDocumentProperty "Date", 0, WordBasic.[Left$](Dtime$, 8), 2
WordBasic.SetDocumentProperty "Prod Code", 0, dlg.PCC$, 2
WordBasic.SetDocumentProperty "Req No", 0, dlg.RN$, 2
WordBasic.SetDocumentProperty "Asst No", 0, dlg.ANO$, 2
WordBasic.SetDocumentProperty "Add No", 1, WordBasic.Val(dlg.ADN$), 2
'***************************************************************************
**
' INSERT ASSESSMENT, ADDENDUM & REQUEST NOS
' INTO PAGE 2 HEADER (AND SUBSEQUENT PAGES)
'***************************************************************************
**
WordBasic.WW7_EditGoTo Destination:="p'2'"
WordBasic.ViewHeader
WordBasic.EditBookmark Name:="ASSNO3", GoTo:=1
WordBasic.Insert UCase(dlg.ANO$)
If dlg.ADN$ <> "" And dlg.ADN$ <> "0" Then
WordBasic.EditBookmark Name:="ADDEND3", GoTo:=1
WordBasic.Insert "(Add No. " + dlg.ADN$ + ")"
End If
WordBasic.EditBookmark Name:="REQNO2", SortBy:=1, GoTo:=1
WordBasic.Insert UCase(dlg.RN$)
WordBasic.CloseViewHeaderFooter
'***************************************************************************
**
' INSERT SUBMITTER & ADDRESS LINES
'***************************************************************************
**
WordBasic.WW7_EditGoTo Destination:="SUBMITTER": WordBasic.Insert
FullSubName$
WordBasic.WW7_EditGoTo Destination:="ADDRESS1"
If dlg.POS$ <> "" Then WordBasic.Insert dlg.POS$ Else WordBasic.Insert
dlg.COM$
WordBasic.WW7_EditGoTo Destination:="ADDRESS2"
If dlg.POS$ <> "" Then WordBasic.Insert dlg.COM$ Else WordBasic.Insert
dlg.ADD1$
WordBasic.WW7_EditGoTo Destination:="ADDRESS3"
If dlg.POS$ <> "" Then WordBasic.Insert dlg.ADD1$ Else WordBasic.Insert
dlg.ADD2$
WordBasic.WW7_EditGoTo Destination:="ADDRESS4"
If dlg.POS$ <> "" Then WordBasic.Insert dlg.ADD2$ Else WordBasic.Insert
dlg.ADD3$
WordBasic.WW7_EditGoTo Destination:="ADDRESS5"
If dlg.POS$ <> "" Then WordBasic.Insert dlg.ADD3$ Else WordBasic.Insert
dlg.ADD4$
WordBasic.WW7_EditGoTo Destination:="ADDRESS6"
If dlg.POS$ <> "" Then WordBasic.Insert dlg.ADD4$
'***************************************************************************
**
' INSERT OUR REF & TELEPHONE EXT
'***************************************************************************
**
WordBasic.WW7_EditGoTo Destination:="OURREF": WordBasic.Insert dlg.ORF$
WordBasic.WW7_EditGoTo Destination:="TEL": WordBasic.Insert dlg.TEL$
'***************************************************************************
**
' INSERT DEAR.... & TITLE
'***************************************************************************
**
WordBasic.WW7_EditGoTo Destination:="DEAR": WordBasic.Insert DearSubName$
WordBasic.WW7_EditGoTo Destination:="TITLE": WordBasic.Underline:
WordBasic.Insert UCase(dlg.TIT$)
'***************************************************************************
**
' INSERT ASSESSOR's NAME FOR SIGNATURE
'***************************************************************************
**
WordBasic.WW7_EditGoTo Destination:="ASSESSOR": WordBasic.Insert dlg.ASN$
'***************************************************************************
**
' DELETE MANUAL PAGE BREAK - MAKE ONE PAGE
'***************************************************************************
**
WordBasic.StartOfDocument
WordBasic.EditFindClearFormatting
WordBasic.EditReplace Find:="^m", Replace:="", Direction:=0, MatchCase:=0,
WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceOne:=1, Format:=0,
Wrap:=0, FindAllWordForms:=0
'***************************************************************************
**
' GO TO START
'***************************************************************************
**
WordBasic.WW7_EditGoTo Destination:="STARTHERE"
'***************************************************************************
**
' SAVE FILE USING THE REQUEST NUMBER AS FILENAME
'***************************************************************************
**
FN$ = FPath1$ + FPath2$ + dlg.RN$ + ".doc"
WordBasic.FileSaveAs Name:=FN$, Format:=0, LockAnnot:=0, Password:="",
AddToMru:=1, WritePassword:="", RecommendReadOnly:=0, EmbedFonts:=0,
NativePictureFormat:=0, FormsData:=0, SaveAsAOCELetter:=0
WordBasic.SetDocumentProperty "Author", 0, Author$, 1
WordBasic.FileSave
WordBasic.ScreenRefresh
WordBasic.ViewNormal: WordBasic.ViewPage
WordBasic.ChDir FPath1$ + FPath2$
Bye:
End Sub
'***************************************************************************
**
' FUNCTION FOR DYNAMIC DIALOG BOX
'***************************************************************************
**
Private Function AssLetfn(id$, action, suppval)
Dim y
Select Case action
'-----------------------------------------------------------
' Initialise dialog box and load defaults
'-----------------------------------------------------------
Case 1
WordBasic.[DlgText$] "ANO$", ANO$: WordBasic.[DlgText$] "ADN$", ADN$:
WordBasic.DlgValue "CONF", CONF
WordBasic.[DlgText$] "TIT$", TIT$: WordBasic.[DlgText$] "PCC$", PCC$:
WordBasic.[DlgText$] "ORF$", ORF$
WordBasic.DlgValue "STL", STL_: WordBasic.[DlgText$] "INS$", INS$:
WordBasic.[DlgText$] "SUN$", SUN$
WordBasic.[DlgText$] "POS$", POS$: WordBasic.[DlgText$] "COM$", COM$:
WordBasic.[DlgText$] "ADD1$", ADD1$
WordBasic.[DlgText$] "ADD2$", ADD2$: WordBasic.[DlgText$] "ADD3$",
ADD3$: WordBasic.[DlgText$] "ADD4$", ADD4$
WordBasic.[DlgText$] "ASN$", ASN$: WordBasic.[DlgText$] "TEL$", TEL$:
WordBasic.[DlgText$] "FAX$", FAX$
WordBasic.DlgValue "STAT", STAT
If STAT = 0 Then
WordBasic.[DlgText$] "SUP$", "": WordBasic.DlgEnable "Text18", 0:
WordBasic.DlgEnable "SUP$", 0
Else
WordBasic.[DlgText$] "SUP$", SUP$
End If
WordBasic.[DlgText$] "OCA$", OCA$
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ANOinstr$: WordBasic.DlgVisible "Text21", 1
WordBasic.DlgVisible "Cancel", 0
'-----------------------------------------------------------
' Button selections:
' OptionButtons - Disable/enable Supervisor
' Push 1 - Clear inputs, reset input errors
' OK - Check all inputs & re-focus on error
'-----------------------------------------------------------
Case 2
If id$ = "OptionButton3" Then
SUP$ = WordBasic.[DlgText$]("SUP$"): WordBasic.[DlgText$] "SUP$", ""
WordBasic.DlgEnable "Text18", 0: WordBasic.DlgEnable "SUP$", 0
End If
If id$ = "OptionButton4" Then
WordBasic.[DlgText$] "SUP$", SUP$: WordBasic.DlgEnable "Text18", 1:
WordBasic.DlgEnable "SUP$", 1
End If
If id$ = "Push1" Then
y = WordBasic.MsgBox("Pressing this button will clear all entries
for" + Chr(13) + _
"Assessment, Submitter and Company Details." + Chr(13) +
_
"Do you wish to continue?", "Clear Inputs: Warning", 52)
If y = -1 Then
WordBasic.[DlgText$] "ANO$", "": WordBasic.[DlgText$] "ADN$",
"": WordBasic.DlgValue "CONF", 0
WordBasic.[DlgText$] "TIT$", "": WordBasic.DlgText "RN$", "":
WordBasic.[DlgText$] "PCC$", ""
WordBasic.[DlgText$] "ORF$", "": WordBasic.DlgValue "STL", 0:
WordBasic.[DlgText$] "INS$", ""
WordBasic.[DlgText$] "SUN$", "": WordBasic.[DlgText$] "POS$",
"": WordBasic.[DlgText$] "COM$", ""
WordBasic.[DlgText$] "ADD1$", "": WordBasic.[DlgText$] "ADD2$",
""
WordBasic.[DlgText$] "ADD3$", "": WordBasic.[DlgText$] "ADD4$",
""
ANOerror = 0: ADNerror = 0: TITerror = 0: RNerror = 0: PCCerror
= 0
ORFerror = 0: INSerror = 0: SUNerror = 0: POSerror = 0: COMerror
= 0
ADD1error = 0: ADD2error = 0: ADD3error = 0: ADD4error = 0
End If
WordBasic.DlgFocus "ANO$": Focus: AssLetfn = 1
End If
If id$ = "OK" Then
ANOCheck
If ANOerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ANO$": Focus:
GoTo BBye
ADNCheck
If ADNerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ADN$": Focus:
GoTo BBye
TITCheck
If TITerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "TIT$": Focus:
GoTo BBye
RNCheck
If RNerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "RN$": Focus:
GoTo BBye
PCCCheck
If PCCerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "PCC$": Focus:
GoTo BBye
ORFCheck
If ORFerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ORF$": Focus:
GoTo BBye
INSCheck
If INSerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "INS$": Focus:
GoTo BBye
SUNCheck
If SUNerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "SUN$": Focus:
GoTo BBye
POSCheck
If POSerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "POS$": Focus:
GoTo BBye
COMCheck
If COMerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "COM$": Focus:
GoTo BBye
ADD1Check
If ADD1error = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ADD1$":
Focus: GoTo BBye
ADD2Check
If ADD2error = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ADD2$":
Focus: GoTo BBye
ADD3Check
If ADD3error = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ADD3$":
Focus: GoTo BBye
ADD4Check
If ADD4error = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ADD4$":
Focus: GoTo BBye
ASNCheck
If ASNerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "ASN$": Focus:
GoTo BBye
TELCheck
If TELerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "TEL$": Focus:
GoTo BBye
FAXCheck
If FAXerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "FAX$": Focus:
GoTo BBye
If WordBasic.DlgValue("STAT") = 1 Then
SUPCheck
If SUPerror = 1 Then
AssLetfn = 1: WordBasic.DlgFocus "SUP$": Focus: GoTo BBye
End If
End If
OCACheck
If OCAerror = 1 Then AssLetfn = 1: WordBasic.DlgFocus "OCA$": Focus:
GoTo BBye
If WordBasic.DlgValue("CONF") = 1 Then
y = WordBasic.MsgBox("Are you sure you want to classify this" +
Chr(13) + _
"document as Category C?", "Confidentiality", 52)
If y = 0 Then
AssLetfn = 1: WordBasic.DlgFocus "OptionButton2": Focus:
GoTo BBye
End If
End If
End If
'-----------------------------------------------------------
' Text change - sets flag TCF and records
' id of dialog box control
' (Action 4 passed immediately after 3)
'-----------------------------------------------------------
Case 3
TCF = 1: TC$ = id$
'-----------------------------------------------------------
' Checks each input on change of focus
' On error re-focus
'-----------------------------------------------------------
Case 4
CGF$ = id$
If id$ = "Push1" Then GoTo Bye
If TCF = 1 Then GoTo Bye
Select Case suppval
Case 2
If ANOerror = 1 Then WordBasic.DlgFocus "ANO$"
Case 4
If ADNerror = 1 Then WordBasic.DlgFocus "ADN$"
Case 11
If TITerror = 1 Then WordBasic.DlgFocus "TIT$"
Case 13
If RNerror = 1 Then WordBasic.DlgFocus "RN$"
Case 15
If PCCerror = 1 Then WordBasic.DlgFocus "PCC$"
Case 17
If ORFerror = 1 Then WordBasic.DlgFocus "ORF$"
Case 22
If INSerror = 1 Then WordBasic.DlgFocus "INS$"
Case 24
If SUNerror = 1 Then WordBasic.DlgFocus "SUN$"
Case 26
If POSerror = 1 Then WordBasic.DlgFocus "POS$"
Case 29
If COMerror = 1 Then WordBasic.DlgFocus "COM$"
Case 31
If ADD1error = 1 Then WordBasic.DlgFocus "ADD1$"
Case 32
If ADD2error = 1 Then WordBasic.DlgFocus "ADD2$"
Case 33
If ADD3error = 1 Then WordBasic.DlgFocus "ADD3$"
Case 34
If ADD4error = 1 Then WordBasic.DlgFocus "ADD4$"
Case 37
If ASNerror = 1 Then WordBasic.DlgFocus "ASN$"
Case 39
If TELerror = 1 Then WordBasic.DlgFocus "TEL$"
Case 41
If FAXerror = 1 Then WordBasic.DlgFocus "FAX$"
Case 48
If SUPerror = 1 Then WordBasic.DlgFocus "SUP$"
Case 50
If OCAerror = 1 Then WordBasic.DlgFocus "OCA$"
Case Else
End Select
Bye:
Focus
'-----------------------------------------------------------
' Picks up and acts on any text change error
' at first idle state (action 5)
' (Cannot act on action 4 - Msgbox not allowed)
'-----------------------------------------------------------
Case 5
If TCF = 1 Then
Select Case TC$
Case "ANO$"
ANOCheck
If ANOerror = 1 Then WordBasic.DlgFocus "ANO$": Focus
Case "ADN$"
ADNCheck
If ADNerror = 1 Then WordBasic.DlgFocus "ADN$": Focus
Case "TIT$"
TITCheck
If TITerror = 1 Then WordBasic.DlgFocus "TIT$": Focus
Case "RN$"
RNCheck
If RNerror = 1 Then WordBasic.DlgFocus "RN$": Focus
Case "PCC$"
PCCCheck
If PCCerror = 1 Then WordBasic.DlgFocus "PCC$": Focus
Case "ORF$"
ORFCheck
If ORFerror = 1 Then WordBasic.DlgFocus "ORF$": Focus
Case "INS$"
INSCheck
If INSerror = 1 Then WordBasic.DlgFocus "INS$": Focus
Case "SUN$"
SUNCheck
If SUNerror = 1 Then WordBasic.DlgFocus "SUN$": Focus
Case "POS$"
POSCheck
If POSerror = 1 Then WordBasic.DlgFocus "POS$": Focus
Case "COM$"
COMCheck
If COMerror = 1 Then WordBasic.DlgFocus "COM$": Focus
Case "ADD1$"
ADD1Check
If ADD1error = 1 Then WordBasic.DlgFocus "ADD1$": Focus
Case "ADD2$"
ADD2Check
If ADD2error = 1 Then WordBasic.DlgFocus "ADD2$": Focus
Case "ADD3$"
ADD3Check
If ADD3error = 1 Then WordBasic.DlgFocus "ADD3$": Focus
Case "ADD4$"
ADD4Check
If ADD4error = 1 Then WordBasic.DlgFocus "ADD4$": Focus
Case "ASN$"
ASNCheck
If ASNerror = 1 Then WordBasic.DlgFocus "ASN$": Focus
Case "TEL$"
TELCheck
If TELerror = 1 Then WordBasic.DlgFocus "TEL$": Focus
Case "FAX$"
FAXCheck
If FAXerror = 1 Then WordBasic.DlgFocus "FAX$": Focus
Case "SUP$"
SUPCheck
If SUPerror = 1 Then WordBasic.DlgFocus "SUP$": Focus
Case "OCA$"
OCACheck
If OCAerror = 1 Then WordBasic.DlgFocus "OCA$": Focus
Case Else
End Select
TCF = 0
End If
Case Else
BBye:
End Select
End Function
'***************************************************************************
**
' FOCUS SUB-ROUTINE
' Displays guidance note corresponding to the input having focus
'***************************************************************************
**
Private Sub Focus()
Select Case WordBasic.[DlgFocus$]()
Case "ANO$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ANOinstr$: WordBasic.DlgVisible "Text21", 1
Case "ADN$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ADNinstr$: WordBasic.DlgVisible "Text21", 1
Case "OptionButton1", "OptionButton2"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
CONFinstr$: WordBasic.DlgVisible "Text21", 1
Case "TIT$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
TITinstr$: WordBasic.DlgVisible "Text21", 1
Case "RN$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
RNinstr$: WordBasic.DlgVisible "Text21", 1
Case "PCC$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
PCCinstr$: WordBasic.DlgVisible "Text21", 1
Case "ORF$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ORFinstr$: WordBasic.DlgVisible "Text21", 1
Case "STL"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
STLinstr$: WordBasic.DlgVisible "Text21", 1
Case "INS$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
INSinstr$: WordBasic.DlgVisible "Text21", 1
Case "SUN$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
SUNinstr$: WordBasic.DlgVisible "Text21", 1
Case "POS$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
POSinstr$: WordBasic.DlgVisible "Text21", 1
Case "COM$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
COMinstr$: WordBasic.DlgVisible "Text21", 1
Case "ADD1$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ADD1instr$: WordBasic.DlgVisible "Text21", 1
Case "ADD2$", "ADD3$", "ADD4$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ADD2instr$: WordBasic.DlgVisible "Text21", 1
Case "ASN$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
ASNinstr$: WordBasic.DlgVisible "Text21", 1
Case "TEL$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
TELinstr$: WordBasic.DlgVisible "Text21", 1
Case "FAX$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
FAXinstr$: WordBasic.DlgVisible "Text21", 1
Case "OptionButton3", "OptionButton4"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
STATinstr$: WordBasic.DlgVisible "Text21", 1
Case "SUP$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
SUPinstr$: WordBasic.DlgVisible "Text21", 1
Case "OCA$"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
OCAinstr$: WordBasic.DlgVisible "Text21", 1
Case "OK"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
OKinstr$: WordBasic.DlgVisible "Text21", 1
Case "Push1"
WordBasic.DlgVisible "Text21", 0: WordBasic.[DlgText$] "Text21",
Clearinstr$: WordBasic.DlgVisible "Text21", 1
Case Else
End Select
End Sub
'***************************************************************************
**
' CHECKS ON EACH INPUT:
' Uses routines within InputCheck macro on AvHaz.dot template
' Acceptability defined by input parameters
'***************************************************************************
**
'-----------------------------------------------------------
' Assessment Number
'-----------------------------------------------------------
Private Sub ANOCheck()
WordBasic.Call "InputCheck.AssNumber", WordBasic.[DlgText$]("ANO$"),
Asstype$, ANOnull, ANOerror
End Sub
'-----------------------------------------------------------
' Addendum Number
'-----------------------------------------------------------
Private Sub ADNCheck()
Dim IpName$
IpName$ = "ADDENDUM:"
WordBasic.Call "InputCheck.NumCheck", WordBasic.[DlgText$]("ADN$"), IpName$,
ADNnull, _
ADNminlen, ADNmaxlen, ADNminval, ADNmaxval, ADNerror
End Sub
'-----------------------------------------------------------
' Title
'-----------------------------------------------------------
Private Sub TITCheck()
Dim IpName$
IpName$ = "TITLE:"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("TIT$"), IpName$,
TITnull, TITminlen, TITmaxlen, TITerror
End Sub
'-----------------------------------------------------------
' Request Number
'-----------------------------------------------------------
Private Sub RNCheck()
Dim IpName$
Dim Folder$
IpName$ = "REQUEST NO:"
WordBasic.Call "InputCheck.NumCheck", WordBasic.[DlgText$]("RN$"), IpName$,
RNnull, RNminlen, RNmaxlen, _
RNminval, RNmaxval, RNerror
If RNerror = 1 Then GoTo Bye
Folder$ = FPath1$ + FPath2$
FN$ = WordBasic.[DlgText$]("RN$") + ".doc"
WordBasic.FileFind SearchPath:=Folder$, Name:=FN$
If WordBasic.CountFoundFiles() > 0 Then
WordBasic.MsgBox IpName$ + Chr(13) + "Document already exists with this
number.", _
"INPUT ERROR", 48
RNerror = 1
End If
Bye:
End Sub
'-----------------------------------------------------------
' Product Code
'-----------------------------------------------------------
Private Sub PCCCheck()
Dim IpName$
IpName$ = "PTD PRODUCT CODE:"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("PCC$"), IpName$,
PCCnull, PCCminlen, PCCmaxlen, _
PCCerror
End Sub
'-----------------------------------------------------------
' Our Ref
'-----------------------------------------------------------
Private Sub ORFCheck()
Dim IpName$
IpName$ = "OUR REF:"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("ORF$"), IpName$,
ORFnull, ORFminlen, ORFmaxlen, _
ORFerror
End Sub
'-----------------------------------------------------------
' Initials
'-----------------------------------------------------------
Private Sub INSCheck()
Dim IpName$
IpName$ = "INITIALS:"
WordBasic.Call "InputCheck.NameCheck", WordBasic.[DlgText$]("INS$"),
IpName$, INSnull, INSminlen, INSmaxlen, _
INSerror
End Sub
'-----------------------------------------------------------
' Surname
'-----------------------------------------------------------
Private Sub SUNCheck()
Dim IpName$
IpName$ = "SURNAME:"
WordBasic.Call "InputCheck.NameCheck", WordBasic.[DlgText$]("SUN$"),
IpName$, SUNnull, SUNminlen, SUNmaxlen, _
SUNerror
End Sub
'-----------------------------------------------------------
' Position
'-----------------------------------------------------------
Private Sub POSCheck()
Dim IpName$
IpName$ = "POSITION:"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("POS$"), IpName$,
POSnull, POSminlen, _
POSmaxlen, POSerror
End Sub
'-----------------------------------------------------------
' Company
'-----------------------------------------------------------
Private Sub COMCheck()
Dim IpName$
IpName$ = "COMPANY:"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("COM$"), IpName$,
COMnull, COMminlen, _
COMmaxlen, COMerror
End Sub
'-----------------------------------------------------------
' Submitter's Address 1
'-----------------------------------------------------------
Private Sub ADD1Check()
Dim IpName$
IpName$ = "SUBMITTER'S ADDRESS (Line 1):"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("ADD1$"), IpName$,
ADD1null, ADD1minlen, ADD1maxlen, _
ADD1error
End Sub
'-----------------------------------------------------------
' Submitter's Address 2
'-----------------------------------------------------------
Private Sub ADD2Check()
Dim IpName$
IpName$ = "SUBMITTER'S ADDRESS (Line 2):"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("ADD2$"), IpName$,
ADD2null, ADD2minlen, ADD2maxlen, _
ADD2error
End Sub
'-----------------------------------------------------------
' Submitter's Address 3
'-----------------------------------------------------------
Private Sub ADD3Check()
Dim IpName$
IpName$ = "SUBMITTER'S ADDRESS (Line 3):"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("ADD3$"), IpName$,
ADD3null, ADD3minlen, ADD3maxlen, _
ADD3error
End Sub
'-----------------------------------------------------------
' Submitter's Address 4
'-----------------------------------------------------------
Private Sub ADD4Check()
Dim IpName$
IpName$ = "SUBMITTER'S ADDRESS (Line 4):"
WordBasic.Call "InputCheck.GenText", WordBasic.[DlgText$]("ADD4$"), IpName$,
ADD4null, ADD4minlen, ADD4maxlen, _
ADD4error
End Sub
'-----------------------------------------------------------
' Assessor
'-----------------------------------------------------------
Private Sub ASNCheck()
Dim IpName$
IpName$ = "ASSESSOR'S NAME:"
WordBasic.Call "InputCheck.NameCheck", WordBasic.[DlgText$]("ASN$"),
IpName$, ASNnull, ASNminlen, _
ASNmaxlen, ASNerror
End Sub
'-----------------------------------------------------------
' Telephone Ext
'-----------------------------------------------------------
Private Sub TELCheck()
Dim IpName$
IpName$ = "TEL NO:"
WordBasic.Call "InputCheck.NumCheck", WordBasic.[DlgText$]("TEL$"), IpName$,
TELnull, _
TELminlen, TELmaxlen, TELminval, TELmaxval, TELerror
End Sub
'-----------------------------------------------------------
' Fax Ext
'-----------------------------------------------------------
Private Sub FAXCheck()
Dim IpName$
IpName$ = "FAX NO:"
WordBasic.Call "InputCheck.NumCheck", WordBasic.[DlgText$]("FAX$"), IpName$,
FAXnull, _
FAXminlen, FAXmaxlen, FAXminval, FAXmaxval, FAXerror
End Sub
'-----------------------------------------------------------
' Supervisor
'-----------------------------------------------------------
Private Sub SUPCheck()
Dim IpName$
IpName$ = "SUPERVISOR'S NAME:"
WordBasic.Call "InputCheck.NameCheck", WordBasic.[DlgText$]("SUP$"),
IpName$, SUPnull, SUPminlen, _
SUPmaxlen, SUPerror
End Sub
'-----------------------------------------------------------
' Other Contributing Authors
'-----------------------------------------------------------
Private Sub OCACheck()
Dim IpName$
IpName$ = "OTHER AUTHOR:"
WordBasic.Call "InputCheck.NameCheck", WordBasic.[DlgText$]("OCA$"),
IpName$, OCAnull, OCAminlen, _
OCAmaxlen, OCAerror
End Sub
'***************************************************************************
**
' SUB-ROUTINE TO SET INPUT PARAMETERS:
' error = error flag
' null = null flag (0 - null entry not permitted, 1- null permitted)
' minlen/maxlen = min/max length of string (no. of characters)
' minval/maxval = min/max integer values of number inputs
' instr$ = input guidance notes
'***************************************************************************
**
Private Sub SetInputRules()
Dim STLFinstr$
FN$ = IniPath$ + IniFN2$
SC$ = "Assessment Number"
ANOnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ANOinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Addendum Number"
ADNnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ADNminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ADNmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
ADNminval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minval", FN$))
ADNmaxval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxval", FN$))
ADNinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Confidentiality"
CONFinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Title"
TITnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
TITminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
TITmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
TITinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Request Number"
RNnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
RNminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Minlen",
FN$))
RNmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Maxlen",
FN$))
RNminval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Minval",
FN$))
RNmaxval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Maxval",
FN$))
RNinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Product Code"
PCCnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
PCCminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
PCCmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
PCCinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Our Ref"
ORFnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ORFminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ORFmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
ORFinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Submitter Title"
STLFinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Initials"
INSnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
INSminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
INSmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
INSinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Surname"
SUNnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
SUNminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
SUNmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
SUNinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Position"
POSnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
POSminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
POSmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
POSinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Company"
COMnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
COMminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
COMmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
COMinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Address Line 1"
ADD1null = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ADD1minlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ADD1maxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
ADD1instr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Address Line 2"
ADD2null = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ADD2minlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ADD2maxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
ADD2instr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Address Line 3"
ADD3null = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ADD3minlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ADD3maxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
SC$ = "Address Line 4"
ADD4null = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ADD4minlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ADD4maxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
SC$ = "Assessor"
ASNnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
ASNminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
ASNmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
ASNinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Telephone Number"
TELnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
TELminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
TELmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
TELminval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minval", FN$))
TELmaxval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxval", FN$))
TELinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Fax Number"
FAXnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
FAXminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
FAXmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
FAXminval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minval", FN$))
FAXmaxval = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxval", FN$))
FAXinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Training Status"
STATinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Supervisor"
SUPnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
SUPminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
SUPmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
SUPinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Other Authors"
OCAnull = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Null",
FN$))
OCAminlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Minlen", FN$))
OCAmaxlen = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Maxlen", FN$))
OCAinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "OK Button"
OKinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
SC$ = "Clear Button"
Clearinstr$ = WordBasic.[GetPrivateProfileString$](SC$, "Guidance", FN$)
End Sub
'***************************************************************************
**
' SUB-ROUTINE TO LOAD DEFAULTS FROM INI FILE:
''**************************************************************************
***
Private Sub LoadDefaults()
FN$ = IniPath$ + IniFN1$
SC$ = "Last Letter"
ANO$ = WordBasic.[GetPrivateProfileString$](SC$, "Assessment Number", FN$)
ADN$ = WordBasic.[GetPrivateProfileString$](SC$, "Addendum Number", FN$)
CONF = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$,
"Confidentiality", FN$))
TIT$ = WordBasic.[GetPrivateProfileString$](SC$, "Title", FN$)
PCC$ = WordBasic.[GetPrivateProfileString$](SC$, "PTD Cost Code", FN$)
ORF$ = WordBasic.[GetPrivateProfileString$](SC$, "Our Ref", FN$)
STL_ = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Submitter
Title", FN$))
INS$ = WordBasic.[GetPrivateProfileString$](SC$, "Initials", FN$)
SUN$ = WordBasic.[GetPrivateProfileString$](SC$, "Surname", FN$)
POS$ = WordBasic.[GetPrivateProfileString$](SC$, "Position", FN$)
COM$ = WordBasic.[GetPrivateProfileString$](SC$, "Company", FN$)
ADD1$ = WordBasic.[GetPrivateProfileString$](SC$, "Address1", FN$)
ADD2$ = WordBasic.[GetPrivateProfileString$](SC$, "Address2", FN$)
ADD3$ = WordBasic.[GetPrivateProfileString$](SC$, "Address3", FN$)
ADD4$ = WordBasic.[GetPrivateProfileString$](SC$, "Address4", FN$)
SC$ = "Assessor"
ASN$ = WordBasic.[GetPrivateProfileString$](SC$, "Name", FN$)
TEL$ = WordBasic.[GetPrivateProfileString$](SC$, "Telephone", FN$)
FAX$ = WordBasic.[GetPrivateProfileString$](SC$, "Fax", FN$)
STAT = WordBasic.Val(WordBasic.[GetPrivateProfileString$](SC$, "Status",
FN$))
SUP$ = WordBasic.[GetPrivateProfileString$](SC$, "Supervisor", FN$)
OCA$ = WordBasic.[GetPrivateProfileString$](SC$, "Other Author", FN$)
End Sub
'***************************************************************************
**
' SUB-ROUTINE TO SAVE NEW INPUTS TO INI FILE
'***************************************************************************
**
Private Sub SetFile()
WordBasic.SetPrivateProfileString SC$, KN$, ST$, FN$
End Sub
A Willing Volunteer to translate WB to VBA