ワードの新規作成する方法について。

質問

VBからワードを操作するプログラムを作成しています。コマンドボタンをクリックした時に「新規作成」や「名前をつけて保存」を出来るようにしたいのですが、可能でしょうか？よろしくお願いします。

回答No.1

1050 円（@1050YEN） · ベストアンサー

Sub NewWord()
　　Dim mswApp　As Object　 'Word.Application
　　Dim mswDoc　As Object　 'Word.Document

　　'ワードを取得か生成する
　　Set mswApp = GetWord

　　'ドキュメントを追加
　　Set mswDoc = mswApp.Documents.Add

　　'名前を付けて保存
　　mswDoc.SaveAs "C:\hoge.doc"
End Sub

Private Function GetWord() As Object
　　'起動中のワードを捕まえる
　　On Error Resume Next
　　Set GetWord = GetObject(, "Word.Application")
　　On Error GoTo 0

　　'捕まえる事ができなかったら、新規に起動する
　　If (GetWord Is Nothing) Then
　　　　Set GetWord = CreateObject("Word.Application")
　　　　'生成時は、非表示で起動するので、表示する
　　　　GetWord.Visible = True
　　End If
End Function

お礼

試してみたら上手くいきました！ありがとうございました☆