solely

中學生 Rank: 2

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-1 00:27 | 只看該作者

[發問] 表單_連結word

本帖最後由 solely 於 2011-6-5 22:16 編輯

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

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

樓主熱帖

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 2010-10-1 10:12 | 只看該作者

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

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

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

Private Sub Frame1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
If Not Cmbx_no.Text = "" And fs.FileExists("D:\test\圖片\" & Cmbx_no.Text & ".doc") Then
Dim wd As Object, myRange As Object
Set wd = CreateObject("word.application")
With wd
.Visible = True
.documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc")
End With
End If
End Sub

複製代碼

TOP

solely

中學生 Rank: 2

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

3^#

發表於 2010-10-2 12:31 | 只看該作者

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

TOP

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

4^#

發表於 2010-10-2 12:49 | 只看該作者

回復 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

TOP

solely

中學生 Rank: 2

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

5^#

發表於 2010-10-2 13:12 | 只看該作者

回復 4# jackdream

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

TOP