EXCEL

Question

我正在使用以下代码从用户窗体打开文档。它工作正常，文档打开，但是它在后台打开，用户可能不知道文件已经打开，除非他们看到任务栏上的 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 - 单击命令按钮打开前面的文档

EXCEL - Commandbutton click to open document IN FRONT

vba

userform