为什么在使用vba调用时打开应用程序窗口后仍保持最小化?

当我通过VBA打开各种应用程序时,我总是遇到这个问题。Internet Explorer、Word、Excel等都打开了,甚至文档也打开了,但任务栏上的窗口保持最小化,必须手动打开。我在几台使用不同版本Office的计算机上也遇到了这个问题。(Windows 10 pro、Office 2019 pro和Office 365),所有这些都存在相同的问题。有人能解决这个问题吗?储罐

Word代码(带有MS Access VBA):

Sub OpenDoc()

Dim WordApp As Object, WordDoc As String

WordDoc = "C:\Users\Me\Desktop\Document01.docx"

Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    WordApp.Documents.Open (WordDoc)

End Sub

IE代码:

Sub openIE()

Dim oIE As InternetExplorer

Set oIE = New InternetExplorer

URL = xxx

With oIE
   .Visible = True
   .Navigate2 URL
   .Activate
    Do While .readyState <> READYSTATE_COMPLETE
    DoEvents
    Loop
End With

'or

'With oIE
'   .Visible = True
'   .Navigate2 URL
'   .Activate
'End With
'
'    Do While IE.readyState <> READYSTATE_COMPLETE
'    DoEvents
'    Loop

End Sub