Replace embedded fonts in text/field and button members

 

Compatibilities:

This item has not yet been rated

Go through and replace embedded fonts with installed fonts in your texts, fields, and built-in director buttons (includes radios and checkboxes too) with this script. It looks for the RTF of a text member or goes through a field/button member character by character (usually these members contain a good deal less text than a text member does).

-- place in a moviescript on replaceEmbeddedFont(embeddedFont, replacedFont) theCount = embeddedFont.char.count castCount = the number of castLibs repeat with j = 1 to castCount memCount = the number of members of castlib j repeat with k = 1 to memCount Case member(k, j).type of #text: theRTF = member(k,j).rtf theOffset = offset(embeddedFont, theRTF) theEnd = theOffset + theCount if theOffset > 0 then put replacedFont into char theOffset to theEnd of theRTF member(k,j).rtf = theRTF member(k,j).text = member(k,j).char[1.. member(k, j).char.count - 1] end if #field, #button: charCount = member(k,j).char.count theStart = 0 repeat with l = 1 to charCount if member(k,j).char[l].font = embeddedFont and theStart = 0 then theStart = l if member(k,j).char[l].font = embeddedFont and theStart > 0 then theEnd = l if theStart > 0 and theEnd > 0 and member(k,j).char[l].font <> embeddedFont then member(k,j).char[theStart..theEnd].font = replacedFont theStart = 0 theEnd = 0 end if end repeat end Case end repeat end repeat end -- To use: -- from the message window -- replaceEmbeddedFont("Arial *", "Arial")

Upload Provided by ABCUpload ASP