Open Word Document using VBA in Excel
 

In Excel & Word - 2002
All I am looking for is a simple VBA code to open a specific word document.
Something like:

Sub OpenDOC1()
Documents.Open ("C:\DOC1.doc")
EndSub()

I know there is more to VBA code than that, but this is the bare bones idea
of what I need.

Instead of having Users memorize many document path names on a shared drive
to access them, I have created a Excel worksheet "Control Panel", where Users
can use drop-down boxes to select from multiple document choices. (I think
this format could work in both Excel and Word tables importing excel data, so
my question isn't Excel-specific)

A user will pull down a drop down box in Excel, choose between DOC-1, DOC-2,
DOC-3. When the User selects the document name, then VBA code will open that
document in word. I found VBA to perform that operation; the VBA code needs
to call in another VBA macro that opens that specific word document, which is
why I need the code for how to open a specific doc.

ELSE: am I making this too confusing for myself? Would a function work
better for that? I really want to stick to the drop-down box format, it is
the most user-friendly option in my case.

Open Word Document using VBA in Excel
 

Something like the following.
Note that it opens a separate instance of Word, even if one is already open.
'--
Sub OpenWordDocumentFromExcel()
On Error GoTo BadShow
Dim oWord As Object
Set oWord = CreateObject("Word.application")
oWord.Documents.Open "C:\Documents and Settings\Text Docs\HENRY V.doc"
oWord.Visible = True
AppActivate oWord
Set oWord = Nothing
Exit Sub
BadShow:
oWord.Quit
Set oWord = Nothing
End Sub
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"mokshadavid"

wrote in message
In Excel & Word - 2002
All I am looking for is a simple VBA code to open a specific word document.
Something like:

Sub OpenDOC1()
Documents.Open ("C:\DOC1.doc")
EndSub()

I know there is more to VBA code than that, but this is the bare bones idea
of what I need.
Instead of having Users memorize many document path names on a shared drive
to access them, I have created a Excel worksheet "Control Panel", where Users
can use drop-down boxes to select from multiple document choices. (I think
this format could work in both Excel and Word tables importing excel data, so
my question isn't Excel-specific)
A user will pull down a drop down box in Excel, choose between DOC-1, DOC-2,
DOC-3. When the User selects the document name, then VBA code will open that
document in word. I found VBA to perform that operation; the VBA code needs
to call in another VBA macro that opens that specific word document, which is
why I need the code for how to open a specific doc.
ELSE: am I making this too confusing for myself? Would a function work
better for that? I really want to stick to the drop-down box format, it is
the most user-friendly option in my case.

Open Word Document using VBA in Excel
 

Thanks, so much for your answer. I used only part of the code. When I
tested all of the code you gave me, it would open up the document and then
close it immediately. Why is this?

Sub OpenWordDocumentFromExcel()
Dim oWord As Object
Set oWord = CreateObject("Word.application")
oWord.Documents.Open "C:\test"
oWord.Visible = True
End Sub

Open Word Document using VBA in Excel
 

Probably, because of the error handling in the code.
If an error is generated then it closes word.
An error would be generated (for instance) if the file "C:\Test" did not exist.
It's your call.

Note: when controlling another application from Excel,
you should always set object references to nothing when exiting the sub...
"Set oWord = Nothing"
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"mokshadavid"
wrote in message
Thanks, so much for your answer. I used only part of the code. When I
tested all of the code you gave me, it would open up the document and then
close it immediately. Why is this?

Sub OpenWordDocumentFromExcel()
Dim oWord As Object
Set oWord = CreateObject("Word.application")
oWord.Documents.Open "C:\test"
oWord.Visible = True
End Sub

Open Word Document using VBA in Excel
 

Thanks, you answered my question. I hope anybody looking for how to Open a
microsoft word document with a Macro, VBA, or Function, will find your answer
post when searching. It helped me alot.

Open Word Document using VBA in Excel
 

You are welcome.
'--
Jim Cone
Portland, Oregon



"mokshadavid"

wrote in message
Thanks, you answered my question. I hope anybody looking for how to Open a
microsoft word document with a Macro, VBA, or Function, will find your answer
post when searching. It helped me alot.

Printing Excel Form in Landscape Layout in SharedWorkbook
 

Hi,

I need to print an excel form in Landscape layout in a Shared Excel Workbook.

I have the code that simulates the Alt + PrntScreen and then pastes onto a temporary Worksheet and prints it in a Landscape layout.

However, this functionality does not work in a shared workbook.

Can anyone tell me how to do that in a shared workbook?

Thanks
Vineet Dewan