| Name | Type | Description |
|---|---|---|
| HTML |
Boolean
|
Sub Test() Dim s As Shape For Each s In ActivePage.FindShapes(Type:=cdrTextShape) If s.Text.Type = cdrParagraphText Then If Not s.Text.IsHTMLCompatible Then s.Text.MakeHTMLCompatible True End If Next s End Sub