Question

我使用以下代码从Userform打开文档。它工作正常，文档打开，但它在后台打开，用户可能不知道文件已打开，除非他们看到任务栏上的Word图标闪烁。如何获取此代码以确保文档在他们正在使用的Excel文档前面打开？任何帮助将不胜感激，祝你有美好的一天！

Private Sub SPECDOC_Click()
On Error Resume Next
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Open FileName:="File Location"
End Sub

Answer 1

这似乎有效，希望将来可以帮助其他人：

Private Sub SPECDOC_Click()
On Error Resume Next
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Activate
appWD.Documents.Open FileName:="File Location"
End Sub

EXCEL - Commandbutton单击以打开文档IN FRONT

1 个答案: