Need to edge out the competition for your dream job? Train for certifications today.
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim bNewInstance As Boolean
'try to use existing instance of application
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
If wdApp Is Nothing Then
'no existing application, so create a new one
Set wdApp = CreateObject("Word.Application")
bNewInstance = True
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\MyFolder\Mydoc.doc")
.OptionButton1.Value = True
'close application if specially created for this code
If bNewInstance Then
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.