Option Explicit On
Imports MSXML2

Module Setup
    Public App As Word.Application
    Public Structure LevelDef
        Public Def As String
        Public Level As Integer
    End Structure
    Public Structure StepStyle
        Public ID As String
        Public LevelDefs() As LevelDef
    End Structure
    Public Structure VESection
        Public ID As String
        Public Pattern As String
        Public number As String
        Public Title As String
        Public Style As String
        Public StyleID As String
        Public StyleName As String
        Public name As String
        Public IsSub As Boolean
        Public StepStyle As StepStyle
        Public StepOffset As Integer
        Public IsMultiple As Boolean
        Public FmtFile As String
        Public Type As String
        Public Library As String
        Public TableStyle As String
        Public ColumnMode As String
        Public MergeStyle As String
        Public HeaderTag As String
        Public Config As String
        Public ChangeNumber As Boolean
        Public FindTitle As String
        Public Level As String
    End Structure
    Public Structure VEStep
        Public ID As String
        Public FmtFile As String
        Public Description As String
        Public Ident As String
        Public Type As String
        Public Parent As String
        Public Menu As String
        Public NumStyle As String
        Public Deflt As String
    End Structure
    Public Structure VEFormat
        Public name As String
        Public dom As DOMDocument60
    End Structure
    Public Structure VECheckoff
        Public ID As String
        Public FmtFile As String
        Public Menu As String
    End Structure
    Public Structure VEProperty
        Public name As String
        Public Type As String
        Public text As String
        Public value As String
    End Structure
    Public Structure VEPSI
        Public Style As String
        Public name As String
        Public Type As String
        Public text As String
        Public value As String
        Public Justify As String
        Public x As String
        Public y As String
        Public Width As String
        Public Height As String
        Public Length As String
    End Structure
    Public Structure VEPSIFrame
        'X As String
        'Y As String
        Public Width As String
        Public Height As String
        Public Caption As String
    End Structure
    Public Idents As Object
    Public IgnoreMe() As String
    Public Separators As Object
    Public SetupFiles As Object
    Public VECheckoffs() As VECheckoff
    Public VEProperties() As VEProperty
    Public VESections() As VESection
    Public VESteps() As VEStep
    Public StepStyles() As StepStyle
    Public domSetup As DOMDocument60
    Public ThisFormat As VEFormat
    Public ThisPSI() As VEPSI
    Public ThisPSIFrame As VEPSIFrame

    Public MySection As VESection
    Public ThisSection As VESection
    Public ThisSectionID As Integer
    Public ThisStepStyle As StepStyle
    Public ThisStepStyleID As Integer
    Public ThisVEStep As VEStep
    Public ThisSeparator As String
    Public ThisLevel As String
    Public ThisIdent As String
    Public ThisSetup As String
    Public RibbonStatus As String
    Public ThisRange As Word.Range

    Const FmtFolder As String = "fmtall"
    Const sSetupFileExtension As String = ".xml"
    Public Const bDebug As Boolean = True
End Module