[解決] Dispatch コマンド ： ドキュメントウィンドウの選択

[K.Tsunoda]

Workbooks("Book1.xls").Activate に相当する処理を行ないたいと思うのですが、
指定ドキュメントのフレームオブジェクトを取って、Dispatch コマンドで [ ドキュメントウィンドウの選択(切換) ]
をすれば出来るのではと考えました。

指定ドキュメントの名前による取得は下記( GetComponent )を作って出来るようになりました。
http://blog.livedoor.jp/addinbox/archives/51192547.html

下記Dispatch コマンドの一覧から [ ドキュメントウィンドウの選択(切換) ]を探しましたがありません。
http://hermione.s41.xrea.com/pukiwiki/p ... ands_2.3.0
マクロの記録でも残らないということは、[ ドキュメントウィンドウの選択(切換) ]は無いのでしょうか？

コード: 全て選択

sub Main
Dim Dispatcher as object
Dim oComponent As Object
Dim oFrame As Object
Dim args() as new com.sun.star.beans.PropertyValue

  Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  oComponent = GetComponent("Document1.ods")
  oFrame   = oComponent.CurrentController.Frame

  Dispatcher.executeDispatch(oFrame, ".uno:????????", "", 0, args())
end sub

もしくは、指定ドキュメントの Component/Frame が取れているので、他の方法で可能でしょうか？

[tani]

コード: 全て選択

Sub Main
  oFrame = ThisComponent.getCurrentController().getFrame()
  oFrame.getContainerWindow().toFront()
End Sub

こんな感じでどうでしょうか。もしやりたいことと違ってたらごめんなさい。

[K.Tsunoda]

taniさん、ありがとうございます。完璧です♪
これで、どのドキュメントでも Active にできます♪

コード: 全て選択

Sub Main
Dim oComponent As Object
Dim oFrame As Object

  oComponent = GetComponent("Document1.ods")    'GetComponent : ユーザー関数
  ' oComponent = GetComponent("無題 2")
  oFrame   = oComponent.CurrentController.Frame
  oFrame.getContainerWindow().toFront()
End Sub

RefEdit ではThisComponent でセルアドレス文字からセルオブジェクトを作っているので
RefEditを使う時に、ドキュメント切り替えを行なったらマズイかなぁというのも思ってましたが、
切り替えたらダイアログ/RefEdit ともにドキュメントと一緒に背後に隠れてしまいますね。
一安心とともに、ちょい残念な気も・・・・

[K.Tsunoda]

GetComponent 関数に Activate 機能を組み込みました。

oComponent = GetComponent("Document1.ods", True)

これで、指定ドキュメントをActiveにして、そのコンポーネントオブジェクトを返します。

[ GetComponent ]
http://blog.livedoor.jp/addinbox/archives/51192547.html