beblock - 15 Grudzień 2010, 10:00 Temat postu: krzywe ? Witam Was zapewne powtarzam temat , ale............. ma projekt 13 stron, jak "zakrzywić" wszystkie fonty jednym kliknięciem :) ? (nie edytując poszczególnych stron) pozdrawiam miszcz301 - 15 Grudzień 2010, 10:03 Edycja --> zaznacz wszystko --> tekst Rozmieszczeni --> przekształć w krzywe beblock - 15 Grudzień 2010, 10:09 TO JEST JAK NAJBARDZIEJ OK ALE ZAKRZYWIA TYLKO I WYŁĄCZNIE FONTY NA OTWARTEJ KARCIE ?! wawel - 15 Grudzień 2010, 10:14 Uzyj tego: 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 lub tego jesli chcesz zakrzywic jeden konkretny font Tam gdzie Arial wpisujesz nazwe czcionki. Sub curvesonefont() 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(, cdrTextShape) If s.Text.Story.Font = "Arial" Then s.CreateSelection ActiveSelection.ConvertToCurves End If Next s Next how End Sub beblock - 15 Grudzień 2010, 10:21 No WAWEL tera to mi dałeś heheh fajnie wygląda.... kołata mi się po głowie co mogę z tym zrobić, ale wolę abyś mi pomógł opisz proszę co i jak - dzięki wawel - 15 Grudzień 2010, 10:36 to sa makra ktore trzeba wrzucic w wlasciwe miejsce a potem je uruchomic jedno bedzie mialo nazwe curve a drugie curvesonefont, nazwy mozesz sobie zmienic wpisujac dowolna nazwe w miejsce tych slow. Mozna tez przypisac przycisk dla tych polecen i wyciagnac na pasek, ale to juz tu kiedys opisywalem. Makro mozna dokleic do jakiegos innego i bedzie sie pokazywac i tak pod swoja nazwa. Narzedzia - visual basic - uruchom - macros in - all standard projects wybierasz jakies gotowe dajesz edit i wklejasz powinno zostac odkreslone od poprzedzajacego linia zamykasz okno alt q i potem juz tylko uruchamiasz. Narzedzia - visual basic - uruchom - run beblock - 15 Grudzień 2010, 10:52 Wiedziałem, że uzyskam pomoc, świetne makro wielkie dziękuje & pozdrawiam - temat zamknięty- :) |
