[[20111206231619]]　『開いているメモ帳の内容を取得する』（カシスソーダ）　ページの最後に飛ぶ

『開いているメモ帳の内容を取得する』（カシスソーダ）

 こんばんは。よろしくお願いいたします。

 他のQ&Aサイト引用なので恐縮なのですが、開いているメモ帳の
 内容を取得するコードを見つけました。

http://okwave.jp/qa/q5548513.html

 ただ、書かれているコードでは複数メモ帳が開いていても一つ
 だけしか取得してくれませんでした。

 メモ帳を複数開いている場合は全て取得するようにどのようにすればいいのでしょうか？
 ご教示お願いいたします。

 申し訳ありません。コード転記は問題があると思いますのでリンク先をご参照
 いただきますようお願いいたします。

 Windows:XP-SP3
 Excel:2002

 こんな感じでできないでしょうか。
Sub test()
    Dim hWnd As Long, hWndEdit As Long
    Dim lngRet As Long
    Dim myText As String * 255

    hWnd = FindWindowEx(0, 0, "Notepad", vbNullString)
    Do While hWnd <> 0
        hWndEdit = FindWindowEx(hWnd, 0, "Edit", "")
        lngRet = SendMessage(hWndEdit, WM_GETTEXT, Len(myText), ByVal myText)
        Debug.Print myText
        hWnd = FindWindowEx(0, hWnd, "Notepad", vbNullString)
    Loop
End Sub
 (Mook)

 Mookさん、ご回答ありがとうございます。

 Do While hWnd <> 0
 ～
 Loop

 ですね。解決しました。ありがとうございました。

 (カシスソーダ)

コメント返信：

[ 一覧(最新更新順) ]

[[20111206231619]] 『開いているメモ帳の内容を取得する』（カシスソーダ） ページの最後に飛ぶ

[[20111206231619]]　『開いているメモ帳の内容を取得する』（カシスソーダ）　ページの最後に飛ぶ