[求助]版主这回我说的详细些

ronan1982

我首先打开一个32.doc文档，然后向文档里插入一个ActiveX控件，我写的是一个win32 的DLL来实现这一过程。当然32.doc是手动先打开的。我的代码里的相关部分。_ApplicationPtr m_app;m_app->createInstance("Word.Application");当然m_app总是成功的，但我想知道m_app是不是32.doc的application，我估计不是，但是我怎么才能获得32.doc的applicaiton呢。也许获得不到。那么守柔先生能不能提供一个解决的方法呢！据我现在的初级水平，我只知道要获得application才能有以后的操作。如_DocumentsPtr m_Doc;m_Doc = m_app->.............

再次感谢您了！

gues1688

我的理解：“首先打开一个32.doc文档......当然32.doc是手动先打开的”，这时windows中就会有一个word.exe的进程，这个进程中的application对象就是指word.exe服务程序。

然后用“m_app->createInstance("Word.Application");”，也会打开另一个word.exe进程，注意此时的word.exe是看不见的，但在任务管理器中可以看到，显然这2个进程的application并非同一个。

你现在希望用m_app对32.doc进行操作是不行的，因为32.doc不是用m_app打开的，32.doc对应的document的父对象不是m_app。

如果希望用m_app对32.doc进行操作，则32.doc须用m_app来打开。或者不用m_app->createInstance("Word.Application")创建实例，而把m_app指向另外一个进程即手工打开32.doc的那个进程中的application，跨进程的指向能否实现以及如何指向我就不清楚了，不知道守柔版主能否解答这个问题。

这个问题到csdn等编程论坛提问也许更合适。

[此贴子已经被作者于2005-11-25 13:51:05编辑过]

gues1688

变通一下可能可以实现，就是通过向打开32.doc的word窗体发送消息来实现对32.doc的操纵，具体如何实现，因对word不太熟悉，我也不知道。

gues1688

晚上查了资料，知道答案了。

在另外一个进程中，可以获取当前已经打开的word.exe的application，vc我不熟悉，delphi代码的示例如下：

procedure TForm1.btn1Click(Sender: TObject);
var
obj_Word ,obj_Doc: OleVariant;
begin
try
obj_Word:=GetActiveOleObject('Word.Application'); //取已打开的application
obj_Word.Visible:=True;
except
obj_Word:=CreateOleObject('Word.Application'); //不存在则创建一个
obj_Word.Visible:=True;
obj_Word.Documents.Add; //创建新文档
end;
obj_Doc:=obj_Word.ActiveDocument; //当前文档
//memo编辑框内容追加到当前文档
obj_Doc.ActiveWindow.Selection.InsertAfter(mmo1.Text);
obj_Word:=Null;
end;

[此贴子已经被作者于2005-11-27 1:43:21编辑过]

gues1688

做了一个简单的示例程序，完全的代码程序及可执行程序打包附上，请参考。 nhOpJzWz.rar (161.29 KB, 下载次数: 9)

2005-11-27 01:35 上传

点击文件名下载附件
[求助]版主这回我说的详细些

gues1688

delphi中的GetActiveOleObject在VB中是使用GetOleObject，vc中应该也有相应的方法。

gues1688

在msdn中帮你找到这段代码，看看是否有用？

STDMETHOD(Start)()
{
// If you already have an object, just return
if (m_pApp)
return S_OK;

// Create an instance of Word's Application object
m_pApp.CoCreateInstance(__uuidof(Word::Application), NULL, CLSCTX_SERVER);

// Make the Word user interface visible
m_pApp->put_Visible(true);

// Forge a connection to enable you to receive events
DispEventAdvise(m_pApp);

return S_OK;
}