エクセルでセル中身をエディターで表示させるには？

質問

前回、
http://okwave.jp/qa/q7539058.html
で質問した者ですが、再度質問しています。
エクセルで任意のセルを選択した状態で、ＶＢＡを使い、セルの中身をエディタで表示させたいです。
（エディタが無題で開きエクセルのセルの内容を表示させたい）
エクセルのセルの中身は、改行が含まれている文章になります。
前回、同じような質問をしたのですが、以下の回答を頂きました。

sub macro2()
　selection.copy
　shell "Notepad.exe", vbnormalfocus
　sendkeys "^v"
end sub

この場合、エディタで表示はされるのですが、改行がなくなり全て一行になって表示されてしまいます。
改行された状態で表示させることはできないでしょうか？

回答No.2

ki-aaa · ベストアンサー

こんにちわ

ワードパットなら、改行されるみたいです。

Sub macro2()
Dim myStr As String
myStr = Replace(Selection.Value, vbCr, vbCrLf)
Selection.Copy
'Shell "Notepad.exe", vbNormalFocus
Shell "D:\Program Files\Windows Nt\Accessories\WordPad.exe", vbNormalFocus
SendKeys "^v"
End Sub

上記の、"D:\Program Files\Windows Nt\Accessories\WordPad.exe"を
自分のPCのパスに合わせて下さい。

[スタート] メニューの [プログラム] - [アクセサリ] - [ワードパッド] を
右クリックして、プロパティを見ます。
そこにパスがあります。

お礼

sendkeys "^v"の前に
Application.Wait Now() + TimeValue("00:00:05")
を入れたら上手くできました。
ki-aaaさんありがとうございました。

補足

ki-aaa さん

回答ありがとうございます。

今試したところ、ワードパットは起動できるのですが、「SendKeys "^v"」の部分の貼付けができないようです。

回答No.1

DreamyCat

個々のセルごとの確認と編集だけなら
数式バーの下の枠線を下にずらして数式バーをずっと広げて右側の▲▼も使えば
メモ帳と同じようにみられますから
わざわざ改行つきテキストに変えたりしなくてもいいです。

お礼

回答ありがとうございます。
DreamyCatさんのおっしゃる通り普通は、それでいいと思いますが、
実は、セルの中には、改行を含む長めの文章が入っていて、場合によっては、
その文章を編集しなくてはなりません。
数式バーを広げただけでは見難く、また、文章を編集し難いので、
あえてエディタで表示させたいのです。