返回列表 上一主題 發帖

[發問] 表單_連結word

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
1# 跳轉到 »
發表於 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

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 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

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題