[發問] 表單_連結word

solely

下載 (41.66 KB)

2010-10-1 00:17

請問關閉word視窗時，能否不出現上圖之對話方塊(修改的資料不存檔)

下載 (51.96 KB)

2010-10-1 00:23

如果找不到相對應的word檔時，請問要如何避免跳異常?
[attach]2943[/attach]

jackdream

請問關閉word視窗時，能否不出現上圖之對話方塊(修改的資料不存檔)
如果找不到相對應的word檔時，請問要如何避免跳異常?
solely 發表於 2010-10-1 00:27

開啟檔案後,若有修改到內容,手動關閉時出現對話方塊是正常的,不然就找找看可否修改環境設定選項.

>>如果找不到相對應的word檔時，請問要如何避免跳異常?
增加判斷檔案是否存在..修改為:

1. Private Sub Frame1_Click()
   
2. 
   
3. Set fs = CreateObject("Scripting.FileSystemObject")
   
4. 
   
5. If Not Cmbx_no.Text = "" And fs.FileExists("D:\test\圖片\" & Cmbx_no.Text & ".doc") Then
   
6.     Dim wd As Object, myRange As Object
   
7.     Set wd = CreateObject("word.application")
   
8.     With wd
   
9.         .Visible = True
   
10.         .documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc")
    
11.     End With
    
12. End If
    
13.    
    
14. End Sub

複製代碼

solely

回復 2# jackdream
謝謝jackdream
原碼加上wd.Close False似乎也能防止跳異常~
想關閉詢問對話方塊，是為了防止...習慣性的動作_儲存修改
曾試過Application.DisplayAlerts = False似乎無效
如果找不到方法.我可能會放棄連結XD
(我怕不小心改到別人的資料...會被追殺-.-"")

jackdream

回復  jackdream
(我怕不小心改到別人的資料...會被追殺-.-"")
solely 發表於 2010-10-2 12:31

如果是怕修改到 word 檔案內容,為何不考慮以唯讀方式開啟word檔案呢?

將 .documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc")
修改為 .documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc"), ReadOnly:=True

solely

回復 4# jackdream

用唯讀的方式開啟，這招挺不錯的，謝謝了~