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)"
ActiveDocument.SaveAs "C:\Users\Myron\Desktop\" + "CURVES" + Name, SaveOptions
Is this what you mean?
look for the area below and just type your directory in place of where it says PATH. It's down toward the bottom almost at the very end.