MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub BulletReplacement () Dim para As Paragraph Dim astrWords() As String 'Return array containing paras not to search astrWords = getRecognisedBulletedStyleNames For Each para In activedocument.Paragraphs ‘HELP HERE if style name contains the word “bullet” or “Bullet” but is NOT one of the astrWords If InStr(para.Style, "bullet") <> 0 Then para.Style = "List Bullet" End If Next para End Sub Function getRecognisedBulletedStyleNames() As Variant Dim strArray(0 To 6) As String strArray(0) = "List Bullet" strArray(1) = "List Bullet 2" strArray(2) = "List Bullet 3" strArray(3) = "Table Text Bulleted 1" strArray(4) = "Table Text Bulleted 2" strArray(5) = "Table Text Bulleted 3" strArray(6) = "Pull Out Box Bullet" ‘this real list is quite long getRecognisedBulletedStyleNames = strArray End Function
|Automatic Email Reminder||4||58|
|Changing the position of page numbers in a document already paginated||7||27|
|Powerpoint 2013: Change cell reference in excel link||3||83|
|MIcrosoft Word 2016, table goes to top of page and covers Header||2||29|