Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 2. 12. 2012 22:32:32

P07
Člen
Registrace: 18. 1. 2008
Příspěvků: 42

Ako Nájsť tučné písmo - VYŘEŠENO

Snažím sa zjednodušiť si zverejňovanie textu na webe ale neviem si dať rady s makrom ktoré by našlo zvýraznený text (bold) a vložilo by pred "<b>" a za "</b>". Prosím vás o radu ako tento problém vyriešiť

____________________________________

Značím jako vyřešené

;o)

Editoval sedlacekdan (6. 12. 2012 17:39:02)

Offline

#2 3. 12. 2012 07:19:26

j-pastierik
Člen
Registrace: 15. 11. 2004
Příspěvků: 761

Re: Ako Nájsť tučné písmo - VYŘEŠENO

Stiahnite si moje rozšírenie pre vytváranie znakových štýlov pre označovanie šikmého a tučného písma, tam nájdete spôsob, ako ich hľadať. Znakové štýly kurzíva, tučné

Offline

#3 3. 12. 2012 07:33:35

sedlacekdan
Moderátor
Místo Nehvizdy
Registrace: 21. 6. 2010
Příspěvků: 617

Re: Ako Nájsť tučné písmo - VYŘEŠENO

Lze to i bez makra - pomocí najít a nahradit

do Najít zadáte

.*

a do Nahradit

<b> & <\b>

.
Musíte mít zaškrtnuty Regulární výrazy a ve volbě Formát v dialogu si vyberete tučný text.


;o)


Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#4 3. 12. 2012 11:01:52

strepon
Člen
Registrace: 6. 1. 2011
Příspěvků: 155

Re: Ako Nájsť tučné písmo - VYŘEŠENO

Pokud formátujete pomocí stylů, obecnějším řešením by byl převod ODT na HTML a následná úprava pomocí XSLT šablony, ve které je vždy pro určitý styl uvedeno, jakými HTML značkami se má obalit. Počáteční vytvoření šablony je náročnější, ale pak se převádí všechno (tabulky, nadpisy, odrážky) a publikování už je bez práce.

Offline

#5 3. 12. 2012 20:07:39

sedlacekdan
Moderátor
Místo Nehvizdy
Registrace: 21. 6. 2010
Příspěvků: 617

Re: Ako Nájsť tučné písmo - VYŘEŠENO

Makrem provedení výměny tučného textu za stejný text s doplněnými znaky (díky pane Pastieriku)

sub dopln_tucne_html
dim format_pisma as New com.sun.star.beans.PropertyValue
format_pisma.Name = "CharWeight"
format_pisma.Value = com.sun.star.awt.FontWeight.BOLD
doc = ThisComponent
najdi = doc.createReplaceDescriptor
najdi.SearchRegularExpression = True 
najdi.SearchString = ".*"
najdi.SetSearchAttributes(array(format_pisma)
najdi.ReplaceString = "<b> & <\b>"
doc.ReplaceAll(najdi)
end sub

;o)


Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

Zápatí