1.本文中每页都含有如下图所示的相同的表格,如何使用VBA语句批量删除表格中圈红部分的内容。2.通过识别一个表格中某个单元格是否含有文本,含有文本则保留本页面,不含有文本则删除本页。识别单元格可以是规格后面的一个。请大神帮忙小弟列出两个VBA语句。。刚接触VBA实在不知如何下手。。
思路如下:
1 将word都放在一个文件夹中。
2、用程序读取这个文件夹,依次打开文件夹中的文件(一般都是用循环)下面是遍历所有文件的程序代码
myName = Dir(myPath & "*.xlsx") '打开一个excel文件Do While myName <> "" '循环,当文件名不为空时。
myName = Dir ' 遍历目录中的所有文件
Loop
3、读取指定单元格的数据,看是否包含要查找的文本。根据结果执行相应操作。以下是读取单元格数据代码
Public Sub ReadTableData()MsgBox ActiveDocument.Tables(1).Cell(2, 1).Range.Text
End Sub追问
谢谢你的回答。上述问题中主要的问题是在word VBA中如何定位圈红的部分,并且是在一个word文档中。
追答先定位默认的活动表格,剩下的与excel一样获取单元格的数据即可。
温馨提示:答案为网友推荐,仅供参考