返回列表 上一主題 發帖

[發問] 表單_連結word

solely

帖子
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

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
2#
發表於 2010-10-1 10:12 | 只看該作者
請問關閉word視窗時，能否不出現上圖之對話方塊(修改的資料不存檔)
如果找不到相對應的word檔時，請問要如何避免跳異常?
solely 發表於 2010-10-1 00:27


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

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

  3. Set fs = CreateObject("Scripting.FileSystemObject")

  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
複製代碼

TOP

solely

帖子
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

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
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

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
5#
發表於 2010-10-2 13:12 | 只看該作者
回復 4# jackdream

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

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題