Word 2007 Numbering and Bullets

[Angie M.]

Hi,

In 2007 when you press "Alt+O", and then "N" you get the Numbering and
Bullets dialog box where you can set up numbeing OR edit the
numbers/indenting of the current Heading Styles you are using in the
document. I can't find a comparable pre-set feature in Word or I would just
customize the quick launch bar (maybe you know of one and I don't need a
macro?).

I'm trying to create a macro to do this same action, but to also select the
Outline Numbered tab and then the correct, in use numbering gallery "square"
and then click Customize. When you record the keystrokes you don't get
anything useable because it records the actual ListTemplate that you select
and I want to leave that up to the user. Can anyone shoot me the correct
statement?

Thanks in advance

 

[Pesach Shelnitz]

Hi Angie,

The following macro opens the Bullets and Numbering dialog box on the
Outline Numbered tab.

Sub OpenBulletsAndNumbering()
With Dialogs(wdDialogFormatBulletsAndNumbering)
.DefaultTab = wdDialogFormatBulletsAndNumberingTabOutlineNumbered
.Show
End With
End Sub

To the best of my knowledge, the additional navigation that you want to do
within this dialog box cannot be done in VBA.

 

[Angie M.]

Thanks I'll give it a try

Hi Angie,

The following macro opens the Bullets and Numbering dialog box on the
Outline Numbered tab.

Sub OpenBulletsAndNumbering()
With Dialogs(wdDialogFormatBulletsAndNumbering)
.DefaultTab = wdDialogFormatBulletsAndNumberingTabOutlineNumbered
.Show
End With
End Sub

To the best of my knowledge, the additional navigation that you want to do
within this dialog box cannot be done in VBA.

 

[Jean-Guy Marcil]

Angie M. was telling us:
Angie M. nous racontait que :

Thanks I'll give it a try

Usually, when you open that dialog, the current list template is already
selected by Word.

SendKeys "%t"

BEFORE the code Pesach suggested.

It is a little kludgy, but it should work.
Note that I do not have access to Word 2007 at the moment, so I did not test
it with Word 2007.