Visual Basic6についての質問です。
現在次のようなPGを組んでいます。
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:\abc.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
上記を実行すると、開いている文書に同じ名前を指定することはできません。保存する文書に異なる名前をつけてください。というエラーがでてきます。
開いている文書とはなんのことでしょか？VBの他にアプリケーションは起動していません。名前を変更(abc.docのとこですよね？)してもエラーはでます・・・。
なにがいけないのでしょうか。教えてください＞＜
