How to open a new instance of Word and its .doc file
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 -- 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. |
How to open a new instance of Word and its .doc file
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" <u20911@uwe wrote in message news:73db311eb6a95@uwe... 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 -- 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. |
How to open a new instance of Word and its .doc file
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 Bernie Deitrick wrote: 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.a...tions/200706/1 |
How to open a new instance of Word and its .doc file
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 "Launchnet via OfficeKB.com" <u20911@uwe wrote in message news:73e45e34619b8@uwe... 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 Bernie Deitrick wrote: 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.a...tions/200706/1 |
All times are GMT +1. The time now is 10:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com