Hi Everyone,
I've seen macros that will convert all text within a document to curves, but is there one that will save the current file WITH fonts intact PLUS save a duplicate file at the same time with all text in the document converted to curves?
So essentially, you'll have 2 files saved. One with fonts and one with all fonts in document converted to curves.
Is that even possible?
Thanks!
Jason
inkmachine said:So essentially, you'll have 2 files saved. One with fonts and one with all fonts in document converted to curves. Is that even possible?
This is the error message I get when running the macro in CorelDraw X7
Hey Myron & Shelby!
I am still getting an error when running the macro.
Here's a screenshot again for you to see.
Did I add the new code in the proper place to the previous code?
Thanks for your help!!
Here is the entire thing.
Public Sub ConvertALLTextToCurves()
ActiveDocument.BeginCommandGroup
Dim p As Page
For Each p In ActiveDocument.Pages
ConvertShapes p.Shapes
Next p
ActiveDocument.EndCommandGroup
End Sub
Private Sub ConvertShapes(ss As Shapes)
Dim s As Shape
For Each s In ss
Select Case s.Type
Case cdrTextShape
ConvertShapeCurves s
Case cdrGroupShape
ConvertShapes s.Shapes
End Select
On Error Resume Next
If Not s.PowerClip Is Nothing Then
ConvertShapes s.PowerClip.Shapes
End If
Next s
Private Sub ConvertShapeCurves(s As Shape)
Dim strName As String
strName = s.Text.FontProperties.Name & " (size: " & s.Text.FontProperties.Size & " pt)"
s.ConvertToCurves
s.Name = strName
Sub ConvertSaveCopy() 'Run this macro
Dim Path As String
Dim Name As String
Path = ActiveDocument.FilePath
Name = ActiveDocument.FileName
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.Version = cdrVersion17
End With
ActiveDocument.SaveAs Path + "CURVES" + Name, SaveOptions
SendKeys "^(s)"