word VBA运行时错误5941集合所要求的成员不存在

imtyer

1. Public Sub ReadTableData()
   
2. 
   
3.      Open "F:\cgb.txt" For Output As #1
   
4. 
   
5.      For i = 1 To 90 Step 1
   
6. 
   
7.      ' MsgBox ActiveDocument.Tables(i).Cell(2, 2).Range.Text
   
8.      
   
9.      Print #1, ActiveDocument.Tables(i).Cell(2, 2).Range.Text
   
10.    
    
11.     Next
    
12.     Close #1
    
13.    
    
14. End Sub
    

复制代码

功能为读取word中每个表格的 Cell(2, 2).值保存到txt？ 运行到一半 出现
word VBA运行时错误5941集合所要求的成员不存在

导致数据不完整

我是来讨说法的

就是说你没有90个table

ggggwhw

我是来讨说法的 发表于 2020-5-15 11:11
就是说你没有90个table

请教一下，在word宏中，如果鼠标在表格内，则Word.Selection.Cells(1).Width是没有问题的，程序继续进行
鼠标没有在表格内，则Word.Selection.Cells(1).Width会提示错误5941集合所要求的成员不存在。我不希望提示错误，只希望鼠标没有在表格内，直接跳转到宏末尾。
问题是如何进行这一步的判断呢，就是在程序中如何写跳转的条件呢？

yjm36

If Err.Number = 5941 Then '表示有合并单元格