a stačilo tak málo ;o)
]]>sub uvozovky
vybery = ThisComponent.getCurrentController().getSelection()
for i = 0 to vybery.getCount()-1
vyber = vybery.getByIndex(i)
kde = vyber.getText()
kursor_zacatek = kde.createTextCursorByRange(vyber.getStart())
kursor_konec = kde.createTextCursorByRange(vyber.getEnd())
dalsi = true
do while (kde.compareRegionEnds(kursor_zacatek, kursor_konec)>=0) and dalsi
with kursor_zacatek
.gotoStartOfParagraph(false)
.string = "„"
.gotoEndOfParagraph(false)
.string = """
dalsi = .gotoNextParagraph(false)
end with
loop
next i
end sub
Inak nechápem význam takejto práce, pretože manželka píše romány a vkladanie úvodzoviek v priamej reči jej absolútne nerobí problémy priamo počas písania (tento rok jej vyšiel tretí román)...
]]>když je označen i poslední odstavec, lépe řečeno je označen i poslední znak dokumentu, spustí se nekonečná smyčka přidávání uvozovek.
stačí mít za označeným textem prázdný odstavec, nebo jakýkoliv znak a makro proběhne korektně. Poslední řádek také nemusíte označovat celý, stačí mít označen pouze jeho začátek.
Bude třeba do makra přidat ještě test, zda se nacházíme na konci dokumentu, a pak makro stopnout, ale zatím nevím jak na to.
;o)
]]>sub uvozovky
vybery = ThisComponent.getCurrentController().getSelection()
for i = 0 to vybery.getCount()-1
vyber = vybery.getByIndex(i)
kde = vyber.getText()
kursor_zacatek = kde.createTextCursorByRange(vyber.getStart())
kursor_konec = kde.createTextCursorByRange(vyber.getEnd())
do while kde.compareRegionEnds(kursor_zacatek, kursor_konec)>=0
with kursor_zacatek
.gotoStartOfParagraph(false)
.string = "„"
.gotoEndOfParagraph(false)
.string = """
.gotoNextParagraph(false)
end with
loop
next i
end sub
Makro přidá uvozovky na začátky a konce všech označených odstavců. Stačí si makro uložit a spustit po označení potřebných odstavců.
Makro si přiřaďte třeba ke klávesové zkratce, nebo přidejte do nástrojových lišt....
Snad bude k užitku
;o)
]]>To, že tento požadavek styly nezvládají, vím, právě proto hledám řešení). Umí to textové prográmky pro spisovatele (mají kolonku Přímá řeč ve stylech. Ty dokonce umí přidat uvozovky i mezi dolepky - dle diakritických znamének a následujících maých písmen apod. Ale já je nemám ráda, protože mají zase spousty jiných omezení.
Na začátek bych uvozovky i dostala s pomocí fce seznamu, ale na konec odstavce ne. Dá se takto vůbec něco přidávat? Lze to ve Writeru?
]]>to si nedovedu dost dobře představit. Podle čeho by měl program poznat, kdy se jedná o přímou řeč a kdy o ostatní text?
Navíc styly nepřidávají znaky, pouze mění formát stávajících znaků, odstavců....
;o)
]]>