i'm looking for code to remove all bullet point/numbering from a text into a table..
i have do with code both not work well
Code: Select all
Sub RemoveBulletsAndListBumbers()
Dim objParagraph As Paragraph
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objParagraph In objDoc.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
objParagraph.Range.ListFormat.RemoveNumbers
End If
Next objParagraph
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
thank in advance
susant