Прехвърляне към съдържание


Снимка

LibreOffice - Работа с офис пакет - макроси; програмиране

макроси макроси; програмиране Работа с офис пакет LibreOffice Libre Office Libre-Office

  • Моля, влезте, за да отговорите
3 отговора по тази тема

#1 Lautrec

Lautrec

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 18 мнения

Публикувано: 15 November 2017 - 00:12

Здравейте,

 

Интересува ме има ли начин с LibreOffice да създам макрос който да използвам когато пожелая за всеки документ за когото поискам.

Например записвам предварително настройки на параграф, шрифт, размер на текст и т.н., след което с един клик (примерно) всеки документ (или страница) се форматира по предварително зададени критерии.

Или ако не става с макрос може би някакво програмиране към офис програмата.

 

Аз ползвам freeOffice_2016, но тази програма не е подходяща за такова начинание. Все още не съм инсталирал LibreOffice.

Искам да съм сигурен, че има смисъл да го правя, а и не съм създавал макроси, нито програма с такава цел. В документацията прочетох, че предлага такива възможности, но не ми стана много ясно кое би работило за мен.

 

 



#2 Lautrec

Lautrec

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 18 мнения

Публикувано: 15 November 2017 - 15:34

Извинявам се, но чак сега забелязах, че темата е в грешния раздел. Ако може да бъде преместена в раздел

"Ръководства за работа с програми".

 

Дублиране на една и съща тема в два различни раздела, май не е допустимо.

 

Благодаря!



#3 Night_Raven

Night_Raven

    Subject Delta

  • Администратори
  • ПипПипПипПипПипПип
  • 22602 мнения
  • Пол:Мъж
  • Живущ в:Rapture (Русе)

Публикувано: 15 November 2017 - 19:12

Тъй като текущата тема не е сама по себе си ръководство, а всъщност се търси помощ, текущият раздел най-удачният. Няма нужда от преместване.

 

По самата тема: за жалост нито използвам LibreOffice, нито съм се занимавал с подобни скриптове, така че не мога да помогна.


Love is just a chemical, no matter the origin. We give it meaning by choice.
 


- Eleanor Lamb (BioShock 2)


#4 Lautrec

Lautrec

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 18 мнения

Публикувано: 21 November 2017 - 20:12

Най-сетне решение на задачата.

sub changeallpagesizesusedindocument
rem Portrait Sizes:
newpagesizeWidth = 21590      'стойност за широчина на страницата
newpagesizeHeight = 32995     'стойност за височина на страницата
newTopMargin = 1200           'отстояние горе
newBottomMargin = 1200        'отстояние долу
newLeftMargin = 1000          'отстояние ляво
newRightMargin = 1000         'отстояние дясно


oViewCursor = ThisComponent.CurrentController.getViewCursor()
oViewCursor.jumptofirstpage(false)

do
s = oViewCursor.PageStyleName
oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(s)
if oStyle.IsLandscape=True then   'this is for Landscape, the margins as if we rotated portrait 90°right, change as you like
oStyle.Width = newpagesizeHeight
oStyle.Height = newpagesizeWidth
oStyle.TopMargin = newLeftMargin
oStyle.BottomMargin = newRightMargin
oStyle.LeftMargin = newBottomMargin
oStyle.RightMargin = newTopMargin
else    'this is for portrait
oStyle.Width = newpagesizeWidth
oStyle.Height = newpagesizeHeight
oStyle.TopMargin = newTopMargin
oStyle.BottomMargin = newBottomMargin
oStyle.LeftMargin = newLeftMargin
oStyle.RightMargin = newRightMargin
end if

loop while oViewCursor.jumptonextpage(false)
oViewCursor.jumptofirstpage(false)

End Sub

На мен ми беше необходимо форматиране А5 с L, R, T, B = 0,8 см.

Може би ще ще бъде от полза и за другиго.

 

За мен темата е затворена.






0 потребители четат тази тема

0 регистрирани потребители, 0 гости и 0 анонимни потребители