Hello!

I got this script from a "convert Word2Wiki" topic. Basically, it inserts '#' a number of times based on listlevel in the beginning of every list paragraph.


Private Sub ConvertLists()
   Dim para As Paragraph
    For Each para In ActiveDocument.ListParagraphs
        With para.Range
            .InsertBefore " "
            For i = 1 To .ListFormat.ListLevelNumber
                If .ListFormat.ListType = wdListBullet Then
                    .InsertBefore "*"
                Else
                    .InsertBefore "#"
                    Selection.ParagraphFormat.OutlineLevel = Selection.Range.ListFormat.ListLevelNumber

                End If
            Next i
            .ListFormat.RemoveNumbers
        End With
    Next para
End Sub


I dont really understand the steps in the procedure, but.. how do we:

Also enclose each list paragraph with a '#' in the end?
And/or give it a different style based on listlevel instead of it being a list.
I hope this isn't much of a trouble. Much of my prob is where to input changes in the script.

Thank you!

Omigosh, once again, I'm compelled to answer my own question!!!!

I'm working on a bulleted list. But, if I press tab, it usually does not change in body level. I know now that I can "link" a particular list level(created when tab is pressed another of time) to a different style and imbue this style with the right level. Thanks for reading anyway!!!!! I hope to make everybody's life easier!