TommyGun
MrExcel MVP
- Joined
- Dec 9, 2002
- Messages
- 4,202
Just thought of one:
Sub Workbook_Open()
Application.Visible = False
Dim wdApp as Word.Application
Set wdApp = New Word.Application
wdApp.Visible=True
Set wdApp = Nothing
Application.DisplayAlerts = False
Application.Quit
End Sub
Now every time they fire up XL, it will shut down, and open Word.
Not very hurtful, but definitely annoying.
Don't forget to add a reference to the Word Library.
_________________
I'm on my way to being a programmer! Well, I've at least bought the books. LOL
This message was edited by TommyGun on 2002-12-19 11:24
This message was edited by TommyGun on 2002-12-19 11:29
Sub Workbook_Open()
Application.Visible = False
Dim wdApp as Word.Application
Set wdApp = New Word.Application
wdApp.Visible=True
Set wdApp = Nothing
Application.DisplayAlerts = False
Application.Quit
End Sub
Now every time they fire up XL, it will shut down, and open Word.

Not very hurtful, but definitely annoying.
Don't forget to add a reference to the Word Library.
_________________
I'm on my way to being a programmer! Well, I've at least bought the books. LOL
This message was edited by TommyGun on 2002-12-19 11:24
This message was edited by TommyGun on 2002-12-19 11:29