Dobrý den, prosím zase o radu. Vkládám pomocí makra do dokumentu text, který je pořád stejný. Vytvořil jsem si pole a následně tlačítku přiřadil toto makro:
sub vloz_upozorneni
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(6) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 20
args1(1).Name = "SubType"
args1(1).Value = 1
args1(2).Name = "Name"
args1(2).Value = "upozorneni"
args1(3).Name = "Content"
args1(3).Value = "Upozornění: Požárně nebezpečný prostor zasahuje na sousední pozemek č.par. 401/4 a 401/4. V případě budoucí výstavby na cizí parcele v tomto požárně nebezpečném prostoru je nutno dodržet omezující požadavky ČSN 73 0802."
args1(4).Name = "Format"
args1(4).Value = -1
args1(5).Name = "Separator"
args1(5).Value = " "
args1(6).Name = "JustifyPara"
args1(6).Value = true
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())
end sub
Text se mi vloží, to je v pořádku, už tak je to pro mě ulehčení, že to nemusím pořád kopírovat z vedlejšího souboru. Jen bych bral, kdyby se mi to vložilo jako prostý text, který bych mohl přímo upravit. Viz ty čísla parcelní, ty jsou u každého projektu jiná samozřejmě.
V návaznosti na to, lze nějak do makra připsat, kde přesně v dokumentu se má tento text vložit? Například řádek 15?
Děkuju za pomoc.