WD: Undocumented WordBasic Dialog Boxes |
Q114849
This article describes three undocumented Word dialog boxes you can
open using the Connect, NewToolbar, and WindowList WordBasic statements.
All three of these dialogs are available in Word for Windows, however the
Connect dialog is not available in Word for the Macintosh. The article
contains three sample macros that you can use to open these dialog boxes.
NOTE: The Connect, NewToolbar, and WindowList statements ARE documented;
only their associated dialog boxes are undocumented.
WordBasic Statement Dialog Box
------------------- ----------
Connect Connect To Network Drive
NewToolbar New Toolbar
WindowList Activate Microsoft provides programming examples for illustration only, without warranty either
expressed or implied, including, but not limited to, the implied warranties of
merchantability and/or fitness for a particular purpose. This article assumes
that you are familiar with the programming language being demonstrated and the
tools used to create and debug procedures. Microsoft support professionals can
help explain the functionality of a particular procedure, but they will not
modify these examples to provide added functionality or construct procedures to
meet your specific needs. If you have limited programming experience, you may
want to contact a Microsoft Certified Partner or the Microsoft fee-based
consulting line at (800) 936-5200. For more information about Microsoft Certified
Partners, please see the following page on the World Wide Web:
http://www.microsoft.com/partner/referral/For more information about the support options available from Microsoft, please see the following page on the World Wide Web:
http://support.microsoft.com/directory/overview.asp
Sub MAIN
Dim dlg As Connect
GetCurValues dlg
If Dialog(dlg) Then Connect dlg
End Sub
The following modified NetConnect macro inserts the network name in the
Connect To Network Drive dialog box for you. You only need to select a
letter from the Drive list and choose OK.
Sub MAIN
Dim dlg As Connect
GetCurValues dlg
dlg.Path = "\\project\info"
If Dialog(dlg) Then Connect dlg
End Sub
Sub MAIN
On Error Resume Next
ToolsMacro .Name = "WindowList", .Show = 2, .Run
End Sub
Sub MAIN
Dim dlg As NewToolbar
GetCurValues dlg
If Dialog(dlg) Then NewToolbar dlg
End Sub
NOTE: If you choose the Help button in the New Toolbar dialog box, Word
correctly displays the New Toolbar Dialog Box online Help topic.
"Microsoft Word Developer's Kit," Microsoft Press, 1994, pages 301, 601, 814
Additional query words: word basic
Keywords : kbmacro wordnt kbmacroexample winword ntword macword word6 word7 word95
Issue type : kbinfo
Technology : kbWordSearch kbWordWSearch kbWordMSearch
|
Last Reviewed: December 29, 2000 © 2001 Microsoft Corporation. All rights reserved. Terms of Use. |