![]() |
#4
|
||||
|
||||
![]()
Perhaps this is being over-thought. This works if you have selected a text box inside a Canvas
Code:
Sub Macro1() If Selection.ShapeRange.Count > 0 Then Selection.WholeStory 'needed if selection is inside textbox rather than being the textbox Selection.Font.ColorIndex = wdRed End If End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Tags |
canvas, color |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
bwhitlock | Word VBA | 1 | 08-08-2022 12:18 AM |
![]() |
jec1 | Word VBA | 2 | 12-04-2019 11:32 PM |
![]() |
donaldadams1951 | Word VBA | 6 | 05-31-2018 04:36 PM |
Canvas + textbox + group = weird ghost bug? | somads | Word | 0 | 11-25-2015 01:37 AM |
![]() |
tinfanide | Word VBA | 7 | 10-23-2012 03:13 PM |