seb - 6 Listopad 2010, 03:24 Temat postu: hurtowo wszyskie teksty zamień w krzywe - jak? cześć, jak w temacie, czy jest funkcja, skrót, przycisk, który zaznacza tylko tekt? lub zamienia tekty wszelkie w krzywe? pozdrawiam roland - 6 Listopad 2010, 06:48 Wybierz z górnego menu Edycja > Zaznacz wszystko > Tekst. Teraz możesz zamienić na krzywe tylko tekst seb - 6 Listopad 2010, 07:13 noc dłubania, ale na przyszłość jak znalazł :) dziękuję. chezare - 24 Grudzień 2010, 22:24 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 - 25 Grudzień 2010, 09:37 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 ;) |
