A Willing Volunteer to translate WB to VBA 
Author Message
 A Willing Volunteer to translate WB to VBA

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



Thu, 28 Aug 2003 06:14:39 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. A willing person to convert WB to VBA

2. Translate WordBasic AppShow in a real VBA-Code

3. Translate WordBasic AppShow in a real VBA

4. Translating FORTRAN code into VBA code

5. Translating Excel VBA to VB5 code ?

6. translating from vba to vbscript

7. Error in macro email wb to distribution list in PAB

8. Q: How To Make Your Apps Like Windows Blinds W/o WB

9. VB and WB API problem

10. How to access HW from WB

11. Launch Excel & open existing WB

12. Prevent WB altering my HTML?

 

 
Powered by phpBB® Forum Software