openoffice.org - Open/Libre Office マクロでビューをスクロールして選択

Question

Writer でテキストを検索し、見つかったときにビューをビュー/ウィンドウの一番上に配置したいと考えています。

次のコードを使用すると、

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

dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.SearchString"
args1(0).Value = ":"

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())

ビューが変わり、選択が表示されますが、特定の場所にはありません。ウィンドウ/ビューの上部に配置したい。

ThisComponent.currentController.getViewData()との使用も他の場所で見つけましたrestoreViewData()。そこで、垂直スクロールを取得するために返されるデータを変更する方法を実験して決定しましたが、何も起こりません。例えば...

vd = ThisComponent.currentController.getViewData()
vdParts = Split(vd, ";")
vdParts(6) = CLng(vdParts(6)) + 1000
vd = join(vdParts, ";")
ThisComponent.currentController.restoreViewData(vd)

助言がありますか？

PS: Windows 7 x64 でバージョン 5.0.5.2 を実行しています。