Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Microsoft 365)
ExcelVBAからWordに文字入力できない
投稿日時: 22/08/12 20:10:07
投稿者: puyo

お世話になります。
 
ExcelのセルA1の氏名についてExcel側でマクロを実行すると、
Wordの名前を入力する箇所にExcelのセルA1の名前を入力する、
ということがしたいです。
 
以下のコードを書いたのですが、docWD.Section.Move wdCharacter, 113 の箇所で
「オブジェクトはこのプロパティ、またはメソッドをサポートしていません。」と出ます。
 
Sub test
  Dim appWD As Word.Application
  Dim docWD As Word.Document
 
  Set appWD = New Word.Application
  Set docWD = appWD.Documents.Open("C:\Users\〇〇〇\Desktop\test.docx")
  appWD.Visible = True
 
  docWD.Selection.Move wdCharacter, 113   ←ここでとまる
  docWD.Selection.TypeText Cells(1, 1)
 
  Set docWD = Nothing
  Set appWD = Nothing
End Sub
 
補足:
・WordVBAのイミディエイトウィンドウで docWD.Selection.Move wdCharacter, 113 
を実行できます。
・ExcelVBAでWordのライブラリ参照を設定済です。
 
よろしくお願い致します。

回答
投稿日時: 22/08/12 21:59:47
投稿者: eden

開いた直後のようですが、
docWD.Selection は何ですか。

投稿日時: 22/08/12 22:30:07
投稿者: puyo

eden様
すみません、コメントを頂きながら恐縮ですが
自己解決いたしました。