美术字文本不能转换为HTML文本，一般会被视为位图。不过可以将其转换为段落文本，然后通过代码的方式使其与web兼容。

参考代码

Sub test()
	Dim s As Shape
	' 遍历当前页面中的每个文本对象
	For Each s In ActivePage.FindShapes(Type:=cdrTextShape)
		' 如果是段落文本
		If s.Text.Type = cdrParagraphText Then
			' 如果不是HTML兼容的，则将其改为HTML兼容
			If Not s.Text.IsHTMLCompatible Then s.Text.MakeHTMLCompatible True
		End If
	Next s
End Sub