Hi i am looking for a macro that can find a specific font being used on which page of my document. Please help
anyone else can help me finding font in powerclip and outside of the powerclip both and also provide me font list page wise of entire document?
Let me be sure that I understood what you mean: You need to also find such text boxes containing a specific font inside of powerclip shapes (groups, maybe...) and make the code return a list for each processed page to contain some data about shapes containing the searched font. What "some data" should mean? Total number of such shapes, their name, their coordinates, if belongs to a powerclip/group etc.? Then, it is obvious that the above code returns the shapes having the same font in all their `story` property... Not only some characters. It is possible to find them in such a case, too, but the speed of the code run will be tremendously decreased and all the code logic must be changed. It should iterate between each shape characters.
So, how do you see that list, in order to be useful for your need? I mean, what characteristics to contain, in order to be useful.
How to identify the matching shapes? In the same way, using that yellow rectangle, or having the list it should not be necessary, anymore?
Lets make it simple.
1. simple text list for all pages where the font is not curved whether if it is powerclip or not, grouped or not.
2. Find a font on active page (powercliped or not, grouped or not).
Then i will check the symmetry of the design if every thing is ok then i will proceed for printing
I am afraid you din not clarify anything... How should you identify the shapes with the searched font? I asked clearly about this issue. Should the code use the same yellow rectangle? Should the code name them in a specific way, let us say "Font Arial shape"? Do you want using/excluding only them after that? Which is your goal after these shapes identification/marking? Or, I do not want knowing that, but you must need identifying them in a way, I think. Am I wrong? Am I missing something?
People send me files for printing. Sometime i have to change the font because of the unavailbility of the font in my computer. Purpose is to check the symmetry of the fonts i used on clients design is ok or not.
To Identify i prefer the selection function on current page just like corel find and replace option do or anything i dont mind. I just want to check the symmetry before sending files for printing. And i want list of the pages in 1 paragraph where uncurved fonts are available. For example
Page 11 - arial font
Page 63 - times new roman, ocean sans font
Page 104 - alex brush, times new roman font
1 more thing i use corel x5.
This is something else than the code to be adapted only for searching inside powerclips. The previous code philosophy was to select a text box like font reference and then search that font in all existing pages. Now, you want searching all existing fonts in the document and make statistics per page. It is possible, I would be able to do it, but it is something else than you requested and it would be good to better learn VBA and do it by yourself. I offered my help on the issue you raised, but we here are not a free code writing service, sorry...