Hi Nancy,

How do you apply the styles?

From your description, it sounds as if you have a "Heading" style, and are
somehow creating alias names ("1", "2") for it.
Commas in style names mean you have several (alias) names for the same
style.

Greetings,
Klaus

This is a different problem, the notorious "Char Char" bug.

Word will create styles like "Heading4 Char" (i.e. with one Char) if
you apply a paragraph style to a selection that is not a whole
paragraph. Don't do this. If you are going to apply a paragraph style,
select the entire paragraph. This can be done by double-clicking in
the left margin, or by dragging to include everything including the
paragraph mark, or several other ways. It also works to place the
insertion point in the target paragraph with nothing selected.

Word is apparently not supposed to create styles with multiple Char
suffixes. Various service packs are supposed to prevent new styles of
this type from being created.

Documents that already have these evil styles are a PITA to clean up.
Below are several suggestions that have been posted to the Word
newsgroups. Adapt them as needed, substitute your problem style names,
etc.

Bob S

----- Start quotes ---------

One user reports that the problem can be fixed by:
a.    Create a new paragraph style called "junk".
b.    Do a global replacement of "Body Text,Body Text Char Char
Char" with "junk".
c.    Delete the "Body Text,Body Text Char Char Char" style.
d.    Using the Organizer, copy the "Body Text" style from the
template into the document.
e.    Do a global replacement of "junk" with "Body Text".
f.    Review the document, restoring any direct formatting that was
lost. (The only formatting that I observed to be lost was indentation.
Font colors and hidden-text formatting appear to have been preserved.)

Another user reports that exporting to HTML and then converting back
to DOC may help.

In most cases, you can clean the defective styles out of a document by
using the following procedure for each style that has been damaged.
This will not work for damaged heading styles, because Word will not
allow you to delete them.

Create a new temporary style. Use Find and Replace to replace all
occurrences of each defective version of the style with the temporary
style. Delete the style for all the defective versions of the style.
Close and re-open the document. Replace all occurrences of the
temporary style with the real style.

Munango-Keewati has produced the macro below to change all the items
formatted in a bad style back to Normal style and delete the bad
style. This could leave you with a lot of re-formatting to do.

Sub StylesDeleteParaAndChar()
' Find and delete nasty "Paragraph and Character" styles
For Each sty In ActiveDocument.Styles
If ActiveDocument.Styles(sty).Type = wdStyleTypeCharacter Then
   vName = ActiveDocument.Styles(sty)
   vCk = Len(vName) - 4
   If InStrRev(vName, " Char", -1) = vCk Then
       ActiveDocument.Styles(vName).LinkStyle = "Normal"
       ActiveDocument.Styles(vName).Delete
   End If
End If
Next sty
End Sub

In order to get rid of such things without deleting the "true" style,
you need to link the "Char" styles to another, "fake" style you can
delete, using macro code:

Sub DeleteHeading2Char()
   Dim styl As Word.Style, doc As Word.Document
   
   Set doc = ActiveDocument
   Set styl = doc.Styles.Add(Name:="Style1")
   On Error Resume Next
   doc.Styles("Heading 2 Char").LinkStyle = _
    styl
   styl.Delete
End Sub

Cindy Meister

I built a macro to kill the thing, which follows.  The code is aimed
at my particular situation (and at restoring the style to the name
pair I use for Body Text), but it should be adaptable to yours:

Sub ThrashUppityBodyTextStyle()
Dim s As Style
For Each s In ActiveDocument.Styles
 If s.Type = wdStyleTypeParagraph And _
    Left(s.NameLocal, 11) = "Body Text,b" Then
       s.NameLocal = "Body Text,b"
       Exit For
   End If
Next
End Sub

I'm not sure I want to put this in Normal.dot's AutoOpen macro just
yet, so that each doc I open would be checked & exorcised, but that
might be the logical next step.

Mark Tangard

----- End quotes ---------