タイトル : 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 |