Bug 71343

Created attachment 88819 [details]
Revised version of the add-on attached.  (Note: I have not attempted to update version control.)

Extension: http://extensions.libreoffice.org/extension-center/review-toolbar

Feature request: When using the "accept/reject change" buttons, after accepting/rejecting the change, focus should be moved to the next tracked change.

Current behaviour: The focus stays on the current tracked change even after it is accepted/rejected.  The next change has to be manually selected with the mouse.  This can be very fiddly, for example when dealing with documents containing a lot of physically small changes (e.g. apostrophe corrections).

Suggested implementation:

1) Add the following extra functions, e.g. to \CleanDoc\Core.xba:

Sub AcceptAndMove
	Dim document   As Object
	Dim dispatcher As Object

	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

	dispatcher.executeDispatch(document, ".uno:AcceptTracedChange", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:NextTrackedChange", "", 0, Array())
End Sub

Sub RejectAndMove
	Dim document   As Object
	Dim dispatcher As Object

	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

	dispatcher.executeDispatch(document, ".uno:RejectTracedChange", "", 0, Array())
	dispatcher.executeDispatch(document, ".uno:NextTrackedChange", "", 0, Array())
End Sub

2) In \Addons.xcu, replace the call to:
.uno:AcceptTracedChange

with:
vnd.sun.star.script:CleanDoc.Core.AcceptAndMove?language=Basic&location=application

...and similarly for Reject.

Note: Ideally I would be able to submit this as a patch to the maintainer.  Unfortunately, the extension page doesn't include any way to get in touch with them.
Operating System: Windows 7
Version: unspecified