Can Excel startup Word?

  • Thread starter Thread starter Robert Crandal
  • Start date Start date
R

Robert Crandal

Since Excel and Word seem to be part of the same
MS-Office software set, I assume that Excel can
easily be used to open Word??? Just wondering
if I can automate Word from the Excel application
in any way.

thank u
 
Yo can do it this way:

Sub test()
Dim oWord As Object
Dim oDoc As Object
Set oWord = CreateObject("Word.Application")
oWord.Visible = True

End Sub


--
Regards!
Stefi



„Robert Crandal†ezt írta:
 
Thanks Stefi, that works nicely.

I have another question now.....Is there a way to test if
Word is already running??? (I mean, if Word is already
up and running, then there is no need to create that
"Word.Application" object, right??)

thank you
 
' This should help you


Sub Wordhdl()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = getWord()
Set WordDoc = getDocument(WordApp) ' this will ensure we have an
open document

End Sub

Private Function getWord() As Word.Application
On Error Resume Next
Err.Clear
Set getWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then ' iff Word isn't there lets start it
Set getWord = CreateObject("Word.Application")
Err.Clear
End If
getWord.Visible = msoCTrue
End Function


Private Function getDocument(WordApp As Word.Application) As
Word.Document
' Reference active document
On Error Resume Next
Set getDocument = WordApp.ActiveDocument
If Err.Number <> 0 Then 'if no document lets create one
Set getDocument = WordApp.Documents.Add()
Err.Clear
End If
End Function
 
Thank you very much. That code seems to be working exactly
as I hoped.

I just have one question about the getWord() function. There is
a line of code which reads as follows:

getWord.Visible = msoCTrue

getWord.Visible can only be assigned a True or False value,
so what exactly is this "msoCTrue" variable. I tried to Google it,
but the results came up with "msoTrue". Is this a typo???
 
Back
Top