zhgx998 发表于 2019-6-1 21:42:52

CDR GMS 源码分享 免币 查找特定字体并转曲 文本转曲

Sub FontToCurves()    Dim sr As ShapeRange    Dim strFontName As String    strFontName = "Arial"      For Each p In ActiveDocument.Pages      Set sr = p.Shapes.FindShapes(Query:="@type ='text:artistic' or @type ='text:paragraph' and @com.text.story.font = '" & strFontName & "'")      sr.ConvertToCurves    Next pEnd Sub



国外大神的思路，特别分享出来。估计有的朋友会用到。 要指定字体时将上面的 的对应 信息更改下就好。如果常用，可以做出界面来。

石榴 发表于 2019-6-2 08:37:30

支持支持，顶下先，

阳光光 发表于 2019-6-13 21:48:56

不会用怎么用。。。。。。。。。。
页: [1]
查看完整版本: CDR GMS 源码分享 免币 查找特定字体并转曲 文本转曲