请教：VC编程操作Word,如何支持各种版本Word?

[snake1122]

不同操作系统，安装的路径不一样，还有不同版本Word所使用的库不一样，这些问题干如何处理呢？做过的大侠给个思路！
这样行不行，
#if defined( word97)
#import "...\office97\...\*.olb" //没有97，那位仁兄给个路径和名称
#elif defined (word2000)
#import ""
...
#endif

大家讨论，
分不够再加！

[vansoft]

通过注册表取Office的安装路径。
顺便说一句，Office最好用VB来开发。

OFFICE开发、VBA使用，
提供免费或有偿技术支持。
CO.：Vansoft Workroom
MSN：[e-mail]
QQ：5537350
Email：[e-mail]
[e-mail]
TEL：[phone](范)

[gjd111686]

你用向导添加olb文件
olb跟路径就没有关系,你用VC已经将olb文件导为类了.

[snake1122]

to vansoft(Vansoft Workroom) :
谢谢，能详细的讲下如何通过注册表取么？
另外，不是只操作office,所以不用VB.

to gjd111686(数字金刚) :
不能用类向导，这样更没法兼容各种Word版本，我这个是要1个版本在各种Word版本下都可以操作的。

[VCnst]

to vansoft(Vansoft Workroom) :

在这里支持一下可以吗？
上不了qq和msn.

[1HelloWorld]

// Fotodocword.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include <ole2.h>


//
// AutoWrap() - Automation helper function...
//
HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp,
LPOLESTR ptName, int cArgs...)
{
// Begin variable-argument list...
va_list marker;
va_start(marker, cArgs);

if(!pDisp) {
MessageBox(NULL, "NULL IDispatch passed to AutoWrap()",
"Error", 0x10010);
_exit(0);
}

// Variables used...
DISPPARAMS dp = { NULL, NULL, 0, 0 };
DISPID dispidNamed = DISPID_PROPERTYPUT;
DISPID dispID;
HRESULT hr;
char buf[200];
char szName[200];

// Convert down to ANSI
WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);

// Get DISPID for name passed...
hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT,
&dispID);
if(FAILED(hr)) {
sprintf(buf,
"IDispatch::GetIDsOfNames(\"%s\") failed w/err0x%08lx",
szName, hr);
MessageBox(NULL, buf, "AutoWrap()", 0x10010);
_exit(0);
return hr;
}

// Allocate memory for arguments...
VARIANT *pArgs = new VARIANT[cArgs+1];

// Extract arguments...
for(int i=0; i<cArgs; i++) {
pArgs[i] = va_arg(marker, VARIANT);
}

// Build DISPPARAMS
dp.cArgs = cArgs;
dp.rgvarg = pArgs;

// Handle special-case for property-puts!
if(autoType & DISPATCH_PROPERTYPUT) {
dp.cNamedArgs = 1;
dp.rgdispidNamedArgs = &dispidNamed;
}

// Make the call!
hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType,
&dp, pvResult, NULL, NULL);
if(FAILED(hr)) {
sprintf(buf,
"IDispatch::Invoke(\"%s\"=%08lx) failed w/err 0x%08lx",
szName, dispID, hr);
MessageBox(NULL, buf, "AutoWrap()", 0x10010);
_exit(0);
return hr;
}
// End variable-argument section...
va_end(marker);

delete [] pArgs;

return hr;

}

int main(int argc, char* argv[])
{
// Initialize COM for this thread...
CoInitialize(NULL);

// Get CLSID for Word.Application...
CLSID clsid;
HRESULT hr = CLSIDFromProgID(L"Word.Application", &clsid);
if(FAILED(hr)) {
::MessageBox(NULL, "CLSIDFromProgID() failed", "Error",
0x10010);
return -1;
}

// Start Word and get IDispatch...
IDispatch *pWordApp;
hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER,
IID_IDispatch, (void **)&pWordApp);
if(FAILED(hr)) {
::MessageBox(NULL, "Word not registered properly",
"Error", 0x10010);
return -2;
}



// Get Documents collection
IDispatch *pDocs;
{
VARIANT result;
VariantInit(&result);
AutoWrap(DISPATCH_PROPERTYGET, &result, pWordApp, L"Documents",
0);

pDocs = result.pdispVal;
}


//cai begin
/*
COleVariant varFilePath(strFilePath);
COleVariant varstrNull("");
COleVariant varZero((short)0);
COleVariant varTrue(short(1),VT_BOOL);
COleVariant varFalse(short(0),VT_BOOL);
m_Docs.AttachDispatch(m_App.GetDocuments());//ｽｫDocumentsﾀ犖ﾔﾏ_DocsｺﾍIdispatchｽﾓｿﾚｹﾘﾁｪﾆｴ｣ｻ
m_Docs.Open(varFilePath,varFalse,varFalse,varFalse,
varstrNull,varstrNull,varFalse,varstrNull,
varstrNull,varTrue,varTrue,varTrue);
//ｴｪWordﾎﾄｵｵ｣ｻ
m_Sel.AttachDispatch(m_App.GetSelection());//ｽｫSelectionﾀ犖ﾔﾏ_SelｺﾍIdispatchｽﾓｿﾚｹﾘﾁｪﾆｴ｣ｻ
m_Sel.WholeStory ();//ﾑ｡ﾔﾄｵｵﾖﾐｵﾄﾈｫｲｿﾄﾚﾈﾝ｣ｻ
m_Sel.Copy();//ｽｫﾊｾﾝｿｽｱｴｵｽｼ・
this->GetEditCtrl( ).Paste ();//ｽｫﾊｾﾝﾕｳﾌｽｳﾌﾐﾄ"ﾊﾓ"ﾖﾐ｣ｻ
m_Docs.ReleaseDispatch();//ｶﾏｿｪｹﾘﾁｪ｣ｻ
m_Sel.ReleaseDispatch();
*/

IDispatch *pBookMark;
{
VARIANT result;
VariantInit(&result);
//VARIANT x,y;
//x.vt = VT_I4;
//x.lVal = 0;
//x.vt=VT_ERROR;
//x.lVal=DISP_E_PARAMNOTFOUND;

// VARIANT used in place of optional-parameters.
VARIANT varOpt;
varOpt.vt = VT_ERROR;
varOpt.scode = (long)DISP_E_PARAMNOTFOUND;

//y.vt = VT_BSTR;
//y.bstrVal = ::SysAllocString(L"d:\\doctest1.doc");

//AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Add", 3,y,x,x);
AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Add", 4,varOpt,varOpt,varOpt,varOpt);
pBookMark = result.pdispVal;

// SysFreeString(x.lVal);
//SysFreeString(y.bstrVal);

}

/* IDispatch *pDoc;
{
VARIANT result;
VariantInit(&result);
VARIANT x;
x.vt = VT_BSTR;
x.bstrVal = ::SysAllocString(L"C:\\Doc1.doc");

AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Open", 1, x);
pDoc = result.pdispVal;
SysFreeString(x.bstrVal);
}*/

IDispatch *pRang;
{
VARIANT result;
VariantInit(&result);
VARIANT x,y;
x.vt = VT_BSTR;
x.bstrVal = ::SysAllocString(L"0");
y.vt = VT_BSTR;
y.bstrVal = ::SysAllocString(L"0");

AutoWrap(DISPATCH_METHOD, &result, pBookMark, L"Range", 2, x, y);
pRang = result.pdispVal;
SysFreeString(x.bstrVal);
SysFreeString(y.bstrVal);
}

{
VARIANT result;
VariantInit(&result);
VARIANT x,y;
x.vt = VT_BSTR;
x.bstrVal = ::SysAllocString(L"just a test!");
y.vt = VT_BSTR;
y.bstrVal = ::SysAllocString(L"d:\\docment1.doc");

AutoWrap(DISPATCH_METHOD, &result, pRang, L"InsertAfter", 1, x);
AutoWrap(DISPATCH_METHOD, &result, pBookMark, L"SaveAs", 1, y);
//pRang = result.pdispVal;
SysFreeString(x.bstrVal);
SysFreeString(y.bstrVal);
}

//cai end


// Close the document without saving changes and quit Word
{
VARIANT x;
x.vt = VT_BOOL;
x.boolVal = false;
//AutoWrap(DISPATCH_METHOD, NULL, pDoc, L"Close", 1, x);
AutoWrap(DISPATCH_METHOD, NULL, pBookMark, L"Close", 1, x);
AutoWrap(DISPATCH_METHOD, NULL, pWordApp, L"Quit", 0);
}

// Cleanup
pBookMark->Release();
pRang->Release();
//pDoc->Release();
pDocs->Release();
pWordApp->Release();


// Uninitialize COM for this thread...
CoUninitialize();

return 0;
}