Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Private Sub wb_NavigateComplete2(ByVal pDisp As Object, url As Variant) 'On Error Resume Next Set oDocument = pDisp.Document MsgBox "File opened by: " & oDocument.Application.Name If (pDisp Is wb.Object) Then 'Debug.Print "wb_NavigateComplete2 = " & Now() & " - " & url 'MsgBox "Complete - " & url bDoneDownloading = True End If ' hide tools bars wb.ExecWB OLECMDID_HIDETOOLBARS, OLECMDEXECOPT_DONTPROMPTUSER End Sub
Public Sub UnloadWord() wb.Navigate2 "about:blank" ' So that webbrowser starts in 'msWord mode' and empty document End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.