在Excel中打开Word文档并在Windows 10环境中置于最前面

Question

我想在Excel中打开word文档并将word文档放在前面。

我在Open Word Document and Bring to Front

中尝试了解决方案

但是，此解决方案仅适用于Windows 8和Windows 2012服务器环境。

最终结果是我希望有一个在Windows 10环境中也能运行的解决方案。

感谢您的帮助

Answer 1

以下是否适用于您？

Sub openword()

Dim Wapp As Object
Dim Wdoc As Object

Set Wapp = CreateObject("Word.Application")
With Wapp
   .Visible = True
   Set Wdoc = .documents.Open("path")
   .Activate
End With



End Sub