08-26-2016
12:45 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-26-2016
12:45 AM
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
| Name | Description | |||||||||||||||||||||
| 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.
|
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"
please feel free to "kudos"