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