How to open a new instance of Word and its .doc file

[Launchnet]

Here I am back with another question.

I need an Excel Macro that will open "MS Word" with a blank document shown.

Secondly, I need an Excel Macro that will open "MS Word with a "Named.doc"

Please see the two codes I have tried. Both will open Word, but neither will
display a blank document or a "Named.doc"

I copied the following ideas from 2 Macro's received so thankfully from Bob.

Sub NewWordOnly()
Dim oXL As Object
Set oXL = CreateObject("Word.Application")
oXL.Visible = True
oXL.BlankDocument.Add
End Sub

Sub NewWordWithDocument()
Dim oMS As Object
Dim oWD As Object

Set oMS = CreateObject("Word.Application")
oMS.Visible = True
Set oWD = oXL.BlankDocument.Open("C:\documents and settings\default\my
documents\travelagent.doc")
End Sub

 

[Bernie Deitrick]

Sub NewWordOnly2()
Dim oWordApp As Object
Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
oWordApp.Documents.Add DocumentType:=wdNewBlankDocument
End Sub

Sub NewWordWithDocument2()
Dim oWordApp As Object
Dim oWordDoc As Word.Document

Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
Set oWordDoc = oWordApp.Documents.Open( _
"C:\documents and settings\default\my documents\travelagent.doc")
End Sub


HTH,
Bernie
MS Excel MVP

 

[Launchnet via OfficeKB.com]

Hi Bernie . . .
Have both codes working. I had to change . . . Dim oWordDoc As Word.Document
to Dim oWordDoc As Object on second code (Sub NewWordWithDocument2()
Thanks very very much.

Bernie . . . If you are 30 or over, please read my story in
www.openoursite.com
Select: "Keywords" Then, Select: "Matt's Story" It can save your
life. My near perfect 1961 Red Chrysler 300 is on the front page of the site.


Again, many thanks. I'm doing my best for a 74 year old to learn, and it's
coming.

Matt @ Launchnet

Sub NewWordOnly2()
Dim oWordApp As Object
Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
oWordApp.Documents.Add DocumentType:=wdNewBlankDocument
End Sub

Sub NewWordWithDocument2()
Dim oWordApp As Object
Dim oWordDoc As Word.Document

Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
Set oWordDoc = oWordApp.Documents.Open( _
"C:\documents and settings\default\my documents\travelagent.doc")
End Sub

HTH,
Bernie
MS Excel MVP

Here I am back with another question.

[quoted text clipped - 23 lines]

documents\travelagent.doc")
End Sub

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy that
you read my story. God Bless for everyones help.

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/excel-functions/200706/1

 

[Bernie Deitrick]

Matt,

If you set a reference to MS Word, then the dimming of oWordDoc would work... I forgot to state
that, just assuming that you would have it already...

HTH,
Bernie
MS Excel MVP

Hi Bernie . . .
Have both codes working. I had to change . . . Dim oWordDoc As Word.Document
to Dim oWordDoc As Object on second code (Sub NewWordWithDocument2()
Thanks very very much.

Bernie . . . If you are 30 or over, please read my story in
www.openoursite.com
Select: "Keywords" Then, Select: "Matt's Story" It can save your
life. My near perfect 1961 Red Chrysler 300 is on the front page of the site.


Again, many thanks. I'm doing my best for a 74 year old to learn, and it's
coming.

Matt @ Launchnet

Sub NewWordOnly2()
Dim oWordApp As Object
Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
oWordApp.Documents.Add DocumentType:=wdNewBlankDocument
End Sub

Sub NewWordWithDocument2()
Dim oWordApp As Object
Dim oWordDoc As Word.Document

Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
Set oWordDoc = oWordApp.Documents.Open( _
"C:\documents and settings\default\my documents\travelagent.doc")
End Sub

HTH,
Bernie
MS Excel MVP

Here I am back with another question.

[quoted text clipped - 23 lines]

documents\travelagent.doc")
End Sub

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy that
you read my story. God Bless for everyones help.

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/excel-functions/200706/1