xdoc2txt 2.00 alpha にCOM DLL版も追加した。COM DLLを呼び出せる多数のアプリケーションから利用できるはずである。VBScriptから利用する例をあげておく。
- 定義
ProgID: xd2txcom.Xdoc2txt.1
HRESULT ExtractText([in] BSTR lpFilePath, VARIANT_BOOL bProp, [out,retval] BSTR* lpFileText);
[in]BSTR lpFilePath 入力ファイル名
[in]VARIANT_BOOL bProp
True:Office文書のプロパティ表示
False:本文テキスト表示
[out,retval]BSTR* lpFileText 抽出したテキスト(Unicode)
- VBScriptの例
Set obj = CreateObject("xd2txcom.Xdoc2txt.1")
fileText = obj.ExtractText("sample.doc",False)
MsgBox fileText