View Single Post
  #2  
Old 04-10-2010, 00:12
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,782
Blog Entries: 11
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 Reading Text Objects

Sure you can find the text on your page, here is a very simple example of finding the text on your page and returning each shape as a message box.
Code:
Sub FindText()
    Dim s As Shape
    
    For Each s In ActivePage.FindShapes(, cdrTextShape)
        MsgBox s.Text.Story
    Next s
End Sub
-Shelby
Reply With Quote