font killer - macro?

signcoartdtp
over 9 years ago

Is there such a macro that searches for a particular font in a document and converts it to curves?

Parents
  • 0 over 9 years ago

    Something like this should do work:

    Sub FontToCurves()
    Dim sr As ShapeRange
    Dim strFontName As String

    strFontName = "Arial"
    
    For Each p In ActiveDocument.Pages
        Set sr = p.Shapes.FindShapes(Query:="@type ='text:artistic' or @type ='text:paragraph' and @com.text.story.font = '" & strFontName & "'")
        sr.ConvertToCurves
    Next p
End Sub

    Hope that helps,

    -Shelby

Reply Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.