Removing numbering from styles--Word 2007

[Pamelia Caswell via OfficeKB.com]

I often get large documents that have multilevel list numbering, but the
client has decided not to use autonumbering. I can get rid of the numbering
in the text easily enough by selecting the whole document and clicking the
none icon in the list gallery. But the numbers remain on the styles and if
I add new or reapply the heading styles, the new or newly reapplied ones will
have numbers. To rid the styles of the numbering, I modify each style by
clicking the already selected "None" in the numbering and bullets dialog.
It's only 9 styles and maybe 54 clicks, but I'd rather do it in one click.

Did I miss a way to do this through the menus or is there a way to
modify/remove all the heading styles' numbering in one macro?

Thanks,
Pam

 

[Stefan Blom]

You can do the following: Save a version with unnumbered styles as a
template (make sure that all formatting is the same except for numbering).
Whenever you want to clear numbering from a document, just insert it into a
newly created document from that template.

 

[Pamelia Caswell via OfficeKB.com]

I love it. Very clever. It should work beautifully if only I could get all
or many jobs in the same template. Unfortunately that is not my situation.
So, I'm still hoping for a solution.

Pam

You can do the following: Save a version with unnumbered styles as a
template (make sure that all formatting is the same except for numbering).
Whenever you want to clear numbering from a document, just insert it into a
newly created document from that template.

I often get large documents that have multilevel list numbering, but the
client has decided not to use autonumbering. I can get rid of the

[quoted text clipped - 14 lines]

Thanks,
Pam

 

[Stefan Blom]

Alternatively, you could try the following macro:

Sub ClearListFormattingFromHeadings()
Dim i As Long
For i = 1 To 9
ActiveDocument.Styles("Heading " & CStr(i)) _
..LinkToListTemplate Nothing
Next i
End Sub

--
Stefan Blom
Microsoft Word MVP

I love it. Very clever. It should work beautifully if only I could get all
or many jobs in the same template. Unfortunately that is not my
situation.
So, I'm still hoping for a solution.

Pam

You can do the following: Save a version with unnumbered styles as a
template (make sure that all formatting is the same except for numbering).
Whenever you want to clear numbering from a document, just insert it into
a
newly created document from that template.

I often get large documents that have multilevel list numbering, but the
client has decided not to use autonumbering. I can get rid of the

[quoted text clipped - 14 lines]

Thanks,
Pam

 

[Pamelia Caswell via OfficeKB.com]

Hi, Stefan,

Wow! And so little code! It works beautifully. I don't even have to remove
the list from the text before I remove it from the styles--it does both at
once. I am in your debt.

Many thanks,

Pam

(Of course the bigger problem is to get MS to fix this so a macro isn't
necessary. I could swear that when I first tested this (in the beta I think),
it worked properly.)

Alternatively, you could try the following macro:

Sub ClearListFormattingFromHeadings()
Dim i As Long
For i = 1 To 9
ActiveDocument.Styles("Heading " & CStr(i)) _
.LinkToListTemplate Nothing
Next i
End Sub

I love it. Very clever. It should work beautifully if only I could get all
or many jobs in the same template. Unfortunately that is not my

[quoted text clipped - 14 lines]

 

[Stefan Blom]

I'm glad I could help.

--
Stefan Blom
Microsoft Word MVP

Hi, Stefan,

Wow! And so little code! It works beautifully. I don't even have to
remove
the list from the text before I remove it from the styles--it does both at
once. I am in your debt.

Many thanks,

Pam

(Of course the bigger problem is to get MS to fix this so a macro isn't
necessary. I could swear that when I first tested this (in the beta I
think),
it worked properly.)

Alternatively, you could try the following macro:

Sub ClearListFormattingFromHeadings()
Dim i As Long
For i = 1 To 9
ActiveDocument.Styles("Heading " & CStr(i)) _
.LinkToListTemplate Nothing
Next i
End Sub

I love it. Very clever. It should work beautifully if only I could get
all
or many jobs in the same template. Unfortunately that is not my

[quoted text clipped - 14 lines]

Thanks,
Pam