ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Display MsbBox in Word using Excel VBA (https://www.excelbanter.com/excel-programming/385446-display-msbbox-word-using-excel-vba.html)

Alex St-Pierre

Display MsbBox in Word using Excel VBA
 
Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre

Jon Peltier

Display MsbBox in Word using Excel VBA
 
You probably want the messagebox in the same Word instance which contains
the report, assuming that's why you're using Word.

Earlier in the routine you probably have one of these:

Set appWord = New Word.Application
Set appWord = CreateObject("Word.Application")
Set appWord = GetObject(, "Word.Application")

and then you create the report within appWord. Don't kill appWord until
after you've executed this line:

appWord.MsgBox "Report created", vbExclamation, "Message"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Alex St-Pierre" wrote in message
...
Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre




Alex St-Pierre

Display MsbBox in Word using Excel VBA
 
Hi Jon,

When I try to write appWord.* , I don't have MsgBox choice and it doesn't
work if I write it ? appWord.Application.MsgBox doesn't work too. I seems
that msgbox is in class interaction. Do you have an other idea?
Thanks!
Alex
Set appWord = New Word.Application
appWord.Visible = True
Set MyDocWord = appWord.Documents.Add
--
Alex St-Pierre


"Jon Peltier" wrote:

You probably want the messagebox in the same Word instance which contains
the report, assuming that's why you're using Word.

Earlier in the routine you probably have one of these:

Set appWord = New Word.Application
Set appWord = CreateObject("Word.Application")
Set appWord = GetObject(, "Word.Application")

and then you create the report within appWord. Don't kill appWord until
after you've executed this line:

appWord.MsgBox "Report created", vbExclamation, "Message"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Alex St-Pierre" wrote in message
...
Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre





Dave Peterson

Display MsbBox in Word using Excel VBA
 
I searched the excel newsgroups for "msgbox word" and found this hit from
Orlando Magalhães Filho.

http://groups.google.co.uk/group/mic...3dbe5d951282a6

or

http://snipurl.com/1dfpi

========

Sub MsgBoxOverWord()
Dim WordApp As Object
Set WordApp = CreateObject("word.application")
With WordApp
.Visible = True
.Documents.Add
WordApp.WordBasic.MsgBox "Hi!", 1
.Quit
End With
End Sub

Harald Staff added a link to show how to use an API call to put the message box
atop any application.



Alex St-Pierre wrote:

Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre


--

Dave Peterson

Dave Peterson

Display MsbBox in Word using Excel VBA
 
ps. That worked for me in xl2003.

Alex St-Pierre wrote:

Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre


--

Dave Peterson

Jon Peltier

Display MsbBox in Word using Excel VBA
 
You could either follow up on Dave's suggestions, or just use

MsgBox "Report created", vbExclamation, "Message"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Alex St-Pierre" wrote in message
...
Hi Jon,

When I try to write appWord.* , I don't have MsgBox choice and it doesn't
work if I write it ? appWord.Application.MsgBox doesn't work too. I seems
that msgbox is in class interaction. Do you have an other idea?
Thanks!
Alex
Set appWord = New Word.Application
appWord.Visible = True
Set MyDocWord = appWord.Documents.Add
--
Alex St-Pierre


"Jon Peltier" wrote:

You probably want the messagebox in the same Word instance which contains
the report, assuming that's why you're using Word.

Earlier in the routine you probably have one of these:

Set appWord = New Word.Application
Set appWord = CreateObject("Word.Application")
Set appWord = GetObject(, "Word.Application")

and then you create the report within appWord. Don't kill appWord until
after you've executed this line:

appWord.MsgBox "Report created", vbExclamation, "Message"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Alex St-Pierre" wrote in
message
...
Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre







Alex St-Pierre

Display MsbBox in Word using Excel VBA
 
Thanks!!

Dave's suggesion is working good. Word 2002 recognize
appWord.WordBasic.MsgBox "Hi!"


--
Alex St-Pierre


"Jon Peltier" wrote:

You could either follow up on Dave's suggestions, or just use

MsgBox "Report created", vbExclamation, "Message"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Alex St-Pierre" wrote in message
...
Hi Jon,

When I try to write appWord.* , I don't have MsgBox choice and it doesn't
work if I write it ? appWord.Application.MsgBox doesn't work too. I seems
that msgbox is in class interaction. Do you have an other idea?
Thanks!
Alex
Set appWord = New Word.Application
appWord.Visible = True
Set MyDocWord = appWord.Documents.Add
--
Alex St-Pierre


"Jon Peltier" wrote:

You probably want the messagebox in the same Word instance which contains
the report, assuming that's why you're using Word.

Earlier in the routine you probably have one of these:

Set appWord = New Word.Application
Set appWord = CreateObject("Word.Application")
Set appWord = GetObject(, "Word.Application")

and then you create the report within appWord. Don't kill appWord until
after you've executed this line:

appWord.MsgBox "Report created", vbExclamation, "Message"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Alex St-Pierre" wrote in
message
...
Hi,
I would like to make a popup (msgbox) in word using Excel VBA.
Any idea ?
something like..
Set appWord = New Word.Application
appWord.MsbBox = "Report created"
Thanks!
Alex
--
Alex St-Pierre








All times are GMT +1. The time now is 05:10 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com