https://bugs.documentfoundation.org/show_bug.cgi?id=88947
Bug ID: 88947
Summary: : Macros disabled by 4.403
Product: LibreOffice
Version: 4.4.0.3 release
Hardware: Other
OS: All
Status: UNCONFIRMED
Severity: normal
Priority: medium
Component: Writer
Assignee: [email protected]
Reporter: [email protected]
I have two macros which allow me to assign PgUp and PgDn to the page up and
page down functions in the navigator window (which function is nowhere listed
in the Customization dialog). Below is the code for my PgUp macro:
REM ***** BASIC *****
Sub Main
End Sub
sub PgDn
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Navigator"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:Navigator", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ScrollNextPrev"
args2(0).Value = true
dispatcher.executeDispatch(document, ".uno:ScrollNextPrev", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Navigator"
args3(0).Value = false
dispatcher.executeDispatch(document, ".uno:Navigator", "", 0, args3())
end sub
sub PgUp
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Navigator"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:Navigator", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ScrollNextPrev"
args2(0).Value = false
dispatcher.executeDispatch(document, ".uno:ScrollNextPrev", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Navigator"
args3(0).Value = false
dispatcher.executeDispatch(document, ".uno:Navigator", "", 0, args3())
end sub
My problem could be easily fixed if you would simply add the action in question
(which puts the top of the previous page at the top of the viewport for PgUp,
and similarly puts the top of the next page at the top of the viewport for
PgDn)
in the Function window of the Keyboard tab of the Customize dialog. I've
reported that this function is missing from that list several times over a
period of years with no result.
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
