tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: Microsoft Word で.Quit
投稿日: 2008/01/04(Fri) 09:37
投稿者Do_Shirouto
> 実際のコードを投稿して下さい。
> 特に最初のファイルを表示している部分等を。
>
> 又は、事象を再現できるコードを作成して投稿して下さい。
花ちゃんさん 通りすがっちゃったさん ご解答有難う御座います。
よくコードを読み返し変数を変えた所出来ました。
どうも変数に思いと違う値が入っていたようです。
変数をVariant→Strigに変えてみました。
本当に有難う御座いました
'--------------------------
Dim strPath As String
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim strI As Strig
'----------------------
Private Sub Form_Load()
strPath = "C:\Documents and Settings\Owner\My Documents\Dog\"
'strPath より.Doc FileのみList1.AddItem
strI = "表示なし"
End Sub
'--------------------------
Private Sub List1_Click()
If strI = "表示なし" Then
Else
wdApp.Quit
End If
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(strPath & List1.Text)
wdApp.Visible = True
strI = "表示あり"
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。