投稿時間:2007/02/17(Sat) 08:23 投稿者名:みなこ
Eメール:
URL :
タイトル:word起動(NTでエラー)
お世話になります。 VB6.0にてWORDを起動し、ファイルに書き込み後保存するというプログラムを 作成しました。 実行するとXPのパソコンはうまく動くのですが、NTのパソコンでは、WORDファイルが起動しません。 プログラムは下記のように書いてあります。 NT用になにか修正入れたほうが良いのでしょうか? どなたか、エラーの心当たりがある方、ご教授お願いします。
Public Sub CC_ForWord(str_WordFileName As String) On Error GoTo HandleErr Dim int_i As Integer Dim obj_Word As Word.Application Dim doc_Word As Word.Document '指定ファイルの起動 Set obj_Word = CreateObject("Word.Application") With obj_Word .Visible = True .ScreenUpdating = False Set doc_Word = .Documents.Open("C:\My Documents" & str_WordFileName)
'**書き込み処理** .ScreenUpdating = True doc_Word.Save doc_Word.Close End With obj_Word.Quit Set obj_Word = Nothing Set doc_Word = Nothing Exit Sub HandleErr: 'MsgBox "エラー:" & str_WordFileName End Sub
|