concatenate Outline lists

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

PeteSch - 10 Sep 2003 11:54 GMT

Hallo,

I've got a quite triky problem. I'm working on an Word template, which
has (amoungst other things) to handle the formatting of the whole
text, including outline numbered lists. Normaly it goes like this:

1. something
1.1 something else
1.2 something complete different

etc.

There are two sets of paragraph styles (bold headline and just the
number whith text right behind it) which are all based on the same
outline list template.
This is not a problem but, I need also another numbering, which goes
like this

1. something
.1 something else
.2 something complete different

etc.

The problem is, that I need the Information about the levels above
(for the .1, .2 paragraphs), for creating bookmarks..., but as far as
I can see, the only way to reach this different numberstyle is to
create a different list template. (in a earlier version with complete
numbering through SEQ fields, they used SEQ Fields whith the /h option
for that). Is there any way to concatenate the two list templates, so
that they continue each other?

Hope someone can help,

Peter

Reply to this Message

Bruce Brown - 11 Sep 2003 02:24 GMT

Peter -

> Is there any way to concatenate the two list templates, so
> that they continue each other?

Unfortunately not. They are totally independent of one another to the
point that they don't even know the others exist, even when they're
mixed together in the same outline.

However, there is a way to do what you want if you don't mind a little
extra work.

You could use a hidden LISTNUM field and bookmark it for referencing,
then add a non-hidden SEQ field after the LISTNUM field to use for
display. It would look like this:

{ LISTNUM \L 2 } .{ SEQ X \R 1 } This gives you .1

{ LISTNUM \L 2 } .{ SEQ X } This gives you .2, .3, etc.

You could make an AutoText entry out of both the first and second
lines, or, even easier, you could use this simple macro to copy either
of the entries wherever your cursor is at the moment. You'd have to
bookmark the first two entries to include everything from the margin
to the beginning of the text. Here the bookmarks are called
"EntryOne" and "EntryTwoAndUp":

Sub PasteNumber1()
Dim BName As String
Selection.Range.FormattedText =
ActiveDocument.Bookmarks("EntryOne").Range.FormattedText
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
BName = InputBox("Bookmark name (no spaces):", "Bookmark Name?")
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=BName
Selection.EndKey wdLine
End Sub

Sub PasteNumber2AndUp()
Dim BName As String
Selection.Range.FormattedText =
ActiveDocument.Bookmarks("EntryTwoAndUp").Range.FormattedText
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
BName = InputBox("Bookmark name {no spaces}:", "Bookmark Name?")
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=BName
Selection.EndKey wdLine
End Sub

They pause to let you name the bookmark and put it around the hidden
LISTNUM field at level 2. If you don't need to bookmark the hidden
field, take out the two lines before "Selection.EndKey wdLine." Hope
this is what you're looking for.
- Bruce

> Hallo,
>
[quoted text clipped - 31 lines]
>
> Peter

Reply to this Message

PeteSch - 11 Sep 2003 07:41 GMT

Bruce-

thank you very much. It's not exactly the thing I was looking for, but
it may be usefull anyway. I simplyfied my example a little bit, in
fact we need all 9 levels (even though the first 3 of them are not
interpreted by now), so I would have to do a complete handlig of the
resetting of numbering levels... for the SEQ fields). But maybe I can
do without the information from the hidden fields, if the procedure
wich creates the bookmarks goes gradual through the text.

Thank you again,
Peter

> Peter -
>
[quoted text clipped - 48 lines]
> this is what you're looking for.
> - Bruce

Reply to this Message