アプリ版:「スタンプのみでお礼する」機能のリリースについて

エクセルのマクロの記録では、
エクセル、ワード間の操作は記録されませんか?

ワード上で全選択コピーをして、
エクセルに貼り付ける操作を自動化したいのです。
良い方法はありませんでしょうか?

具体的に自動化したい動作は、
(1)エクセルにてマクロ実行
(2)ワードに切り替え、Ctrl+A → Ctrl+C
(3)エクセルに戻り、A1セルで Ctrl+V
です。


(最終的には応用して、指定フォルダ内の.docxを全て、新規シートに貼って行きたいです。)

よろしくお願いいたします。

質問者からの補足コメント

  • つらい・・・

    未だ未解決です。
    どなたか知恵をお貸しください<m(__)m>

      補足日時:2018/04/25 11:59

A 回答 (1件)

>エクセル、ワード間の操作は記録されませんか?


はい、記録されません。

Word VBA に初挑戦してみました。
Sub Macro1()
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oSel As Word.Selection
Set oWord = New Word.Application
oWord.Visible = True
Set oDoc = oWord.Documents.Add
oDoc.Range(0, 0).Select
Set oSel = oWord.Selection
oSel.TypeText "ワードに文字列を書き込む"
oDoc.StoryRanges(1).Copy
ActiveSheet.Paste
oDoc.Close False
oWord.Quit
End Sub
    • good
    • 0
この回答へのお礼

すみません。上記ソース、動作しませんでしたorz

お礼日時:2018/04/20 15:15

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!