VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/02/17(Sat) 08:23
投稿者： みなこ
Ｅメール：
ＵＲＬ：
タイトル： 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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -