请问用ATL做的ActiveX控件，可以嵌入word里面，如何获Word的Application的指针？100分啊

2005-11-29 01:36:32 312 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于LightGBM和多模型融合的量化交易研究：沪深300为例【附代码】 📊 数据科学与大数据专业 | 数据分析与模型构建 | 数据驱动决策✨ 专业领域：数据挖掘与清洗大数据处理与存储技术机器学习与深度学习模型数据可视化与报告生成分布式计算与云计算数据安全与隐私保护💡 擅长工具：Python/R/Matlab 数据分析与建模Hadoop/Spark 大数据处理平台SQL数据库管理与优化Tableau/Power BI 数据可视化工具TensorFlow/PyTorch 深度学习框架✅数据科学与大数据技术毕业论文【数据】阅读详情

请问用ATL做的ActiveX控件，可以嵌入word里面，如何获Word的Application的指针？100分啊

我听说可以用GetClientSite的方式，
但，不知道，具体详细情况该怎么做，，

高手指点！

...全文

“风色幻想XX：交错轨迹游戏卡顿：从解决d3dx9_xx.dll缺失开始——风色幻想XX优化指南《风色幻想XX：交错轨迹》作为一款深受玩家喜爱的角色扮演游戏，以其丰富的剧情、独特的角色设定和精美的画面赢得了广泛的赞誉。然而，在游戏过程中，部分玩家可能会遇到游戏卡顿的问题，这不仅影响了游戏体验，还可能让玩家错失精彩的剧情和战斗瞬间。在众多导致游戏卡顿的因素中，d3dx9_xx.dll文件的缺失往往是一个不容忽视的原因。阅读详情

littleroy

ATL 3,248 成员 48,530 内容

+ 关注 + 加入社区

切换为时间正序

goodboyws 2005-12-01

打赏
举报

http://support.microsoft.com/kb/190985/EN-US/

littleroy 2005-11-29

打赏
举报

to goodboyws(深夜不眠者

的代码，我看不懂啊，
能不能详细介绍一下呢，，

littleroy 2005-11-29

打赏
举报

to zhoujingsheng712

您的代码，我一回拿过去试一下，谢谢！！
不过，我更想要的是,我的控件是嵌入在word里面，如何通过GetClientSite函数的方式，
来获包容器的指针！

goodboyws 2005-11-29

打赏
举报

http://support.microsoft.com/kb/q266318/

goodboyws 2005-11-29

打赏
举报

void CMyActiveXCtrl::GettheNameofContainerDocument()
{
IMoniker* ptrfullMoniker = NULL;
char objectname[300];
LPOLESTR ppszDisplaynamefull;
IBindCtx* pbcfull = NULL;

LPOLECLIENTSITE pOleClientSite = GetClientSite();

if(pOleClientSite)
{
if(SUCCEEDED(pOleClientSite->GetMoniker(OLEGETMONIKER_FORCEASSIGN,
OLEWHICHMK_OBJFULL, &ptrfullMoniker)))<BR/>
// The typedefs for OLEGETMONIKER and OLWHICHMK are in oleidl.h
{
if (SUCCEEDED(CreateBindCtx( 0, &pbcfull )))
{
if(SUCCEEDED(ptrfullMoniker->GetDisplayName(pbcfull,NULL,<BR/>
&ppszDisplaynamefull)))
{
wcstombs(objectname,ppszDisplaynamefull,300);
AfxMessageBox(ExtractDocumentName(objectname));
ptrfullMoniker->Release();
}
}
pbcfull->Release();
}
pOleClientSite->Release();
}
}

char* CMyActiveXCtrl::ExtractDocumentName(char* objectname)
{
char* ptrchar;
char* ptrdocname;
//reverse the string
ptrchar = _strrev(objectname);
//Ignore the first token , this is the name of the embedded object
strtok(ptrchar,"!");
//get the remainder of the string and reverse it to get the Document name
ptrdocname = strrev(strtok(NULL,"\0"));
return ptrdocname;
}

zhoujingsheng712 2005-11-29

打赏
举报

先导入word类库：在addclass-〉from a library->word安装目录中选msword.olb
，然后添加如下代码
CLSID clsid;
HRESULT hr;
IUnknown *pUnknown=NULL;
IDispatch *pDispatch=NULL;
_Application app=NULL;
hr = ::CLSIDFromProgID(L"Word.Application",&clsid); //通过ProgID取得CLSID
if(FAILED(hr))
{
AfxMessageBox(_T("您没有安装OFFICE"));
return;
}

hr = ::GetActiveObject(clsid,NULL,&pUnknown); //查找是否有WORD程序在运行
if(FAILED(hr))
{
AfxMessageBox(_T("没有正在运行中的WORD应用程序"));
return;
}

hr = pUnknown->QueryInterface(IID_IDispatch,(LPVOID *)&app);
if(FAILED(hr)) AfxMessageBox(_T("没有取得IDispatchPtr"));
pUnknown->Release(); pUnknown=NULL;

littleroy 2005-11-29

打赏
举报

littleroy 2005-11-29

打赏
举报

请问用ATL做的ActiveX控件，可以嵌入word里面，如何获Word的Application的指针？100分啊

相关推荐