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