'*****************************************************************
'* Root Element
'*****************************************************************
 
    Set xmlTableElement = xml.createElement("Table")
    xml.appendChild xmlTableElement
 
    subxmlAttribute "NewPage", "Yes", xmlTableElement
 
    subxmlWaveAnchorElement xmlTableElement
    subxmlTitleElement strStrtCell, intLabel, xmlTableElement
 
    blFootnote1 = False
 
    subS_TableElement strStrtCell, intCols
    subS_HeadElement strStrtCell, intCols, blFootnote1
 
    xml.Save strFileName
    MsgBox "XML Export has been completed"
 
End Sub
Sub subS_TableElement(ByVal strStrtCell As String, ByVal intCols As Integer)
 
'*****************************************************************
'* Standard Table Element
'*****************************************************************
    Dim intColNo As Integer
    Dim col As Integer
    Dim intProductCol As Single
    Dim strColSize As String
    Dim strAttributeText As String
 
    Set xmlS_TableElement = xml.createElement("S_Table")
    xmlTableElement.appendChild xmlS_TableElement
 
    subxmlAttribute "cols", intCols, xmlS_TableElement
    subxmlAttribute "colsep", "1", xmlS_TableElement
    subxmlAttribute "rowsep", "1", xmlS_TableElement
    intColNo = intCols - 3
    intProductCol = (17.5 - strSymbol - strUnits - strNote) / intColNo
    For col = 1 To intColNo
        strColSize = strColSize + CStr(intProductCol) + "cm "
    Next
 
    strAttributeText = CStr(strSymbol) & "cm " & strColSize & " " & CStr( _
      strUnits) & "cm " & CStr(strNote) & "cm "
    subxmlAttribute "cwidths", strAttributeText, xmlS_TableElement
 
End Sub
Sub subS_HeadElement(ByVal strStrtCell As String, ByVal intCols As Integer, _
  ByVal blFootnote1 As Boolean)