References for VBA Project across Office versions (1 Viewer)

#Const LateBinding = True

#If LateBinding Then
    Const wdAlignRowCenter = 1
    Const wdLineStyleSingle = 1
    Const wdLineStyleNone = 0
    Const wdRowHeightExactly = 2
    Const wdBorderLeft = -2
    Const wdBorderRight = -4
    Const wdCollapseStart = 1
    Const wdWrapInline = 7
    Const wdAlignParagraphRight = 2
    Const wdStory = 6
    Const wdMove = 0
    Const wdBorderVertical = -6
    Const wdHeaderFooterPrimary = 1
    Const wdCollapseEnd = 0
    Const wdLineSpaceExactly = 4
    Const wdRowHeightAuto = 0
    Const wdDoNotSaveChanges = 0
    
    Dim apWord As Object
    Dim doc As Object
    Dim sel As Object
    Dim docHeader As Object
    Dim BannerShape As Object
    Dim WhatIsIt As Object
    Dim Image1Shape As Object
    Dim Image2Shape As Object
    Dim What As Object
    Dim Disclaimer As Object
    Dim BlackLine As Object
    Dim WhatIncluded As Object
    Dim ppTable1 As Object
    Dim ppTable1Range As Object
    Dim rng As Object
    Dim shp As Object
    Dim TempParagraph As Object
    Dim totalTable As Object
    Dim totalTableRange As Object
    Dim pptable2 As Object
    Dim MyRange2 As Object
    
#Else

    
    Dim apWord As Word.Application
    Dim doc As Word.Document
    Dim doc As Word.Document
    Dim sel As Word.Selection
    Dim docHeader As Word.HeaderFooter
    Dim BannerShape As Word.Shape
    Dim WhatIsIt As Word.Shape
    Dim Image1Shape As Word.Shape
    Dim Image2Shape As Word.Shape
    Dim What As Word.Shape
    Dim Disclaimer As Word.Shape
    Dim BlackLine As Word.Shape
    Dim WhatIncluded As Word.Shape
    Dim ppTable1 As Word.Table
    Dim ppTable1Range As Word.Range
    Dim rng As Word.Range
    Dim shp As Word.Shape
    Dim TempParagraph As Word.Paragraph
    Dim totalTable As Word.Table
    Dim totalTableRange As Word.Range
    Dim pptable2 As Word.Table
    Dim MyRange2 As Word.Range
    
#End If