Replacing formatted bullet points as a plain text character?

macropod · #6 02-21-2017, 03:13 PM

Before you can do anything with those particular bullets, you'll need to convert them to manual bullets - right now, they're automatic bullets. Try:

Code:

Sub ReplaceBullets()
Dim Para As Paragraph, Rng As Range
For Each Para In ActiveDocument.Range.Paragraphs
  With Para.Range
    If .Text Like "?" & vbTab & "*" Then
      Set Rng = .Duplicate
      With Rng
        .End = .Start + 2
        .Text = vbNullString
        .InsertBefore Chr(149) & vbTab
      End With
    End If
  End With
Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding bullet points to rich text control	dpashley	Word	1	09-21-2016 08:59 AM
Help With Bullet Points In Powerpoint	Phil_CF	PowerPoint	2	09-10-2016 03:12 AM
Trouble using bullet points / sub bullet points within Word 2013	Mr Davo	Word	2	04-18-2016 04:31 PM
Bullet Points in text boxes	caz46	PowerPoint	2	11-17-2013 06:18 AM
Bullet points with text?	jjmclell	Word	2	03-01-2013 11:42 AM