Re: ConvertToCurves

Написал Alex_DRUMMER в 27/09/2007 14:08:00

Самый простой скрипт для перевода всего векторного в кривые

Sub ()
For i = 1 To n
ActivePage.Shapes.All.ConvertToCurves
ActiveDocument.Pages(i).Shapes.All.ConvertToCurves
Next i
End Sub

Вбиваем вместо n количество страниц и всего делов. К сожалению в пауэрклипах не курвит.