<![CDATA[Серый форум — OOo Basic: отмена изменений (команда undo)]]> 2008-04-24T06:48:11Z PunBB http://forum.script-coding.com/viewtopic.php?id=1391 <![CDATA[OOo Basic: отмена изменений (команда undo)]]> Выполнение команды undo программно, в макросе:

Sub Undo()
    Dim oDisp, oFrame
    oFrame = ThisComponent.CurrentController.Frame
    oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
    oDisp.executeDispatch(oFrame,".uno:Undo", "", 0, Array())
End Sub
]]> http://forum.script-coding.com/profile.php?id=2 2008-04-24T06:48:11Z http://forum.script-coding.com/viewtopic.php?pid=10597#p10597