| Name | Type | Description |
|---|---|---|
| Text |
String
|
|
| CaseSensitive |
Boolean
|
Sub Test()
Dim s As Shape
ActiveLayer.CreateArtisticText 0, 0, "Text1"
ActiveLayer.CreateArtisticText 0, 3, "Some Sentence."
ActiveLayer.CreateArtisticText 0, 5, "Word"
Set s = ActivePage.TextFind("Sentence", True)
If Not s Is Nothing Then
s.Fill.UniformColor.RGBAssign 255, 0, 0
End If
End Sub