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

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)

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é

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É

strepon

Člen

Registrace: 6. 1. 2011

Příspěvků: 156

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.

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É