CorelDRAW VBA - 实现段落文本的HTML兼容 Text.MakeHTMLCompatible

美术字文本不能转换为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

标签：段落,MakeHTMLCompatible,VBA,CorelDRAW,Text,兼容,HTML,文本
来源： https://blog.csdn.net/u013955940/article/details/112172591