sub sum: tnr("∑"): end sub
A szöveg nálam "Times New Roman", és sajnos nincs benne minden karakter ami kellene.
sub insert_a_char(sChar as string)
dim oDoc as object
dim oDispatcher as object
oDoc = ThisComponent.CurrentController.Frame
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Symbols"
args2(0).Value = sChar
oDispatcher.executeDispatch(oDoc, ".uno:InsertSymbol", "", 0, args2())
end sub
Köszi, most látom hogy át kellene tenni a "Testreszabás és kibővítés" kategóriába.
mert nem stílusokkal csináltam
A makró exportálás hibás: ANSI-ban menti, a speciális karakterekből ? lesz,
Function HighUchar(ChCode as long) as string
dim oFunctionaccess
dim arg as Variant
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
arg =array(ChCode)
HighUchar = oFunctionAccess.CallFunction("UNICHAR",arg)
End function
args1(0).Name = "Symbols"
args1(0).Value = HighUchar(8592)
= UNICODE(A1)
Vissza: Testreszabás és kibővítés
Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég