Sub specialbullet()
With ActiveWindow.Selection.TextRange
For i = 1 To .Lines.Count
With .Lines(i).ParagraphFormat
..Bullet.Type = ppBulletNumbered
..Bullet.Style = ppBulletArabicParenBoth
End With
Next
End With
End Sub
John,
You rock! This was easy and clean, and impressive. Thank you.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.