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
コメント