Grafika.cz - vše o počítačové grafice

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

Nabídka práce
Poptávka práce
Soutěž

Sponzorem soutěže je:

IDIF

 

Kde se koná výstava fotografií Luďka Vojtěchovského?

V dnešní soutěži hrajeme o:



Změna formátu textu makrem

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Zmena formatu textu makrem

Autor: pp21

16:20:54 16.09.2011

Moc hezký, díky!

Jen se to bohužel dá koupit akorát za ruble :) V každym případě už jsem to
mezitím vyřešil. Nechal jsem se inspirovat tímto:
http://coreldraw.com/forums/t/28607.aspx

Což jsem si modifikoval tak, že v označených textových objektech od "(" po
")" změní text na italic velikosti 6,8 pt. Kdyby se to někomu hodilo, zde je
to makro:

Sub formatujZavorky()
Dim s As Shape, t As TextRange, sr As ShapeRange, myFlag As Boolean
Dim i&, j&
myFlag = False
Set sr = ActiveSelection.Shapes.FindShapes(, cdrTextShape)
For Each s In sr
For i = 1 To s.Text.Story.Characters.Count
Set t = s.Text.Story.Characters(i)
If t = "(" Then myFlag = True
If myFlag Then
t.Italic = True
t.Size = 6.8
End If
If t = ")" Then myFlag = False
Next i
Next s
End Sub

-pp-


Příspěvek zaslán emailem

Citovat příspěvek

 

Re: Změna formátu textu makrem

Autor: rap

16:06:17 16.09.2011

Našel jsem tohle makro [url]http://cdrpro.ru/news/2009-08-19-156[/url]. Není ovšem zdarma.
Radek

Citovat příspěvek

 

Změna formátu textu makrem

Autor: pp21

13:50:46 16.09.2011

Zdravím, mám to menší problém.

Potřeboval bych v rozsáhlém odstavcovém textu (cca 1500 řádků) změnit velikost některých částí textu na určitou velikost.
Části textu, které chci měnit jsou vždy uzavřeny v obyčejných závorkách (). Žádný jiný text v závorkách není.

Příklad (paragraph text 10 pt):
Lorem ipsum dolor (sit amet), consectetur adipiscing elit. Nam congue (hendrerit) est a eleifend.

No a slova co jsou v závorkách bych chtěl naformátovat na velikost 8 pt.

Předpokládám, že nic jinýho než makro nezabere, ale nějak mě nenapadá, jak ho napsat. Tušíte někdo? Jo a jde mi o X5.

PS: Ručně se mi to dělat nechce ;o)

Koukám že tohle makro by na to asi šlo nějak použít, jen se mi to nedaří :(


-pp-

Příspěvek zaslán emailem

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: