[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間: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

投稿時間:2007/02/17(Sat) 08:56
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: word起動(NTでエラー)
どの行で、どのようなエラーが発生しているのかを投稿して下さい。
'On Error GoTo HandleErr  のようにコメントにして実行して見て下さい。
又、把握している限りの環境の違い等についても投稿して下さい(バージョン等含む)

現状では、Word のバージョンの違いとか、ファイルのパスが間違っている等が
考えられますが。(あくまで想像の段階)

("C:\My Documents"  & str_WordFileName) の中の str_WordFileName はどのように
なっているのでしょうか? "C:\My Documents"  & str_WordFileName のような
ファイルが存在するのでしょうか? "C:\My Documents\" だったりしたり。