用VBA在下列各表格的第4行、第3列输入文字字符

2806214

用VBA在下列各表格的第4行、第3列输入文字“求助”

xwdys

1. Sub a()
   
2.     Dim i&, j&
   
3.    
   
4.     i = ActiveDocument.Tables.Count
   
5.    
   
6.     For j = 1 To i
   
7.         ActiveDocument.Tables(j).Cell(4, 3).Range.InsertAfter "求助"
   
8.     Next
   
9. End Sub
   

复制代码

413191246se

不好意思，自觉比楼上的简单一点，效果一样：（其实这种情况不必用VBA，复制大法即可）
Sub aaa单元格填充文字()
    Dim t As Table
    For Each t In ActiveDocument.Tables
        t.Cell(4, 3).Range.Text = "求助"
    Next
End Sub

2806214

太好了，谢谢各位的帮忙！