[ツリー表示へ] [ワード検索] [Home]
タイトル ： Microsoft Word で.Quit 投稿日 ： 2008/01/03(Thu) 12:08 投稿者 ： Do_Shirouto
| 明けましておめでとう御座います。 昨年は色々教えて頂き有難う御座いました。 今年も宜しくお願いいたします。 今VB6でMicrosoft Wordを開いたり保存したく '--------------------------------- Option Explicit Dim strPath As String Dim wdApp As Word.Application Dim wdDoc As Word.Document '----------------------------------- Private Sub Command1_Click() 'すでに1個のFileが開いている状態 wdApp.Quit End Sub '----------------------------------- 上記ように記述すると、上手にFileは閉じてくれるのですが、 下記のように新たに次のFileを開こうとすると、 前のFileが残りその上に新しいFileが表示されます。 前のFileを消して新しいFileが表示したいのですが？ '------------------------------- Private Sub Command1_Click() 'すでに1個のFileが開いている状態 wdApp.Quit Set wdApp = CreateObject("Word.Application") Set wdDoc = wdApp.Documents.Open(strPath & List1.Text) '以下処理が続く End Sub '---------------------------------- wdApp.Quitのすぐ下にDoEventsを入れてもダメでした。 どなたかご指導のほど宜しくお願い申し上げます。 |
をクリックするとツリー全体を一括表示します） - Microsoft Word で.Quit - Do_Shirouto 08/01/03-12:08No.11041