VBA:Remove All Bullet Point From Text Onto Table

[Susanto3311]

hi all.

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

here my attatchment document
thank in advance

susant

[HansV]

Change

Code: Select all

    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then

to

Code: Select all

    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then

Note: please use [code] and [/code] tags instead of [quote] and [/quote] tags for code.

[Susanto3311]

hi hans, i'm sorry..
thank you very much. working well!!