[hicetea]

https://www.cnprint.org/bbs/showthread.php?t=7531

'以下为源代码,功能按钮已加到前2天发的拼版宏中
Sub 文字转曲()

Dim sr1 As ShapeRange
Dim f, i, g
g = 0
f = ActiveDocument.Pages.Count
For i = 1 To f
ActiveDocument.Pages(i).Activate
Set sr1 = ActivePage.FindShapes(Type:=6)
sr1.ConvertToCurves
g = g + sr1.Count
Next i
If sr1.Count <> 0 Then
MsgBox "共找到" + Str(g) + "个文本对象,并转曲"
Else
MsgBox "没有找到文本对象"
End If
End Sub