Word (VBA)

Word VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Home : Word 2016)
複数のドキュメントの画面を切り替えていく…
投稿日時: 17/12/02 13:06:57
投稿者: takaisasking

ふつうの文書用ドキュメントが3つ開いています。
で、VBAモジュールは開いていません。
これらを交互に切り替えていくVBAコードはどのように記述したらよいでしょうか。
 
一番最初に開いたドキュメントから、次に開いたドキュメントへ移動する(表示させる)には、下の記述でよいのですが、
   Windows(2).Activate
さらに2つ目のドキュメントから3つ目のドキュメントへ移動する(表示させる)にはどうしたらよいでしょうか。(さらにまた、最初に開いたドキュメントへ移動…)
以上、よろしくお願いします。

回答
投稿日時: 17/12/02 14:49:12
投稿者: もこな2

ワードVBAはわからないし、ワード持っていないので職場行かないとテストできないのでなんともいえないですけど、ご質問にそのまま回答するなら、「Windows(3).Activate」でいいんじゃないですか?さらに、最初の〜は「Windows(1).Activate」ではだめですか?
  
ただ、Windowsコレクションへの操作だと、ワードは3つしか開いていないけど、エクセルも開いてますとかの場合、ご希望の動作をするか保証できないです。
  
ですので、私なら素直にDocumentsコレクションへの操作にします

回答
投稿日時: 17/12/03 08:11:29
投稿者: んなっと

こういうことですか?
  
   Windows((ActiveWindow.Index Mod Windows.Count) + 1).Activate
 
とか
 
  If ActiveWindow.Index = Windows.Count Then
    Windows(1).Activate
  Else
    ActiveWindow.Next.Activate
  End If

投稿日時: 17/12/03 11:58:14
投稿者: takaisasking

もこな2さん、んなっとさん、どうもありがとうございました。
 
Windows((ActiveWindow.Index Mod Windows.Count) + 1).Activate
 
これで、やりたいこができました。
 
また、よろしくお願いします。

トピックに返信