●新規Wordファイルを開いて文章を入力

Dim wdApp as Object
Dim wdDoc as Object

'新規WordファイルをOpen
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc=wdApp.Documents.Add

'Wordファイルに文章を入力
wdDoc.Content.InsertAfter "入力する文章"
wdDoc.Content.InsertAfter vbCrLf '改行

'Wordアプリケーション終了
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

End Sub

＜ざっくり解説＞

Excelで作成したスケジュール管理表をもとに、
Wordで作成している週報を自動で出力するために使用しました。
上記のコードは基本形で、
最終的には用意したテンプレWordファイルを開いて、
そこにExcelで作成した表を貼り付けるプログラムにしました。

●既存のWordファイルを開く場合

'上記のSet wdDoc…の部分を書き換える
Set wdDoc = WdApp.Documents.Open("C:¥…ここにファイルアドレスを入力….docx")

●保存して閉じる

WdDoc.Save　'保存
wdDoc.Close　'閉じる