Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

Zamara · 22. 2. 2012 17:04:24

Ahoj, nemáte nějaký typ, jak vytvořit styl, který by mi přidával uvozovky k přímé řeči, abych je u povídek nemusela pořád psát? Strašně to zdržuje(. Nebo nějakou podobnou vychytávku. Třeba, že by to přidalo uvazovky na začátek a konec odstavce.
Předem moc děkuju.

sedlacekdan · 23. 2. 2012 09:17:36

Vítejte na fóru,

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)

Zamara · 23. 2. 2012 23:58:23

Měl by to poznat právě podle začátku a konce odstavce. Mezi jednotlivými promluvami je vždy enter. Žádné dolepky (řekl, zeptal se apod.) při psaní nepoužívám. Ty dopisuji až poté. Tak by to nemělo být snad až tak těžké(. Jedná se pouze o pasáž s čistým dialogem. Na začátku řádky uvozovky a na konci odstavce také.

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?

j-pastierik · 24. 2. 2012 06:50:24

Šlo by to makrom

sedlacekdan · 24. 2. 2012 15:01:21

Možné makro zde:

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)

sedlacekdan · 24. 2. 2012 15:57:32

Pozor,

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)

j-pastierik · 26. 2. 2012 07:05:55

to Sedlacekdan: metóda gotoNextParagraph vracia true, ak bolo možné skočiť na ďalší odsek, inak vracia false. Takže pomocou nej ošetríte nekonečný cyklus:

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)...

sedlacekdan · 27. 2. 2012 16:35:30

Děkuji, to mě nenapadlo.

a stačilo tak málo ;o)

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 22. 2. 2012 17:04:24

Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#2 23. 2. 2012 09:17:36

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#3 23. 2. 2012 23:58:23

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#4 24. 2. 2012 06:50:24

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#5 24. 2. 2012 15:01:21

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#6 24. 2. 2012 15:57:32

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#7 26. 2. 2012 07:05:55

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

#8 27. 2. 2012 16:35:30

Re: Přímá řeč - styl na přidávání uvozovek - VYŘEŠENO

Zápatí