Excel VBA質問箱 IV

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

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


344 / 74284 ←次へ | 前へ→

【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:="456" & vbLf
  という書き方も可能ですね。

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

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

118 hits

【79578】outlookメールにセル貼り付け excel2016 18/1/16(火) 13:09 質問[未読]
【79580】Re:outlookメールにセル貼り付け γ 18/1/18(木) 6:35 回答[未読]
【79581】Re:outlookメールにセル貼り付け γ 18/1/18(木) 6:37 発言[未読]

344 / 74284 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free