116 lines
3.4 KiB
VB.net
116 lines
3.4 KiB
VB.net
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
|