View Single Post
Old 19-01-2011, 15:37
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Cql

Since we are not passing anything, the () would be optional. You could rewrite like this:
Sub MyTableTextColorChanger()
    Dim s As Shape, sr As ShapeRange
    Set sr = ActivePage.Shapes.FindShapes(Query:="@type='plugin:table' and (@com.ParentGroup = null or @com.ParentGroup.Type <> 21)") 'Return just the tables
    Set sr = sr.Shapes.FindShapes(Query:="@type='text:paragraph' and !@com.Text.Story.Text.Trim.empty") 'Find all text
    sr.ApplyUniformFill CreateRGBColor(255, 0, 0)
End Sub

Last edited by shelbym; 19-01-2011 at 15:38. Reason: pasted the wrong code
Reply With Quote