Document.ExportToText このトピックを印刷 前のページ 1つ上のレベル 次のページ

ホーム >  プログラマーのレファレンス > Application API > Interfaces > Document >


See also


Method: ExportToText (pFromChild as XMLData, pExportSettings as ExportSettings, pTextSettings as TextImportExportSettings)



ExportToText exports tabular information from the document starting at pFromChild into one or many text files. Columns of the resulting tables are generated in alphabetical order of the column header names. Use GetExportElementList to learn about the data that will be exported. The parameter pExportSettings defines the specifics for the export. Set the property ExportSettings.ElementList to the - possibly modified - list returned by GetExportElementList to avoid exporting all contained tables. The parameter pTextSettings defines the options specific to text export and import. You need to set the property TextImportExportSettings.DestinationFolder before you call ExportToText. UpdateXMLData() might be indirectly needed as you have to pass the XMLData as parameter to this function.




The object is no longer valid.


Invalid parameter or invalid address for the return parameter was specified.


Error during export.



Document export failed.



' ---------------------------------------------------------

' VBA client code fragment - export document to text files

' ---------------------------------------------------------

 Dim objDoc As Document

 Set objDoc = objSpy.ActiveDocument


 Dim objExpSettings As ExportSettings

 Set objExpSettings = objSpy.GetExportSettings

 objExpSettings.ElementList = objDoc.GetExportElementList(




 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)

 End If

(C) 2019 Altova GmbH