Thanks Paul for your reply and your confirmation that it's impossible to have a multipage image. I have a couple of days of code that confirms this, that didn't work, that I could have posted
Simply uncheck the 'Show all windows in the taskbar' option
got me excited. Something like...
With Application
.ShowWindowsInTaskbar = Not .ShowWindowsInTaskbar
End With
...doesn't work for Office '97-2003 which is apparently required for use with .doc files accessed by Word 2016. I do not want to set a reference so I am using late binding. General operation of my objective has several option buttons on an XL userform that when selected, open a specified Word document. Using all Office versions since '97, this has always been quick (2 or 3 secs). Office 2016 is taking 10 to 15 seconds. Most of this time is taken to start the Word application. To avoid this delay is my ultimate goal. Toward this end, not closing the Word application on document close would be best. Having the Word application open before option button selection is second best which is what the following code does. The code opens the Word application before userform.show, re-opens Word after document close (manual) then quits Word following userform.unload.
XL module code...
Public PFWdApp As Object
Public Sub NofileEr1()
'Open Word application before Userform.Show
On Error Resume Next
Set PFWdApp = GetObject(, "Word.application")
If Err.Number <> 0 Then
On Error GoTo 0
Set PFWdApp = CreateObject("Word.Application")
End If
PFWdApp.DisplayAlerts = False
End Sub
Public Sub CheckWordApp()
're-open Word application after document close
On Error Resume Next
Set PFWdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
On Error GoTo 0
Set PFWdApp = CreateObject("Word.Application")
Exit Sub
End If
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="CheckWordApp"
End Sub
Public Sub NofileEr2()
'Close Word application after Unload.Userform
On Error Resume Next
Set PFWdApp = GetObject(, "Word.application")
If Err.Number = 0 Then
PFWdApp.DisplayAlerts = True
With PFWdApp
.Application.Quit
End With
End If
On Error GoTo 0
Set PFWdApp = Nothing
End Sub
To operate (userform code)...
Sub test()
'Open Document. Re-open Word open after document close.
PFWdApp.Visible = True
PFWdApp.Documents.Open Filename:="Full file path", ReadOnly:=False
Call CheckWordApp
End Sub
Again, thanks for your assistance. Any further information or suggestions welcome. Dave