OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 15-02-2011, 14:25
buga buga is offline
Senior Member
 
Join Date: Jan 2011
Posts: 114
Default macro collect for output (fonts)

Hello that such

You see, I usually do a task often corel, collect for output.
I only do it, to collect all the fonts in the document as security, but I do not always work properly.

One could make a macro to do this? collect only the sources in the same document folder?

thanks in advance
Reply With Quote
  #2  
Old 18-02-2011, 03:00
buga buga is offline
Senior Member
 
Join Date: Jan 2011
Posts: 114
Default

I looked for information about the issue and I think you can not do what I ask.

But I found a macro that I'm interested, but its made in corel 12 (not works in x5)

Someone would be so kind to help me correct it please?


Code:
Sub ProcessAllObjects()
    FindFontNames ActivePage.Shapes, FontCollection
    MsgBox FontCollection
End Sub

Public Sub FindFontNames(ss As Shapes, FontCollection)

Dim s As Shape
For Each s In ss
    If s.Type = cdrGroupShape Then
        FindFontNames s.Shapes, FontCollection
    Else
        If s.Type = cdrTextShape Then
            FontCollection = FontCollection & " " & s.Text.FontProperties.Name & Chr(13)
        End If
    End If
Next s
End Sub

thanks in advance

Greetings
Reply With Quote
  #3  
Old 18-02-2011, 03:22
buga buga is offline
Senior Member
 
Join Date: Jan 2011
Posts: 114
Default

Sorry, the macro if it works, the problem is that only works on the current page, and if the active page, not have fonts, the MsgBox appears empty.

How could it work on all pages at once?

Can someone please help me?

thanks
Reply With Quote
  #4  
Old 18-02-2011, 07:14
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Would this macro work for you.

GDG Doc Font Lister


-John
Reply With Quote
  #5  
Old 18-02-2011, 09:26
buga buga is offline
Senior Member
 
Join Date: Jan 2011
Posts: 114
Default

many thanks for the link. It has been very useful

Greetings

bye
Reply With Quote
  #6  
Old 18-02-2011, 09:32
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Glad you liked it.
Thanks.
-John
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Install fonts on the fly ddonnahoe CorelDRAW/Corel DESIGNER VBA 6 08-09-2008 16:47
CorelDraw 12 Colour output issue stilllife General 1 07-08-2007 16:34
Importing fonts Colt45er General 1 18-05-2007 08:13
Corel Designer10 output to plotter zentoad General 1 29-05-2006 21:38
Fonts and kerning meandirtyjoe General 2 24-12-2005 13:25


All times are GMT -5. The time now is 00:46.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com