CoE

Find CheckBox62
==================

'New Items
WordBasic.CheckBox 220, 56, 87, 16, "General", "CheckBox63"
WordBasic.CheckBox 220, 76, 100, 16, "Medical ", "CheckBox64"
WordBasic.CheckBox 420, 56, 200, 16, "Security/reliability", "CheckBox65"
WordBasic.CheckBox 420, 76, 100, 16, "Travel", "CheckBox66"

Find Chk6
=================
'New conditions
'General
If id$ = "CheckBox64" Then
           Chk7 = wvalue
End If
'Medical
If id$ = "CheckBox65" Then
           Chk8 = wvalue
End If
'Security/reliability
If id$ = "CheckBox66" Then
           Chk9 = wvalue
End If
'Travel
If id$ = "CheckBox67" Then
           Chk10 = wvalue
End If


Find coeo
=================
'Add new panel 6 chks in here
If Chk6 = 1 Then
    WordBasic.InsertFile Name:=path$ + "data.DOC", Range:="coeg"
    WordBasic.InsertPara
End If
If Chk7 = 1 Then
    WordBasic.InsertFile Name:=path$ + "data.DOC", Range:="coem"
    WordBasic.InsertPara
End If
If Chk8 = 1 Then
    WordBasic.InsertFile Name:=path$ + "data.DOC", Range:="coes"
    WordBasic.InsertPara
End If
If Chk9 = 1 Then
    WordBasic.InsertFile Name:=path$ + "data.DOC", Range:="coet"
    WordBasic.InsertPara
End If

'</Condition of Employment>


Public Sub test()
Dim EnvString, Indx, Msg, PathLen   ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)   ' Get environment
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))  ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1 ' Not PATH entry,
    End If  ' so increment.
Loop Until EnvString = ""

If PathLen > 0 Then
    MsgBox Msg  ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If
End Sub


'=======================================
'======================================================
'  Wizard-specific routines go here.
'  This includes routines necessary for all wizards that
'  may be customized for a particular wizard.