I have a document with many pages. I just was told one of the fonts used for a particular drawing was incorrect. I don't know why it was the wrong font since I never heard of the typeface and I didn't make it that way. Anyway, when I select type statistics or collect for output Corel still sees that font used somewhere in the document. Is there a way to search all of the pages without selecting every single to find where this font is used? Thanks.
Try this macro. Just plug in the font you're after and the new font see bold italic areas below.BTW What happened to the ability to color text on this forum?Sub ReplaceFont() Dim p As Page, s As Shape, sr As ShapeRange Dim i&, f$, fNew$ f = "Arial" 'your font to find fNew = "Arial Black" 'new font i = ActivePage.Index For Each p In ActiveDocument.Pages p.Activate Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic' and @com.text.story.font = '" & f & "'") For Each s In sr s.text.Story.Font = fNew Next s Next p ActiveDocument.Pages(i).Activate End Sub
Works great! What if I wanted it to stop after finding the first instance?