|
|
fixMacFonts
> I have a problem where I used geneva font on my mac to author and then I
>ported it over to the PC and converted everything in the way of fonts to
>Arial. No matter what I do . The pc (windows) side still says it is missing
>the font geneva.
-- kleine Erleichterung mit Mac-Fonts auf Win unter d7
on fixMacFonts
-- Texte mit MacFonts werden auf "Arial" gebuegelt
LmacFonts = ["Geneva","Monaco","Wonton ICG","Bookshelf symbol 2"]
maxLib = the number of castLibs
repeat with dLib = 1 to maxLib
von=1
bis=the number of members of castlib dLib
repeat with dMemberNum=von to bis
dMember=member dMemberNum of CastLib dLib
if (the type of dMember <> #Text) AND \
(the type of dMember <> #field) \
then next repeat
dFont = member(dMember).font
-- nur Mac-schriften
if not (LmacFonts.getpos(dFont)) then
put "Text mit nicht selektiertem Font: " \
&& string(dMember) & dfont
next repeat
end if
member(dMember).Font = "Arial"
put "Text umgewandelt: " && dMember
end repeat
end repeat
end
best regards
daniel plaenitz
|
