|
|
#2
03-09-2021, 21:57
|
||||
|
||||
Replace Part Text of Text Shape
You can use the Text.Replace for this. Here is quick example from the API Documentation:
Code:
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
-Shelby 
|
 |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| font text replace macro | gorgo | CorelDRAW/Corel DESIGNER VBA | 2 | 25-06-2011 00:10 |
| Curving text within a shape (as paragraph text) | SallyS | General | 1 | 28-04-2011 23:03 |
| Find and replace text, and only changed the Scale | pithe | CorelDRAW/Corel DESIGNER VBA | 8 | 20-01-2011 15:47 |
| How selected a part of text | TheFez | CorelDRAW/Corel DESIGNER VBA | 2 | 22-05-2008 08:07 |
| Find and Replace Text with Form | RVogel | CorelDRAW/Corel DESIGNER VBA | 1 | 24-03-2005 10:37 |
Linear Mode
