◆ [VBScript] 指定したタイトルキャプションのウィンドウを閉じる (※Word必須)
おはヨーグルト。どーもボキです。

[VBScript] 指定した名前のプロセスを強制終了する
 ↑
前回はプロセス名での操作、今回のはウィンドウキャプション。

キャプションに処理中の内容(ファイル名とか)が表示されるタイプのソフトであれば、
操作するウィンドウを細かに指定できる。

ただし、今回の方法が使えるのは、WordインストールされているPCのみ。


この方法ならば、ウィンドウを閉じるだけでなく、画面のサイズ・位置・最小/最大化を操作することができる。
また、APIのSendMessageも扱える。ただし、VBScriptはポインタを扱えないので自由度が少ない。
それでも、SendMessgeが使えるのはうれしいところ。

WordのTaskオブジェクトで扱えるプロパティ・メソッドの詳細は、コチラ
' 指定キャプションのウィンドウを閉じる
CloseWindow("( … > Z_ ̄∂")

'-------------------------------------------------------------------------------
Function CloseWindow(sCaption)
Dim objWord,Task,r

On Error Resume Next ' エラー処理OFF:Wordがない場合対応
r = False

Set objWord = CreateObject("Word.Application")
For Each Task in objWord.Tasks
If Task.Visible And (InStr(Task.Name, sCaption) <> 0) Then
Task.Close
r = True
Exit For
End If
Next
objWord.Quit ' Quit必須、これがないとWINWORD.exeがいつまでも残る

CloseWindow = r
On Error GoTo 0 ' エラー処理ON
End Function

[PR]
by yozda | 2012-06-16 08:49 | プログラミング | Trackback | Comments(0)
トラックバックURL : http://yozda.exblog.jp/tb/15574044
トラックバックする(会員専用) [ヘルプ]
<< [VBScript] PCをス... [苦言] 今日もPBPはブレな... >>