xd2txcom.dllɂ

xdoc2txtCOM DLLłłB
쌠EṕAxdoc2txtɏ܂B

zzt@C

xd2txcom.dll	xdoc2txt COM DLL
comtest.vbs	xd2txcom.dll ĂяoVBScriptTv

`

ProgID:	xd2txcom.Xdoc2txt.1

HRESULT ExtractText([in] BSTR lpFilePath, VARIANT_BOOL bProp, [out,retval] BSTR* lpFileText);

	[in]BSTR lpFilePath	̓t@C
	[in]VARIANT_BOOL bProp	True:OfficẽvpeB\ False:{eLXg\
	[out,retval]BSTR* lpFileText	oeLXg(Unicode)

gp@

1) VBScript̗

Set obj = CreateObject("xd2txcom.Xdoc2txt.1")
fileText = obj.ExtractText("sample.doc",False)
MsgBox fileText


2) AhCŎs

(Excel2003̏ꍇ)
Ec[AhCI[g[V
EXdoc2txt ClassI
ELȃAhCɃ`FbN
VBA痘p\łB


ӎ

R}hvvguǗ҂ƂĎsvARegsvr32xd2txcom.dllVXeɓo^ĂB
	regsvr32 xd2txcom.dll

xd2txcom.dllĂяoXNvgA64bit OSŎsƂ́A%WINDIR%SysWOW64\CScript.exe ŎsĂB
	C:\Windows\SysWOW64\cscript.exe comtest.vbs


