How to create custom template that will replace standard bullets?

[XMLViking]

Hello

I have a ton of word 2000 documents that i would like to modify so that I can put them into my FlexWiki web site. What that entails is modifying all of my headers from Heading1, Heading2 etc...to something that wiki can understand like

Heading1 would be
Heading2 would be !
Heading3 would be !!

The theory was that I could create a custom style sheet .dot and then apply it to my existing documents! And whola! I can cut and paste my documents into Wiki.

 

[Doug Robbins - Word MVP - DELETE UPPERCASE CHARACT]

Try this

Dim apara As Paragraph
For Each apara In ActiveDocument.Paragraphs
If apara.Style.ListLevelNumber = 1 Then
apara.Range.InsertBefore "!" & vbTab
apara.Style = wdStyleNormal
ElseIf apara.Style.ListLevelNumber = 2 Then
apara.Range.InsertBefore "!!" & vbTab
apara.Style = wdStyleNormal
ElseIf apara.Style.ListLevelNumber = 3 Then
apara.Range.InsertBefore "!!!" & vbTab
apara.Style = wdStyleNormal
End If
Next apara


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP