Find all text and apply text style

Hi,

Is there any Visual Basic code so I can select all the text in CorelDRAW 12 and apply the Default Artistic Text style to it? I then want to select all text and do Revert to Style.



Many thanks,

[Alex]

Ok, here is how you do it:

Sub ResetStyles()
    Dim sText As Shape
    For Each sText In ActivePage.SelectableShapes.FindShapes(Type:=cdrTextShape)
        If sText.Text.Type = cdrArtisticText Or sText.Text.Type = cdrArtisticFittedText Then
            sText.ApplyStyle "CorelDefaultID_5006" ' Default Artistic Text style
            sText.CreateSelection
            CorelScript.RevertToStyle
        End If
    Next sText
End Sub

Style support in VBA isn't very good, so all kinds of work arounds must be employed to make it work

Thanks Alex