VBAでWordファイルを作成したくなったときのサンプルコード

VBAでWordファイルを作成したくなったときのサンプルコードを残しておきます。

Sub hoge()

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

Dim objWordDoc As Object
Set objWordDoc = objWord.Documents.Add

'Wordを表示させる
objWord.Visible = True

'編集
objWordDoc.Activate

'文字の挿入
objWordDoc.ActiveWindow.Selection.typeText "hoge"

'名前を付けて終了
objWordDoc.SaveAs ThisWorkbook.Path & "\hoge.docx"
objWord.Quit

Set objWordDoc = Nothing
Set objWord = Nothing

End Sub