Microsoft KB Archive/105684: Difference between revisions
(importing KB archive) |
m (Text replacement - "[[mk:@MSITStore:KBMisc.chm::/Source/zMiscellaneous/q" to "[[") |
||
Line 63: | Line 63: | ||
For information about how to do this in Word 97, please see the following article in the Microsoft Knowledge Base: | For information about how to do this in Word 97, please see the following article in the Microsoft Knowledge Base: | ||
<blockquote>[[ | <blockquote>[[159547|Q159547]] How to Remove Settings from Word Dialog Boxes</blockquote> | ||
Additional query words: 6.0 ole automation word basic word6 7.0 word95 word7 winword object visual curvalues dlg as dim | Additional query words: 6.0 ole automation word basic word6 7.0 word95 word7 winword object visual curvalues dlg as dim | ||
Revision as of 14:57, 19 July 2020
OLE Automation: Retrieving Word's Dialog Box Settings |
Q105684
The information in this article applies to:
- Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
- Microsoft Word for Windows, versions 7.0, 7.0a
SUMMARY
Using OLE Automation, you can retrieve settings from Word's dialog boxes. In the client application, you need to create an object variable to hold the dialog settings and then place the settings into the variable.
For example:
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.
Dim OptionsVar As Object 'defines object variable Set OptionsVar = WordObj.CurValues.ToolsOptionsView
The second instruction fills the object variable (OptionsVar) with the settings from the Tools Options View dialog. CurValues is the method used to return the current dialog box settings. Once the dialog box settings are stored in the object variable, you can access the individual settings using the following syntax:
DialogObjectVar.DialogBoxSettingName
The following Visual Basic procedure determines the current setting of ShowAll in the ToolsOptionsView dialog, and toggles the setting:
Sub Command1_Click () Dim WordObj As Object Dim OptionsVar As Object Set WordObj = CreateObject("Word.Basic") Set OptionsVar = WordObj.CurValues.ToolsOptionsView If OptionsVar.ShowAll = 1 Then WordObj.ToolsOptionsView ,,,,,,,,,,,,,,, 0 Else WordObj.ToolsOptionsView ,,,,,,,,,,,,,,, 1 End If End Sub
NOTE: Visual Basic version 3.0 does not support named parameters, so you must identify WordBasic arguments by position using commas as placeholders.
The above Visual Basic procedure has the same functionality as the following WordBasic macro:
Sub MAIN Dim dlg As ToolsOptionsView GetCurValues dlg If dlg.ShowAll = 1 Then dlg.ShowAll = 0 Else dlg.ShowAll = 1 End If ToolsOptionsView dlg End Sub
For information about how to do this in Word 97, please see the following article in the Microsoft Knowledge Base:
Q159547 How to Remove Settings from Word Dialog Boxes
Additional query words: 6.0 ole automation word basic word6 7.0 word95 word7 winword object visual curvalues dlg as dim
Keywords : kbole
Issue type :
Technology :
Last Reviewed: November 4, 2000 |