Reset / Continue Numbering

[DJ]

I've read plenty of articles saying what a nightmare Word's numbering
is (I'm using Word 2K). However, what I would like to do is, having
removed Bullets & Numbering, is to provide buttons that "Restart" or
"Continue" list numbering that would work reliably (well, as reliably
as Word) as if I had chosen the corresponding option from the B&N
dialog. Now, I thought that would be just a matter of writing a couple
of simple marcos thus:

Public Sub RestartListNumbering()
Dim format As ListFormat
If format.CanContinuePreviousList(format.ListTemplate) <>
wdContinueDisabled Then
format.ApplyListTemplate ListTemplate:=format.ListTemplate,
ContinuePreviousList:=False
End If
End Sub

Public Sub ContinueListNumbering()
Dim format As ListFormat
Set format = Selection.Range.ListFormat

If format.CanContinuePreviousList(format.ListTemplate) <>
wdContinueDisabled Then
format.ApplyListTemplate ListTemplate:=format.ListTemplate,
ContinuePreviousList:=True
End If
End Sub
Now sometimes these appear to work but not for level 1 lists. Well, I
can't even say that because they work for them occasionally however it
is only an apparition. If I then process the same paragraph and ask it
for it's current state using CanContinuePreviousList it always returns
wdContinueList! Now, from what I've read, I'm guessing that Word has
created a whole new List Template at this point which is a bit of a
problem to us as we're responsible for storing the document not word
and we don't store the list templates.

Now for some questions:
1. Is the problem caused by Word creating a new list template?
2. If so, is there a simple fix to the macros that will get them to
mimic Word's behaviour without creating a new list template?
3. All numbering has to be applied via styles which leaves me some
hope from what I've read. What is the simplest set up I need to allow
for one outlined and one numbered list to be used? Can the "built in"
styles be removed?

Sorry for the verbosity!

TIA

[Steve Hudson]

G'day mat...@chasseral.com (DJ),

I have a topic on this in my FAQ available from my blog:
http://blog.tdfa.com

mat...@chasseral.com (DJ) was spinning a yarn that went like this:

Steve Hudson - Word Heretic, Sydney, Australia
Freelance teacher, trainer, tutor, writer, developer
Email: her...@tdfa.com Blog and FAQs: http://blog.tdfa.com
You agree by writing to me personally that any material can be reused publicly unless you explicitly disclaim it. (For List and blog use.)