Word - jak zmenit globalne velikost pisem? - castecene vyreseno

[CODE]

Potreboval bych nejkou fintu, kterou by se dalo globalne, procentualne zmensit/zvetsit velikost celeho dokumentu.

To znamen za kdyby
nadipis byl napr. 20pt
text 10pt

tak by se pri zmenseni o 50% provedlo s textem
nadipis 10pt
text 5pt

Diky za reply

off: Ten novej design fora me pripadne docela neprehledenj.

[MadCap]

pouzivaj styly a potom zmen parametre stylu, automaticky sa aplikuje na text ktory tento styl nesie ...
off: tak to mas blby

[CODE]

Styly samozrejme obcas pouzviam, ale tady se me nejedna prave o ne, ale zdali nejde proste oznacit celej text a dat zmensit o 30%... Tot vse.

[MadCap]

Styly samozrejme obcas pouzviam, ale tady se me nejedna prave o ne, ale zdali nejde proste oznacit celej text a dat zmensit o 30%... Tot vse.

mohol by si oznacit a potom tlacitkami (ktore sa daju na listu pridat) zmenstovat po bodoch, ale neni to prave orechove ... ak to nemas ostylovane, je najvyssi cas to urobi

[CODE]

mohol by si oznacit a potom tlacitkami (ktore sa daju na listu pridat) zmenstovat po bodoch, ale neni to prave orechove ... ak to nemas ostylovane, je najvyssi cas to urobi

Pochop ale, ze kdyz zkopiruju neco z www hodim to do wordu a potrebuju to rychle upravit a vytisknout, tak nepotrebuju styly! Ale jinak dik za radu, doopravdy je v panelech nastroju - format fce. ktera se jmenuje "zvětšit písmo o bod"

[MadCap]

to mas bohuzial v pripade wordu (a zrejme aj cohokolvek ineho) smolu a musi ti postacit "zvacsit o bod" co by ti malo stacit, pretoze to akurat nezohladni uplne ok rozdiely mediz nadpisom a textom

[Smitka]

A co si pomoct makrem, když už tu ta možnost je
Udělal jsem hodně jednoduchý, určitě to půjde nějak líp - projede to všechna slova o každý zvětší o požadovanej počet bodů - trvá to ale docela dlouho , VB zrovna moc neholduju...

Sub PLUS()
Dim x As Integer
Dim i As Integer
Dim kolik As Integer
kolik = InputBox("O kolik zvětšit")
x = Application.ActiveDocument.Words.Count
i = 1
While i < x + 1
Application.ActiveDocument.Words(i).Font.Size = Application.ActiveDocument.Words(i).Font.Size + kolik
i = i + 1
Wend
End Sub

[Smitka]

Případně verze s násobnym zvětšenim:

Sub KRAT()
Dim x As Integer
Dim i As Integer
Dim kolik As Double
kolik = InputBox("Kolikrát zvětšit")
x = Application.ActiveDocument.Words.Count
i = 1
While i < x + 1
Application.ActiveDocument.Words(i).Font.Size = Application.ActiveDocument.Words(i).Font.Size * kolik
i = i + 1
Wend
End Sub

Nemá to ošetřený vstupy, takže bacha na zadávání (desetinný čísla s čárkou - 0,5 )