如何用vba控制word 表格内容必须不为空

简介: Public WithEvents App As Word.Application Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) With Doc.
  1. Public WithEvents App As Word.Application

  2. Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)

  3. With Doc.Tables(1)

  4. For Each c In .Range.Cells
  5. If Len(c.Range) = 3 Then

  6. a = MsgBox("表格填写不完整,确定要退出吗?", vbYesNo)
  7. If a = vbNo Then
  8. Cancel = True
  9. c.Range.Select
  10. End If
  11. Exit For

  12. End If
  13. Next

  14. End With

  15. End Sub
目录
相关文章
|
7天前
|
Java API Apache
Java编程如何读取Word文档里的Excel表格,并在保存文本内容时保留表格的样式?
【10月更文挑战第29天】Java编程如何读取Word文档里的Excel表格,并在保存文本内容时保留表格的样式?
35 5
VBA如何用Excel数据批量生成Word文档
VBA|用Excel数据批量生成并修改用模板创建的Word文档
|
6月前
【word】论文、报告:①插入图表题注,交叉引用②快速插入图表目录③删改后一键更新
【word】论文、报告:①插入图表题注,交叉引用②快速插入图表目录③删改后一键更新
657 0
|
6月前
|
Serverless 定位技术 数据格式
Python遍历大量表格文件并筛选出表格内数据缺失率低的文件
Python遍历大量表格文件并筛选出表格内数据缺失率低的文件
|
6月前
|
Python
Python办公自动化【Word设置文字样式、Word设置段落样式、Word生成通知书、Word读取内容】(五)-全面详解(学习总结---从入门到深化)
Python办公自动化【Word设置文字样式、Word设置段落样式、Word生成通知书、Word读取内容】(五)-全面详解(学习总结---从入门到深化)
82 0
|
索引 Python
【VBA脚本】提取word文档中所有批注的信息和待解决状态
【VBA脚本】提取word文档中所有批注的信息和待解决状态
253 0
【VBA脚本】提取word文档中所有批注的信息和待解决状态
条码标签打印软件如何实现标签重复打印
重复打印是批量打印中的一种重要的打印方式。在批量打印条码、标签、图片的时候经常会遇到,把同一个标签重复打印多份,或者是把同一张标签纸重复打印多张。那么在条码标签打印软件中如何实现重复打印的呢?下面介绍两种重复打印的方式。
2142 0

相关实验场景

更多
下一篇
无影云桌面