Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

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.
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"