Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2795 / 76735

←次へ　｜　前へ→


	【79580】Re:outlookメールにセル貼り付け

γ - 18/1/18(木) 6:35 -


	引用なし

	パスワード

それはWordのマクロですから、Wordにもマクロ自動記録が利用可能ですから、
マクロ記録などが参考になるはずです。トライしてみて下さい。

(1)
M.body = "テストです"　'メールの本文
を活かすなら、分の最後までジャンプしてから貼り付けることが可能。
　　　　.WordEditor.Windows(1).Selection.Move Unit:=wdStory
　　　　.WordEditor.Windows(1).Selection.Paste

(2)
M.body = "テストです"
とせずに、まとめて文字列等をセットすることもできるでしょう。
　　　　.WordEditor.Windows(1).Selection.TypeText Text:="テストです"
　　　　.WordEditor.Windows(1).Selection.TypeParagraph
　　　　.WordEditor.Windows(1).Selection.Paste

(3)逐一.TypeParagraphせずに、
　　　　.WordEditor.Windows(1).Selection.TypeText Text:="４５６" & vbLf
　という書き方も可能ですね。

なお、上記は、With句を使って整理することができますので、工夫してください。

# 結果のコードだけを書かないのは、内容理解が重要と考えているからです。
# ひとつひとつの部品を理解するようにしてください。

5 hits

▼

【79578】outlookメールにセル貼り付け excel2016 18/1/16(火) 13:09