Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|SQL VB connection works in one PC and doesn't in another||15||64|
|Weird line on Table of Contents||3||36|
|Converting Word to PDF - Bottom of Page is Being Cut Off||2||6|