Custom Set of Macros for document preparation

[runflacruiser]

And if you have less than x4 you'll need this little mod:

Sub ConvertParagraphText()
    Dim s As Shape, p As Page
    Dim srParagraph As ShapeRange
    
    For Each p In ActiveDocument.Pages
        Set srParagraph = p.Shapes.FindShapes(, cdrTextShape)
        For Each s In srParagraph
            On Error Resume Next
            s.Text.ConvertToArtistic
            On Error GoTo 0
        Next s
    Next p
End Sub

-John

[shelbym]

I would modify that just a bit. ;-)

Sub ConvertParagraphText()
    Dim s As Shape, p As Page
    Dim srParagraph As ShapeRange
    
    For Each p In ActiveDocument.Pages
        Set srParagraph = p.Shapes.FindShapes(, cdrTextShape)
        For Each s In srParagraph
            If s.Text.Type = cdrParagraphText Then s.Text.ConvertToArtistic
        Next s
    Next p
End Sub

-Shelby

[runflacruiser]

Just curious.
Is it ok to use errors like I did?

I am using it for powerclips on one of my macros.

-John

[runflacruiser]

ps. I was wondering what you would think of that...lol

[shelbym]

I prefer not to use On Error Resume..., because I want to know what the code is doing or in this case not doing. Especially if the code is being brought into a larger project.

-Shelby

[gorgo2]

Originally Posted by gorgo2

Good job!

Last one..
#4. save document as "new location in mydocuments folder".

I sort of know this one...but just need a little help.
I need to save the document using the 'save as' function to a specific location like MyDocuments...so this creates a copy of the document file onto my computer while leaving the one on the server alone.

um...not sure of anyone missed this

[shelbym]

In its simplest form:

ActiveDocument.SaveAs "C:\MyFolder\MyFileName.cdr"

If you want to choose thumbnail size and versions you need to add StructSaveAsOptions like this:

Sub SaveMe() 
 Dim opt As New StructSaveAsOptions 
 
 opt.EmbedICCProfile = False 
 opt.EmbedVBAProject = True 
 opt.Filter = cdrCDR 
 opt.IncludeCMXData = False 
 opt.Overwrite = True 
 opt.Range = cdrAllPages 
 opt.ThumbnailSize = cdr10KColorThumbnail 
 opt.Version = cdrCurrentVersion 

 ActiveDocument.SaveAs "C:\MyFolder\MyFileName.cdr", opt 
End Sub

Best of luck,

-Shelby

[gorgo2]

Interesting...but how would I tell this macro to insert the correct file name?...the currently open document name?
I probably don't want to edit the macro each time just to 'save as'....

-Greg

[runflacruiser]

Hi.
This one may do what you need. It's free and open source code. It already has a form and you can modify as needed.

-John

[gorgo2]

Originally Posted by runflacruiser

Hi.
This one may do what you need. It's free and open source code. It already has a form and you can modify as needed.

-John

Okay, tried the link...I'm being asked for a login and password to download....

**UPDATE: Tried link in IE and got the file and will work with this. Thanks a lot John!