Thread: [Solved] Macro to Replace Fonts
View Single Post
 
Old 05-10-2011, 12:30 AM
ballj_35 ballj_35 is offline Windows XP Office 2007
Novice
 
Join Date: May 2011
Posts: 9
ballj_35 is on a distinguished road
Default Macro to Replace Fonts

Everyone,

Can someone direct me to how to create a macro to convert/replace fonts in a document. I have several documents that get sent to me as Word documents. I would like to have a macro that will change all the fonts in the document to fonts that we use for another product.
For example, from "Times New Roman, 8pt, Bold" to "XTN08B" or from "Courier, 10pt, Italic" to "XCO10I". Do I need to have a table defined somewhere that has my from and to values? Then loop through the table with the from and to values going against the document replacing the font if it finds it?
The product we use has special Fonts that we use, but they are all True Type Fonts. What would be the best way to accomplish this? Was told by the users, they used a macro in Word 2003 before to do this, but they lost the macro and the one I find they tell about, does not work like they want it to. I accepted the challenge to write one for them, but I need some guidance from more experienced people.
Any assistance would be greatly appreciated. Thanx in advance.

Jerry
Reply With Quote