OpenOffice.org Közösségi fórum

Kód: Egész kijelölése

k = lim from {%DELTA x toward 0} {{%DELTA y} over {%DELTA x}} = lim from {%DELTA x toward 0} {{f(x + {%DELTA x})} over {%DELTA x}}

Kód: Egész kijelölése

lim <?> 

Kód: Egész kijelölése

lim from{<?>} <?>  

Kód: Egész kijelölése

lim from{<?> toward <?> } <?>  

Kód: Egész kijelölése

sub Modosit
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "LeftRightMargin.LeftMargin"
args1(0).Value = 0
args1(1).Name = "LeftRightMargin.TextLeftMargin"
args1(1).Value = 0
args1(2).Name = "LeftRightMargin.RightMargin"
args1(2).Value = 0
args1(3).Name = "LeftRightMargin.LeftRelMargin"
args1(3).Value = 100
args1(4).Name = "LeftRightMargin.RightRelMargin"
args1(4).Value = 100
args1(5).Name = "LeftRightMargin.FirstLineIndent"
args1(5).Value = 0
args1(6).Name = "LeftRightMargin.FirstLineRelIdent"
args1(6).Value = 100
args1(7).Name = "LeftRightMargin.AutoFirst"
args1(7).Value = false
dispatcher.executeDispatch(document, ".uno:LeftRightMargin", "", 0, args1())
end sub

Kód: Egész kijelölése

    Main sub 
    End sub 
    Sub SetMathBorder

        On Error Resume Next ' Prevents deleted objects from causing errors. 
        dim embeddedObjects, elementNames, i, element, elem, oldW 
        embeddedObjects = ThisComponent.getEmbeddedObjects() 
        elementNames = embeddedObjects.getElementNames() 
        for i=0 to UBOUND(elementNames)

            elem = embeddedObjects.getByName(elementNames(i)) 
            element = elem.Model 
            if (element.supportsService("com.sun.star.formula.FormulaProperties")) then

                oldW = elem.Width - element.LeftMargin - element.RightMargin ' captures old widths 
                element.TopMargin = 0 ' sets internal border to zero 
                element.BottomMargin = 0 ' You can adjust these values(It's just that I use the formulas in text so I prefer it to be 0) 
                element.LeftMargin = 0 
                element.RightMargin = 0 
                ' adjusts the width, as openoffice sometimes stretches the formula as opposed to resizing it. 
                elem.Width = oldW + element.LeftMargin + element.RightMargin 

            endif 

        next i 
        ThisComponent.reformat() 

    End Sub