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

Question

我有一个Microsoft Access表单，当使用以下代码单击特定按钮时，它将显示带有空白文档的Microsoft Word应用程序：

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表单之上？

Answer 1

经过多次反复试验，我找到了解决方案：

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

Answer 2

GeneQ自己的答案对我没有用。做了什么

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