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

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" <(E-Mail Removed)> wrote in message
news5A9E2BF-1A8E-429E-915F-(E-Mail Removed)...
> 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

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" <(E-Mail Removed)> wrote in message
> news5A9E2BF-1A8E-429E-915F-(E-Mail Removed)...
> > 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
>
>
>

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

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

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" <(E-Mail Removed)> wrote in message
news:9EB28038-72A3-4FA8-9266-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in
>> message
>> news5A9E2BF-1A8E-429E-915F-(E-Mail Removed)...
>> > 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
>>
>>
>>

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" <(E-Mail Removed)> wrote in message
> news:9EB28038-72A3-4FA8-9266-(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in
> >> message
> >> news5A9E2BF-1A8E-429E-915F-(E-Mail Removed)...
> >> > 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
> >>
> >>
> >>
>
>
>