Description ExportToText exports the XML data structure into a text file.
Example
Dim objDoc As Document
Set objDoc = objSpy.ActiveDocument
Dim objExpSettings As ExportSettings
Set objExpSettings = objSpy.GetExportSettings
objExpSettings.ElementList = objDoc.GetExportElementList(
objDoc.RootElement,
objExpSettings)
Dim objTextExp As TextImportExportSettings
Set objTextExp = objSpy.GetTextExportSettings
objTextExp.HeaderRow = True
objTextExp.DestinationFolder = "C:\Exports"
On Error Resume Next
objDoc.ExportToText objDoc.RootElement, objExpSettings, objTextExp
If Err.Number <> 0 Then
a = MsgBox("Error: " & (Err.Number - vbObjectError) & Chr(13) & "Description: " & Err.Description)
EndIf