Customizing Word Built-In Dialog Boxes

02-27-04, 02:15 PM

Lynn Taylor

I am showing the Insert Table of Contents dialog box using
VBA. "Dialogs(wdDialogsInsertTableofContents).Show"

When i do this, the Show Levels box has a 9 in it. How
can I change this to 3.

If you perform the same task in Word by clicking on
Insert, Index and Tables then click the TOC tab, the Show
Levels box has a 3 in it.

Any helpers please?
LT

02-27-04, 08:27 PM

Jay Freedman

Hi, Lynn,

When you're looking for information about settings in built-in dialogs, the
best reference is -- believe it or not -- the WordBasic help file from Word
95. It's available from a link at
http://word.mvps.org/FAQs/MacrosVBA/WordDlgHelp.htm.

In this case, the InsertTableOfContents dialog has a parameter named .To
that controls the Show Levels box. You can handle it like this:

Dim dlg As Dialog
Set dlg = Dialogs(wdDialogInsertTableOfContents)
With dlg
.To = 3
.Show
End With

Similar Threads
How to access built-in dialog boxes How do you find the numeric value of a built-in dialog box, such as: Dialogs(1347).Show to display the Modify Style dialog box? I am interested in accessing the Fill...
How to find names for built-in dialog boxes Is the list that comes up in the VB Editor as you type Dialogs( the full list available? In particular, I'm trying to find out how to call the "Modify Style"...
Using built in dialog boxes - how to determine arguments? How do I find out what the arguments/members of a given Word.Dialog are? I can invoke them fine using the code from: [..], and I can get some information on member names...
Built-in Dialog Boxes Is there anyway you can display dialog boxes using VBA. For example, would like to display the Save As dialog box, if a presentation has no already been saved, just before...
Re : Making use of the Built-in Dialog Boxes 1. Please examine the following code :- Dim TextFind As String Call Application.Dialogs(xlDialogFormulaFind).Show(TextFind, 2, 2, 1, 0, True, True) MsgBox "TextFind = " &...