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

#1 11. 9. 2016 09:55:38

imcon
Člen
Místo Brno
Registrace: 16. 5. 2007
Příspěvků: 177

Lze zjistit jestli je daný Styl v dokumentu použit? - VYŘEŠENO

Lze nějak v LO zjistit, jestli je některý z existujících stylů (Odstavcový, znakový...?) použit?
Nabo jinak: jak zjistit, který ze stylů lze vymazat protože není použit.

Editoval imcon (11. 9. 2016 12:30:23)

Offline

#2 11. 9. 2016 10:08:39

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 2,697

Re: Lze zjistit jestli je daný Styl v dokumentu použit? - VYŘEŠENO

Na tohle se dá použít makro výpisu. Existují na všechny "propoerties" a sna na vše co Vás napadne. Musím ale pohledat.


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

#3 11. 9. 2016 10:45:46

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

Re: Lze zjistit jestli je daný Styl v dokumentu použit? - VYŘEŠENO

Styly odstavce umí najít i standardní dialog Najít a nahradit ("Hledat styly odstavce"), další typy pak lze hledat pomocí rozšíření AltSearch.

Offline

#4 11. 9. 2016 10:47:59

kantor
Člen
Registrace: 19. 10. 2008
Příspěvků: 12

Re: Lze zjistit jestli je daný Styl v dokumentu použit? - VYŘEŠENO

Jedná o zjištění použitých stylů v daném dokumentu, nebo ve všech vašich dokumentech?
Pro daný dokument to není problém:
zobrazení okna Styly a formátování - např. v postranní liště, pomocí F11, ...
v dolní části rozbalovací seznam: Hierarchicky, Všechny styly, Skryté styly, Použité styly, Vlastní styly, atd.
Při otevření nového dokumentu je mezi Použité styly samozřejmě uveden právě jeden: Výchozí styl.
Při zobrazení Všechny styly (v novém dokumentu) jsou uvedeny styly, které obsahuje ŠABLONA, ty se dají buď upravit nebo skrýt.

Jaký je důvod mazat použité styly? Pokud si je nenakopíruju do Výchozího dokumentu, tak existují jen v těch dokumentech, kde jsem je použil.

Offline

#5 11. 9. 2016 12:29:51

imcon
Člen
Místo Brno
Registrace: 16. 5. 2007
Příspěvků: 177

Re: Lze zjistit jestli je daný Styl v dokumentu použit? - VYŘEŠENO

kantor: díky za nakopnutí, máte pravdu že Použité styly zobrazí jen co je použito a tak lze postupným hledáním a přepínámím vyselektovat nepoužité a ty smazat.
Proč? Protože při tvorbě dokumentů/šablon došlo z nějakého důvodu k vytvoření mnoha desítek (stovek?) různých stylů (zřejmě importem z MS Wordu) a ty nechci tahat do dalších dokumentů které z nich vzniknou - kčemu?

Offline

#6 11. 9. 2016 12:54:24

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 2,697

Re: Lze zjistit jestli je daný Styl v dokumentu použit? - VYŘEŠENO

Tak jsem našel a je jich opravdu hodně. Ale alespoň ukázka :

Sub WriterStyle_vypis
  	Dim oDoc
  	Dim oText
  	Dim oCur
  	Dim oObj
  	Dim Dummy()
  		On Error Goto oBad
		oDoc = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Dummy())
		'Get the StyleFamilies
			Dim oFamilies
			Dim oFamilyNames
			Dim oStyleName
				oFamilies = oDoc.StyleFamilies
				oFamilyNames = oFamilies.getElementNames()
				oStyleName = oFamilies.getByName("CharacterStyles") 
				oSElementName = oStyleName.ElementNames
				oDisp = ""
			'Get the Style Name
				for i = LBound(oSElementName) to UBound(oSElementName)
					oDisp = oDisp & i & ")" & oSElementName(i)
					oDisp = oDisp & Chr$(10)
				next i
			msgbox(oDisp, 0, "Style Name")
		Exit Sub
	oBad:
		Dim oErLine As Integer
		Dim oErNum As Integer
		Dim oErMsg As String
			oErLine = Erl
			oErNum = Err
			oErMsg = Error
		Msgbox("Error Line No. " & Chr$(9) & " : " & oErLine & Chr$(10) _
			& "Error Number " & Chr$(9) & " : " & oErNum &Chr$(10 ) _
			& "Error Message" & Chr$(9) & " : " & oErMsg , 0, "Error Message")
End Sub

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í