Word - jak zmenit globalne velikost pisem? - castecene vyreseno

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.

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

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.

Citace:

---

Původně odeslal 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.

---

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 :)

Citace:

---

Původně odeslal MadCap

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" :-)

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 ;)

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...

Kód:

---

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

---

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

Kód:

---

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 ;) )