Hi,
This rule exports the revision table to excel
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oOptions As NameValueMap 'see below for additional options
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oOptions.Value("AutoFitColumnsWidth") = 1
Dim oRevTable As RevisionTable
oRevTable = oDrawDoc.ActiveSheet.RevisionTables.Item(1)
oRevTable.Export(ThisDoc.PathAndFileName(False) & ".xls", kMicrosoftExcelFormat,oOptions )
For more information about the options you can add:
RevisionTable.Export Method
RevisionTable.Export Method
Parent Object: RevisionTable
Description
Saves the revision table to an external file.
Syntax
RevisionTable.Export( FileName As String, FileFormat As FileFormatEnum, [Options] As Variant )
Parameters
| FileName |
Input string that specifies the file name to export the revision table to. |
| FileFormat |
Input FileFormatEnum that specifies the file format to save to. |
| Options |
Optional input NameValueMap object that specifies additional options for export. Valid inputs are listed in the table below.
| Name |
Value Type |
Valid for export formats |
| TableName |
String |
kMicrosoftExcel, kMicrosoftAccess |
| ExportedColumns |
String containing semicolon separated column titles |
All |
| IncludeTitle |
Boolean |
kMicrosoftExcel, kTextFileCommaDelimited, kTextFileTabDelimited, kUnicodeTextFileCommaDelimited, kUnicodeTextFileTabDelimited |
| StartingCell |
String |
kMicrosoftExcel |
| Template |
String |
kMicrosoftExcel |
| AutoFitColumnWidth |
Boolean |
kMicrosoftExcel |
|
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"