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

imcon

Člen

Místo Brno

Registrace: 16. 5. 2007

Příspěvků: 230

Jaký font je reálně použit místo chybějícího?

Měl bych dotaz, jestli nevíte jak zjistit, který font je aktuálně použit místo chybějícího fontu Pokud není font dokumentu použit, systém (nebo LO?) dělá substituci což je vidět italikou v názvu fontu, kde ale zjistit použitý náhradní, aktuálně použitý font?

Typicky je v dokumentech Exelu použit mrkvosoftí Calibri, který nemáme instalovaný, substituce je Ok ale nevím, jaký font to je.

PS: není zde fórum s dotazy pro celý balík LO/OO tak to píši sem

Editoval imcon (6. 11. 2019 08:46:16)

neutr

Člen

Registrace: 8. 3. 2007

Příspěvků: 3,468

Re: Jaký font je reálně použit místo chybějícího?

Toto je zřejmě nějaký nový problém. Používám velice osvědčený Japonský portál. Ten mne nyní ale zklamal. Podívejte se sem openoffice3.web.fc2.com/OOoBasic_General. Když se podíváte tak existuje kapitola i s obrázky které ukazují výstupy - ale kód k nim není. To je právě náznak, že se něco změnilo a původní kód nefunguje.
    Ještě je tady jedna berlička. Když dáte písmo z náhrady do určité buňky, nebo chcete nastavit vlastní substituci tak pomůže tento kód : CalcOOoCCFo01a a následující.
   

    Já mám stažené testy pro Writer které ale v Calcu nefungují. Dá se tam zjistit reálný font a stylování. Takže je zde možnost vykopírovat z Calcu do Writer a otestovat ve Writer. Nic moc ale snad to pomůže. někde by se to mělo najít a tak vyzkouším pohledat jinde.
    Dále uvedená makra si zkopírujte do basicu pro konkrétní testování. Není to úplně to správné používání a testování ale něco málo snad zvládne.

Sub FontPropInfo_TentoSesit()																	
Dim oDoc
oDoc = ThisComponent																
oprop1 = oDoc.CharFontStyleNameAsian													
oprop2 = oDoc.CharFontStyleName													
oprop3 = oDoc.CharFontStyleNameComplex													
msgbox(" CharFontStyleNameAsian  => " & oprop1 & Chr$(10) & _														
		" CharFontStyleName  => " & oprop2 & Chr$(10) & _
		" CharFontStyleNameComplex  => " & oprop3 ,0,"[ CharFontStyleName ]")
End Sub

Sub FontPropInfo_Sesit()
Dim oDoc
oDoc = ThisComponent
oprop1 = oDoc.CharFontName
msgbox(" CharFontName  = " & oprop1 ,0,"[ CharFontName ]")
End SUb

Sub DocCharFontNameComplex()
	Dim oDoc
	Dim OOo
	Dim SufOOo
	Dim oTempName
	Dim oDummy()
	Dim oArray(0)  As New com.sun.star.beans.PropertyValue
	Dim oProp
	oDoc = ThisComponent
		oProp = "CharFontNameComplex"											
				oS= oDoc.CharFontNameComplex													
					If NOT IsEmpty(oS) and NOT IsNull(oS) and oS<>"" then												
						oDisp = oDisp & "[  " & OOo & "  ] =  "& oS & Chr$(10) & "   "											
					End If												
				If n > 5 then Exit Sub													
		If oDisp = "<< " & oProp & " >>" & Chr$(10) & "   " then															
			oDisp = oDisp & Chr$(10) & "  "														
		End If															
		msgbox(oDisp, 0, oProp & " of PropertiesString" )															
End Sub	

---

Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

kamlan

Člen

Registrace: 15. 9. 2016

Příspěvků: 368

Re: Jaký font je reálně použit místo chybějícího?

Pro aktuální buňku v Calcu stačí pro výpis fontu toto makro

Sub vypisNazevFontu 'vypíše názvy fontů aktuální buňky Calcu i názvy fontů na konci textu v buňce
	dim oBunka as object, oCur as object, sEnt$
	sEnt=chr(13) & chr(13) 'odřádkování pro msgbox
	oBunka=thisComponent.currentSelection 'aktuální buňka
	oCur=oBunka.createTextCursor 'kurzor v buňce
	oCur.goToEnd(false) 'na konec buňky
	'xray oBunka
	msgbox("NORMÁLNÍ: " & oBunka.CharFontName & " × " & oCur.charFontName & sEnt &_
			"asijské: " & oBunka.CharFontNameAsian & " × " & oCur.CharFontNameAsian & sEnt &_
			"komplex: " & oBunka.CharFontNameComplex & " × " & oBunka.CharFontNameComplex ,16,"FONT: buňka × konec textu v ní")
End Sub

Pokusný soubor s fontem aaa (je jím nápis aaa v buňce A3) kdyžtak zde https://uloz.to/file/5vfw6kzFs1oN/aaa-ods, info se spouští z menu OVLÁDÁNÍ. Ale název fontu kterým se nahradí nepřítomný font jsem nikde nevyXRayoval - řekl bych že to substituování fontů bude nejspíš záležitost operačního systému a nikoliv jednotlivých programů.