Macro: Save current file PLUS save a duplicate file with all text converted to curves?

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

Jeff Harrison over 8 years ago

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?
I think you know that it is. [;)] But it can get more granular, such as choosing where files are saved. Same folder? different folder?
Cancel
Up 0 Down

Reply

Cancel
inkmachine over 8 years ago in reply to Jeff Harrison

lol =)

Preferably the curves file saved in a different folder
Cancel
Up 0 Down

Reply

Cancel
inkmachine over 8 years ago in reply to inkmachine

No suggestions anyone?
Cancel
Up 0 Down

Reply

Cancel
Myron over 8 years ago in reply to inkmachine

Give this one a try. Don't know about X4 but it works in X7. Currently saves to the same place as the file you have open and just adds an X to the name. You'll have to modify the path/name a bit.
Cancel
Up 0 Down

Reply

Cancel
Myron over 8 years ago in reply to Myron

oops.

Sub ConvertSaveCopy()

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 + "X" + Name, SaveOptions
SendKeys "^(s)"
Dim p As Page

For Each p In ActiveDocument.Pages
ConvertShapes p.Shapes
Next p

End Sub
Cancel
Up 0 Down

Reply

Cancel