RE: Word 97 to Word 2000

Subject: RE: Word 97 to Word 2000
From: "Steve Hudson" <steve -at- wright -dot- com -dot- au>
To: "TECHWR-L" <techwr-l -at- lists -dot- raycomm -dot- com>
Date: Fri, 4 May 2001 10:41:15 +1000

Repost: How about someone TRIES THIS instead of whining. Sure - whining is
much easier.

Hold onta ya HATs, a big one's a blowin in from the East....

Please folks, do this simple test for me and THEN comment on "the
autonumbering" problem.

Start a new template.

Define List Number style, and attach it to number gallery 1. Set the
numbering style in the gallery.
Define an indented List Number 2 style, attach it to gallery 2. Set the
numbering style.
Ditto for list 3.

Now, create a document with (not paste) some interleaved lists (worst case).

DO anything to make it break - please!

Now - I can break it one step. Go to your style definition for List Number 2
and List Number 3. Set them both to use the same number gallery as List
Number, and then reset your styles. Start to play... oooo - its broken.

Now. Go to one of your pre-existing documents that is broken. Ensure its
template follows the 2 principles used above - 1 The default
numbering/bullet styles are used, 2 They are set to unique number/bullet

Run this code (assuming you have NO plain text in the document)

Sub Macro1()
With ActiveDocument
While .Lists.Count > 0
Selection.Style = "plain text"
End With
End Sub

Then you can search for all plain text, restyle into your correct list
number/bullet styles. Then tell me if its broken anymore - it WONT be.

After the years of styles changes, edits etc, your documents are probably
full of badly connected lists. There should only be ONE list for every LIST

I use 3 simple numbers, 3 bullets and an outline numbering mode. If I was to
use ALL these styles in a document to make lists, and I created 10 lists
with each style, thats ONLY 7 lists in the document. They restart to form
new "lists" to the reader, but internally its all the one list.



Ah. This is possible. I not only set my styles directly from the template,
but via macro as well. The whole new age "update styles automatically"
bonanza leaves me feeling less than confident that the styles WONT change
when required, or change when not required.

After years of little annoying glitches appearing in the templated styles, I
finally decided to go the whole hog and macro my styles.

It saves heaps of time.

Now, specifically what is happening to you is probably this. Your template
styles HAVE changed, but despite all your darn settings word is NOT applying
the template styles to the matching styles in the document, because with the
new differences it perceives your document styles to be manually formatted
changes to the template. I use a restyle macro to force the change, use
similar code to the following:

Sub ReStyleAPara()
Dim k As Long
Application.ScreenUpdating = False
For k = 1 To ActiveDocument.Paragraphs.Count
Selection.Style = ActiveDocument.Styles(Selection.Style)
Selection.MoveDown unit:=wdParagraph, Count:=1
Application.ScreenUpdating = True
End Sub

Note: This wont affect paras with manual formatting!

Dear Diana,

better late than never they say, so here is my page numbering macro I use.
Sigh. My template will end up being posted in full :-) This is great for all
of you having "users" authoring documents too..

Sub PageNum()
' Sets Page numbering options for selected sections
Dim x As Long
Dim MyStyle As Long
Dim myChapter As Boolean
Dim myRestart As Boolean
Dim myFirstPage As Boolean

With Assistant.NewBalloon
.BalloonType = msoBalloonTypeButtons
.Icon = msoIconNone
.Button = msoButtonSetOkCancel
.Heading = "What type of page numbers do you want in this section?"
.Checkboxes(1).Text = "Include chapter number?"
.Checkboxes(2).Text = "Restart numbering?"
.Checkboxes(3).Text = "Number first page of section?"
.Labels(1).Text = "Arabic (1,2,3)"
.Labels(2).Text = "Lowercase letters (a,b,c)"
.Labels(3).Text = "Uppercase letters (A,B,C)"
.Labels(4).Text = "Lowercase Roman (i,ii,iii)"
.Labels(5).Text = "Uppercase Roman (I,II,III)"
x = .Show
myChapter = .Checkboxes(1).Checked
myRestart = .Checkboxes(2).Checked
myFirstPage = .Checkboxes(3).Checked
End With

Select Case x
Case 1
MyStyle = wdPageNumberStyleArabic
Case 2
MyStyle = wdPageNumberStyleLowercaseLetter
Case 3
MyStyle = wdPageNumberStyleUppercaseLetter
Case 4
MyStyle = wdPageNumberStyleLowercaseRoman
Case 5
MyStyle = wdPageNumberStyleUppercaseRoman
End Select

With Selection.Sections(1).Headers(1).PageNumbers
.NumberStyle = MyStyle
.HeadingLevelForChapter = 0
.IncludeChapterNumber = myChapter
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = myRestart
If myRestart = True Then .StartingNumber = 1
.ShowFirstPageNumber = myFirstPage
End With

End Sub

1 Create a new template
2 Invoke Format > Bullets & Numbering
3 Choose bullets.
4 Ensure first three (we are just using three styles each at mo) are set to
bullets as you like em.
5 Define style List Bullet, and clicks its bullets and numbering and choose
bullet gallery 1
6 Ditto for List Bullet 2 and bullet gallery 2, repeat for List Bullet 3.
Obv styles list bullet 2 & 3 get more indent space whacked on em.
7 Repeat steps 4-6 using the number gallery and List Number styles.

Et viola

Its not quite THAT simple Suzy, but DAMN close

1) Yes its been fixed since 97 so long as you understand LISTS - not styles.

2) No - your "corrupted" lists are still "corrupted"

3) They are fixable.

Heres what you want to do.

A) - Build a new template with Good styles

1) Use the BUILT-IN styles of List Number, List Number 2 etc and List
Bullet etc

2) Set EVERY style to its own unique GALLERY entry. Eg List Bullet uses
bullet gallery 2, list bullet 2 uses bullet gallery 3 etc.

3) If you want to be sure to be sure, define this stuff via macro and have
the user run the macro ONCE upon template delivery to set their local
numbering options (stored in registry)

B) Cleanup old lists

1) Load old document. Find/replace all old list styles (number or bullet)
to plain text. This means you now have NO lists in your document. Ideally
check by displaying activedocument.lists.count

2) attach new template

3) restyle lists

et viola baby!
I have another as well (its a bit doh, but people need to be told it):

To style a custom number format different from the text of the line,
explicitly set the character styling of the base style, and then set the
character styling details in the custom number format to something
Sorta close. The bit you missed is this:

The STYLE comes across fine

The GALLERY uses whatever is set locally.

Now, 99% of the time, the gallery is already set to 1,2,3... and we are
using 1,2,3... so you are ok. The big caveat is if you ARENT using 1,2,3 or
the std bullets. In which case your LISTS will be just fine, but your
NUMBERING/BULLETINg will reflect local stds. Ie they will indented and
bullted... but the bullet char may be wrong etc. Minor discrepancy - only
from NOT using default settings, solved by running a styling macro at the
user end.

Steve Hudson

-----Original Message-----
From: Word-Pc List [mailto:WORD-PC -at- LISTSERV -dot- LIV -dot- AC -dot- UK]On Behalf Of
Davies, Suzy

I thought the problem with Word 97 numbering and bullets is that while you
could get numbering to work consistently in your document on your machine,
by doing what you suggest(create a new Word 97 template, recreate your
styles etc etc), but that the Gallery settings on other people's machines
would override your document settings, so while you get it to look beautiful
on your machine, you could send it to someone else who gets scrambled list
formatting. Then you go to the meeting with your client and you see the
copy they printed out, and its not pretty.


*** Deva(tm) Tools for Dreamweaver and Deva(tm) Search ***
Build Contents, Indexes, and Search for Web Sites and Help Systems
Available now at or info -at- devahelp -dot- com

Sponsored by Information Mapping, Inc., a professional services firm
specializing in Knowledge Management and e-content solutions. See or 800-463-6627 for more about our solutions.

You are currently subscribed to techwr-l as: archive -at- raycomm -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot- Visit for more resources and info.

RE: Word 97 to Word 2000: From: Beth Friedman

Previous by Author: RE: from Word 97 to Word 2000
Next by Author: RE: from Word 97 to Word 2000
Previous by Thread: RE: Word 97 to Word 2000
Next by Thread: RE: Word 97 to Word 2000

What this post helpful? Share it with friends and colleagues:

Sponsored Ads