Attribute VB_Name = "Variables1"
Option Explicit

Public DesiredPage As String 'NOT being used at this time

'Variables for setting table bounds
Public BoundNom As Integer
Public NumRows As Integer
Public Delta As Long

Public PicHeight As Long 'NOT being used at this time
Public PicWidth As Long 'NOT being used at this time

'Variables for saving font name and size
Public Fn As String
Public Fs As Integer

'Variable for holding bullet location and style
Public Const NTagVal = 1
Public BulletStyle As String

'Temp constant for clause insertion
Public Const Clause1 = "This is a sampling of text that is being inserted at" _
& " the current cursor location in this document."

'Variable for shortcut keys (font attributes: Bold, Italic, Underline)
Global KeyPress_Exit As Boolean

'Variable to point to body(ATX451)
Global ALLText45Body As ATX45
Global ALLText45Header As ATX45
Global ALLText45Footer As ATX45


'For page size combobox to read value
Global PageSize As ComboBox

'Variable for left indent set in twips
Global Const lngLeftIndent As Long = 0

'Variable to populate combobox for font and fontsize
Global strSomeFontName As String
Global iFontNumber As Integer
Global iCount As Integer, strFontSize As String

'Variables to find path for Windows System Folder
Global sBuf As String
Global cSize As Long
Global retval As Long

'Variables for Shortcut Key word Lookup
Global ShortCutKeyArray$(400, 400)
Global strLastWordEntered As String
Global strLastWordEntered1 As String
Global intNumberOfPhrases As Integer

'For charmap and calc exicution
Global Const strCharmap As String = "\charmap.exe"
Global Const strCalc As String = "\calc.exe"
Global strFullPath As String
Global ShellRetVal

'Variables for resizing controls
Global lngBorderSpacingX As Long
Global lngBorderSpacingY As Long
Global lngCtrlSpacingY As Long
Global lngGridSize As Long
Global Const lngHeadFootHeight As Long = 735
Global Const lngNumFraHeight As Long = 855

'Variables for retreiving table info
Global intNumTables As Integer
Global intTotNumRows As Integer
Global lngTableLeftPos As Long
Global lngTableWidth As Long

'Variable for structure type
Global arrNamesCount As Long

'Variables for page number, line number and column number
Global lngCurrentPageNumber As Long
Global lngCurrentLineNumber As Long
Global lngCurrentColumnNumber As Long
Global TotNumPages As Long

'Variables for page margin top and left
Global Const lngPageMarginTop As Long = (1.25 * 1440)
Global Const lngPageMarginLeft As Long = (1# * 1440)
Global Const TwipsPerInch As Long = 1440

'Variables for hanging indent
Global lngBFirstLineIndent As Long
Global lngBLeftIndent As Long

