October 1999
Beginner
410 pages
10h 45m
English
Content preview from Writing Word Macros, Second EditionBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
The Display and Execute Methods
The Display method has syntax:
DialogBox.Display(TimeOut)
and differs from the Show method in only one way: after the dialog box is dismissed, no actions are taken. This method is used to prompt the user with a dialog box.
Note that if the user makes any changes in a dialog box while it is displayed, these changes will not be applied unless we use the Execute method. For instance, the following code displays the Font formatting dialog box. Once the user has dismissed the dialog, it checks to see if the font was changed to Tahoma. If so, it asks the user if she is sure and then either makes the change or discards it:
Dim dial As Dialog
Set dial = Dialogs(wdDialogFormatFont)
dial.Display
If dial.Font = "Tahoma" Then
If MsgBox("You have selected Tahoma. Are you sure?", _
vbYesNo) = vbYes Then
dial.Execute
End If
Else
dial.Execute
End IfBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.