OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   Macros/Add-ons (http://forum.oberonplace.com/forumdisplay.php?f=21)
-   -   macro collect for output (fonts) (http://forum.oberonplace.com/showthread.php?t=7546)

buga 15-02-2011 14:25

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

buga 18-02-2011 03:00

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

buga 18-02-2011 03:22

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

runflacruiser 18-02-2011 07:14

Hi.
Would this macro work for you.

GDG Doc Font Lister


-John

buga 18-02-2011 09:26

many thanks for the link. It has been very useful

Greetings

bye

runflacruiser 18-02-2011 09:32

Hi.
Glad you liked it.
Thanks.
-John


All times are GMT -5. The time now is 03:11.

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