如何使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

回答