|
|
#4
08-01-2016, 06:29 PM
|
||||
|
||||
Are you wanting to apply the colour to any paragraph that begins with a tab? If so, you could try this...
Code:
Sub ColourTabParas()
Dim aPara As Paragraph
For Each aPara In ActiveDocument.Paragraphs
If Left(aPara.Range.Text, 1) = vbTab Then aPara.Range.Font.ColorIndex = wdBlue
Next aPara
End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Macro Needed to delete Unwanted paragraphs within a table. | frustrated teacher | Word VBA | 0 | 06-05-2015 12:47 PM |
 Macro to Insert text into the beginning on specific paragraphs unless the paragraph is blank
|
caboy | Word VBA | 2 | 04-01-2015 07:00 AM |
| Want indents in outline to display indented | overdog | Word | 3 | 07-13-2014 05:54 AM |
|
Macro Needed to delete Unwanted paragraphs in series
|
frustrated teacher | Word VBA | 1 | 05-02-2014 03:32 PM |
|
Eliminate paragraph breaks
|
geobruin | Word | 1 | 06-12-2009 06:55 AM |
Windows 10 
Office 2013
Threaded Mode