从 Word OLE 应用程序对象获取应用程序标题

有没有办法从 Word.Application OLE 对象获取窗口标题？我想用它来尝试使用窗口FindWindow.

我正在创建一个 OLE 对象并添加一个现有文档，如下所示：

App := CreateOLEObject('Word.Application');
App.Visible := True;
App.Activate;
Doc := App.Documents.Open('File.doc');

此时，标题值如下：

App.Caption => 'Microsoft Word'
Doc.ActiveWindow.Caption => 'File.doc [Compatibility Mode]'

然而，窗口标题实际上是File.doc [Compatibility Mode] - Microsoft Word.

是否有某种方法可以从 OLE 对象获取此窗口标题（似乎没有更好的方法来获取 HWND 本身而不使用FindWindow）？我怀疑假设窗口标题始终是安全的<doc caption> - <app caption>.

我想使用FindWindow函数来获取窗口的句柄，以便能够将其带到前台（请参阅OLE Automation 将推出 MS Word 并将其推向前台 https://stackoverflow.com/questions/3860250/ole-automation-to-launch-ms-word-and-bring-to-front）通过传递正确的标题以稍微安全的方式。

EDIT

这是使用中描述的解决方法进行的修复http://support.microsoft.com/kb/258511 http://support.microsoft.com/kb/258511

App := CreateOLEObject('Word.Application');

// get the handle
TempTitle := 'Temp - ' + IntToStr(Random(1000000));
App.Caption := TempTitle;
Handle := FindWindow('OpusApp', PWideChar(TempTitle));
App.Caption := EmptyStr;

App.Visible := True;
App.Activate;
Doc := App.Documents.Open('File.doc');

// bring to front
SetForegroundWindow(Handle);

这是你想要的？

如何获取 Office Automation 服务器的窗口句柄 http://support.microsoft.com/kb/258511