Corel FORUM

[seb]

cześć,

jak w temacie,
czy jest funkcja, skrót, przycisk, który zaznacza tylko tekt? lub zamienia tekty wszelkie w krzywe?

pozdrawiam

[roland]

Wybierz z górnego menu Edycja > Zaznacz wszystko > Tekst. Teraz możesz zamienić na krzywe tylko tekst

[seb]

noc dłubania, ale na przyszłość jak znalazł :) dziękuję.

[chezare]

Noc dłubania jak się nie szuka odpowiedzi
To makro zamienia wszystkie teksty w dokumencie na krzywe

Sub curve()
Dim s As Shape
Dim how As Integer
Dim page As Integer
page = ActiveDocument.Pages.Count
For how = 1 To page
For Each s In ActiveDocument.Pages(how).FindShapes(cdrShape)
s.CreateSelection
ActiveSelection.ConvertToCurves
Next s
Next how
End Sub

[Struna]

Mogę też dodać, że makro zamienia na krzywe także teksty, które są zgrupowane z innymi elementami. Polecenie 'znajdź wszystkie teksty' zaznacza tylko te, które są 'luźne' - przynajmniej u mnie ;)