OOo Basic: отмена изменений (команда undo)

null@example.com (The gray Cardinal) — Thu, 24 Apr 2008 06:48:11 +0000

Выполнение команды 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

Серый форум — OOo Basic: отмена изменений (команда undo)

OOo Basic: отмена изменений (команда undo)