2 numbers on one line

[ilene]

can i set up a numbering style (autonum or whatever) that
looks like the below. Word XP.

1.
A. (1)
(2)
B. (1)
(2)

2.

thanks!
ilene

 

[Bruce Brown]

Yes, Ilene, it's very easy. In your example . . .

1.
A. (1)
(2)

.. . . you'd put in a LISTNUM field following the A. to get the level 3
number (1).

You could also use a "hidden paragraph mark," which is to say, a
paragraph mark in hidden font -- preferably colored, so you can see it
-- which allows you to put more than one style on the same line.

- Bruce

 

[Klaus Linke]

Well, "very easy" if you're a ListNum field wizard like Bruce...

Oh, Klaus, stop scaring poor Ilene. You don't have to
be a wizard to press Ctrl-Alt-L and get a LISTNUM field.
Why, even a scarecrow can do that.

Guess I'll have to get myself a brain, too ;-)

BTW, your second method (hidden paragraph mark) doesn't work for me:
The numbering of the "appended" paragraph vanishes (in Word2000).
Did you mean to use a hidden paragraph mark *and* a ListNum field?
Or has this bug been fixed?

Regards,
Klaus

 

[Bruce Brown]

Klaus - Don't know what you're doing or not doing, but try this simple
code and see if it doesn't work for you.

To get what Ilene wanted . . .

1.
A. (1) Text in Heading 3 style.

.. . . you'd have to put in TWO hidden paragraphs that would look like
this in the ShowAll view:

A.

(1)

Text in Heading 3 style.

That's because the Heading 3 number doesn't display after a hidden
paragraph, so the actual number must be included as text in Body Text
style, followed by another hidden paragraph mark, followed by the text
in Heading 3 style. If that sounds like a pain where the moon doesn't
shine, it is.


Sub DoAHiddenParagraph()
If Not Selection.Type = wdSelectionIP Then
MsgBox "Can't do Hidden Paragraph with text selected.", , "Take
Off Selection"
Exit Sub
End If
'CHECK ORIGINAL VIEW
Application.ScreenUpdating = False
Dim ShwAll As Boolean
ShwAll = ActiveWindow.View.ShowAll
ActiveWindow.View.ShowAll = True
With Selection
'PUT IN HARD RETURN
.TypeParagraph
'APPLY BODY TEXT STYLE TO NEW LINE
.Style = ActiveDocument.Styles("Body Text")
'GO BACK TO PARAGRAPH MARK AND SELECT IT
.MoveLeft unit:=wdCharacter, Count:=1
.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
'HIDE, COLOR PARAGRAPH MARK
With .Font
.Hidden = True
.ColorIndex = wdBlue
End With
'GO BACK TO NEW LINE
..MoveRight wdWord
'TYPE IN PERIOD AND TWO SPACES
..TypeText Text:=". "
End With
'RESTORE ORIGINAL VIEW
ActiveWindow.View.ShowAll = ShwAll
End Sub

 

[ilene]

Thanks for your responses!

one question
how do you create a hiddle paragraph mark?? - know i saw
it in a "woody" tip at one time, but can't find it in
help, or ms kb

one comment
the MoveRight wdWord bombs when i run the macro

still working on it - thanks for the direction. i'm
getting along with Listnum

ilene, aka scrawcrow

-----Original Message-----
Klaus - Don't know what you're doing or not doing, but try this simple
code and see if it doesn't work for you.

To get what Ilene wanted . . .

1.
A. (1) Text in Heading 3 style.

.. . . you'd have to put in TWO hidden paragraphs that would look like
this in the ShowAll view:

A.

(1)

Text in Heading 3 style.

That's because the Heading 3 number doesn't display after a hidden
paragraph, so the actual number must be included as text in Body Text
style, followed by another hidden paragraph mark, followed by the text
in Heading 3 style. If that sounds like a pain where the moon doesn't
shine, it is.


Sub DoAHiddenParagraph()
If Not Selection.Type = wdSelectionIP Then
MsgBox "Can't do Hidden Paragraph with text selected.", , "Take
Off Selection"
Exit Sub
End If
'CHECK ORIGINAL VIEW
Application.ScreenUpdating = False
Dim ShwAll As Boolean
ShwAll = ActiveWindow.View.ShowAll
ActiveWindow.View.ShowAll = True
With Selection
'PUT IN HARD RETURN
.TypeParagraph
'APPLY BODY TEXT STYLE TO NEW LINE
.Style = ActiveDocument.Styles("Body Text")
'GO BACK TO PARAGRAPH MARK AND SELECT IT
.MoveLeft unit:=wdCharacter, Count:=1
.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
'HIDE, COLOR PARAGRAPH MARK
With .Font
.Hidden = True
.ColorIndex = wdBlue
End With
'GO BACK TO NEW LINE
..MoveRight wdWord
'TYPE IN PERIOD AND TWO SPACES
..TypeText Text:=". "
End With
'RESTORE ORIGINAL VIEW
ActiveWindow.View.ShowAll = ShwAll
End Sub


like Bruce...




Guess I'll have to get myself a brain, too ;-)

BTW, your second method (hidden paragraph mark) doesn't work for me:
The numbering of the "appended" paragraph vanishes (in Word2000).
Did you mean to use a hidden paragraph mark *and* a ListNum field?
Or has this bug been fixed?

Regards,
Klaus

.
[/QUOTE]

 

[Suzanne S. Barnhill]

Select just the paragraph mark and Ctrl+Shift+H or Format | Font: Hidden.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.