如何使Microsoft Word应用程序出现在Microsoft Access的实例化之上？

我有一个Microsoft Access窗体被点击一个特定的按钮时会显示一个Microsoft Word应用程序与一个空白文档使用下面的代码：如何使Microsoft Word应用程序出现在Microsoft Access的实例化之上？

Set wrdApp = CreateObject("Word.Application") 
wrdApp.Visible = True 
Set wrdDoc = wrdApp.Documents.Add ' create a new document

一切都很好，除了我永远无法得到Word窗口出现在Access窗口的顶部。它只出现在任务栏中。

基本上，我想使用Microsoft Word作为弹出式富文本编辑器。

如何将新打开的Microsoft Word应用程序放置在实例化它的Microsoft Access窗体之上？

2011-11-20 GeneQ

多试错后，我已经找到了解决办法：

If Tasks.Exists("Microsoft Word") Then 
    AppActivate "Microsoft Word" 
End If

2011-11-20 17:21:39 GeneQ

你应该接受这个作为回答，即使你自己回答了这个问题:-) – JimmyPena

，但我知道，但因此只允许我到后2天内接受。 – GeneQ

为我工作，但我必须添加文档名称。像“MyDocName.docx - Microsoft Word” – Tarik

GeneQ自己的答案并没有为我工作。做什么工作是

Set w = New Word.Application 
w.Visible = True 
w.Activate 
w.WindowState = wdWindowStateMaximize

2014-04-11 02:12:02

很好的答案。我尝试了以上关于我正在研究的内容的逻辑，并且我尝试过GeneQ并没有取得太大的成功。我明白代码在做什么。它的说法使其可见，激活它并设置窗口状态。 – user3759531

回答