我试图找出是否可以将MS Word VB中的范围变量的范围设置为MS Word文档中第三个表的第三列的应用程序。
到目前为止,这与我没有破坏代码的情况一样接近:
Set range = ActiveDocument.Tables(3).range
在没有调试器发疯的情况下,有没有办法让我在那里引用Columns(3)?
到目前为止我的代码:
Set range = ActiveDocument.Tables(3).range
With range.Find
.Text = "Passed"
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute(Forward:=True) = True
iCount = iCount + 1
Loop
End With
答案 0 :(得分:0)
像......一样的东西?
Dim col As Column
Set col = ActiveDocument.Tables(3).Columns(3)
col.Cells(1).Range.Text = "Abc"
Debug.Print col.Cells(1).Range.Text