WordVBA技术：一组操作文档表格的代码

WordVBA技术：一组操作文档表格的代码
excelperfect
标签：Word VBA代码1：选择表格内的单元格区域使用Selection.SetRange语句来选择表格内指定的单元格区域。

示例代码：
•
•
•
•
'检查光标是否处于表格内If rmation(wdWithInTable) = False Then Exit Sub'选择表格内第2行第2列到第3行第3列的单元格区域Selection.SetRange Start:=Selection.Tables(1).Cell(2, 2).Range.St art, End:=Selection.Tables(1).Cell(3, 3).Range.End
代码2：删除表格内第一列中包含指定文本的行运行代码后，在对话框中输入指定文本，删除表格中包含该文本的所有行。

代码如下：
•
•
•
•
•
•
•
Dim strText As StringDim objRow As RowIf rmation(wdWithInTable) = False Then Exit SubstrTe xt = InputBox$('输入想要删除的文本:', '删除行')For Each objRow In Selection.Tables(1).Rows If objRow.Cells(1).Range.Text = strTe
xt & vbCr & Chr(7) Then objRow.DeleteNext objRow
代码3：显示表格内第一列中每个单元格的内容下面的代码遍历表格第1列并依次显示其单元格内容：
•
•
•
•
•
•
•
Dim objRange As RangeDim objCell As CellFor Each objCell In Selection.Tables(1).Columns(1).Cells Set objRange = objCell.Range objRange.SetRange Start:=objRange.Start,
End:=objRange.End - 1 MsgBox objRange.TextNext objCell 代码4：获取表格内单元格跨行数当我们合并表格内的单元格后，可以使用代码获取合并的单元格占几行，代码如下：
•
•
•
•
•
•
•
Dim objCell As CellFor Each objCell In ActiveDocument.Tables(1).Range.Cells objCell.Select MsgBox '跨行数 = ' & _ (rmation(wdEndOfRangeRowNumber) - _ rmation(wdStartOfRangeRowNumber)) + 1Next objCell
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。