Pokud jsou v dokumentu DŮSLEDNĚ
použty odstavcové nebo znakové styly pak můžete
zkusit (bez záruky) tohle makro:
' ****************************************************
Sub ZmenVelikostPismaVsechStylu
Dim oFamilies As Object, oStyle As Object, oStyles As Object
dim n%, k#, tmp$
tmp=inputbox("Zadejte koeficient zvětšení písma pro VŠECHNY styly v
dokumentu."+chr(13)+_
"Pozor, provedené změny možná nepůjde vrátit funkcí ZPĚT!","Změna
výšky písma všech stylů:","1.00")
if (tmp="") then
exit sub
end if
if 6 <> msgbox("Opravdu chcete zvětšit písma všech stylů "+cstr(val(tmp))+"x
?",4,"Potvrzení") then
exit sub
end if
k = val(tmp)
oFamilies = ThisComponent.StyleFamilies
oStyles = oFamilies.getByName("ParagraphStyles") ' odstavcove styly
for n = 0 to oStyles.count-1
oStyle=oStyles.getByIndex(n)
if oStyle.getPropertyState("CharHeight")=0 then 'zmenit pouze pozmenene
velikosti
if oStyle.CharPropHeight=100 then ' mimo upravenych procentualne - ty
zavisi na rodicich
oStyle.CharHeight = oStyle.CharHeight*k
end if
end if
next n
oStyle=oStyles.getByName("Standard")
if oStyle.getPropertyState("CharHeight")=1 then 'zmenit korenovy styl
oStyle.CharHeight = oStyle.CharHeight*k
end if
oStyles = oFamilies.getByName("CharacterStyles") ' znakove styly
for n = 0 to oStyles.count-1
oStyle=oStyles.getByIndex(n)
oStyle.CharHeight = oStyle.CharHeight*k
next n
End Sub
' ****************************************************
Pokud jsou tam ale "ruční" změny velikosti písma tak ty zůstanou beze změn.
Tom B.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
