Chinaunix

标题: 如何用vba控制word 表格内容必须不为空 [打印本页]

---

作者: renxiao2003    时间: 2011-12-21 08:41
标题: 如何用vba控制word 表格内容必须不为空

1. Public WithEvents App As Word.Application
   
2. 
   
3. Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
   
4. 
   
5. With Doc.Tables(1)
   
6. 
   
7. For Each c In .Range.Cells
   
8. If Len(c.Range) <= 3 Then
   
9. 
   
10. a = MsgBox("表格填写不完整，确定要退出吗？", vbYesNo)
    
11. If a = vbNo Then
    
12. Cancel = True
    
13. c.Range.Select
    
14. End If
    
15. Exit For
    
16. 
    
17. End If
    
18. Next
    
19. 
    
20. End With
    
21. 
    
22. End Sub

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2