Lol, I'll answer me own question! Sorry I asked in excel a Word
question...
Sub sodsaS()
With ActiveDocument.Content.Find
.ClearFormatting
.ParagraphFormat.OutlineLevel = wdOutlineLevel2 '---change numbers
according to outline level
Do While .Execute(FindText:="", Forward:=True, _
Format:=True) = True
With .Parent
.StartOf Unit:=wdParagraph, Extend:=wdMove
.InsertAfter "#" '-----is what gets inserted in the
beginning!
.Move Unit:=wdParagraph, Count:=1
End With
Loop
End With
End Sub


Good luck people! lol


--
Ambrosia
------------------------------------------------------------------------
Ambrosia's Profile: http://www.excelforum.com/member.php...o&userid=28146
View this thread: http://www.excelforum.com/showthread...hreadid=524664