![]() |
#3
|
|||
|
|||
![]() Quote:
Hi, If you want to change the text with only one color, then please try with following code: Sub Macro1() Dim oshlp As Shape ActiveWindow.Selection.ShapeRange.TextFrame.TextRa nge.Select ActiveWindow.Selection.TextRange.Font.Color.Scheme Color = ppAccent2 ActiveWindow.Selection.TextRange.Font.Color.Scheme Color = ppAccent2 ActiveWindow.Selection.TextRange.Font.Color.Scheme Color = ppAccent2 End Sub Regards, Manoj |
Thread Tools | |
Display Modes | |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Adding bullets in a protected Word document | Cindylu3 | Word | 0 | 10-03-2008 03:16 PM |
Templates: automatic text generation from Rich Text content control | Chickenmunga | Word | 0 | 10-01-2008 11:16 AM |
need help with font color | samsongee | Word | 0 | 09-07-2006 10:18 PM |
color issues when making a pdf | matt | Publisher | 0 | 03-10-2006 08:16 AM |
I want to change the Move Graphics with text default. | Renee Hendershott | Office | 0 | 01-22-2006 03:43 PM |