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

imcon · 11. 9. 2016 09:55:38

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)

neutr · 11. 9. 2016 10:08:39

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.

strepon · 11. 9. 2016 10:45:46

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

kantor · 11. 9. 2016 10:47:59

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.

imcon · 11. 9. 2016 12:29:51

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?

neutr · 11. 9. 2016 12:54:24

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Zápatí