View Single Post
Old 03-09-2021, 20:57
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 Replace Part Text of Text Shape

You can use the Text.Replace for this. Here is quick example from the API Documentation:
Sub Test()
  Dim s As Shape
  For Each s In ActivePage.FindShapes(, cdrTextShape)
    s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True
  Next s
End Sub
Happy Coding,

Reply With Quote