怎样在Word中用VBA操作表格

Posted 2023-03-23

1、在新工作表的Sheet1上点击右键

2、选择查看代码

3、点击倒三角，选择Worksheet

4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发

5、点击候出现如下代码框架

6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格

7、点击保存，然后关闭VBA窗口

8、由于A1,B1没有数据，所以C1为0

9、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。

10、双击鼠标左键后就变了

参考技术A 使用VBA操作Word表格
一、生成表格
Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range
Set mRange = ActiveDocument.Range
mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End
Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub
上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。 二、在读写表格中的单元格 写入单元格使用如下代码：
TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter "文本" 上面代码的做用时在curRow行，curColumn列处插入字符“文本”。
其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。
三、调整单元格对齐方式 水平对齐设置
Selection.ParagraphFormat.Alignment=水平对齐常数（具体的常数可以查看帮助文件的说明） 如何选择单元格？ 选定特定单元格
TableObject.Cell(Row:=1,Column:=1).Select’选定单元格1,1 选定行
TableObject.Rows(i).Select’选定第i行 选定列
TableObject.Columns(i).Select’选定第i列 选定整个表格 TableObject.Select
首先执行表格元素选择程序，然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。
垂直对齐方式
Selection.Cells.VerticalAlignment=垂直对齐常数
也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。 四、设置表格边线类型
下面的代码对整个表格的所有边线设置成细实线： SelfGenTable.Select With Selection
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
Borders(wdBorderVertical).LineStyle = wdLineStyleSingle End With
同样是对Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。 五、调整表格尺寸
下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10： Dim WidthP(0 To 2) As Integer Dim j As Integer dim i as Integer WidthP(0) = 30 WidthP(1) = 10 WidthP(2) = 10 j = 0
For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End If
SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) j = j + 1 Next
上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。 表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了） ===============================================
编写操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。 ===============================================
下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。 Private Function FoldText(mLen As Integer, mStr As String) As String '折叠文字函数，mLen为折叠前的文字长度，mStr为文字的内容 Dim i As Integer
Dim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen Then
Do While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen)
mStr = Right(mStr, Len(mStr) - mLen)
tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf Loop
tmpStr(1) = tmpStr(1) + mStr Else
tmpStr(1) = mStr

Word-vba：识别托管范围的表

【中文标题】Word-vba：识别托管范围的表

【英文标题】：Word-vba: Identifying the table hosting a range

【发布时间】：2022-01-11 16:54:54

【问题描述】：

我正在尝试识别范围的表索引；或更具体地说： 我有一个带有一些表格的 Word 文档，每个表格都包含复选框类型的 ContentControls。我正在循环 ContentControls，如果类型是 CheckBox，那么我想操作表格中的文本，但要做到这一点，我需要知道表格索引。 我可以确定 CheckBox 是否实际上在一个表中（两种方法之一），我可以识别行号和列号，但我还没有弄清楚如何建立表号。

Dim docActive As Document
Dim ContCtrl As ContentControl
Dim TableNo As Integer
Dim UpperLeftText As String
Set docActive = ActiveDocument

For Each ContCtrl In docActive.ContentControls
  If ContCtrl.Type = wdContentControlCheckBox Then
    If ContCtrl.Range.Information(wdWithInTable)
       MsgBox ("RowNumber: " & ContCtrl.Range.Information(wdEndOfRangeRowNumber))
       TableNo = ContCtrl.Range.Information(wdTableNumber))  ' This doesn't work, I know, and this is the line for which I need help
       MsgBox ("TableRef: " & TableNo)
       UpperLeftText = docActive.Tables(TableNo).Rows(1).Cells(1).Range.Text ' Contents of upper left cell assigned to variable UpperLeftText
    End If
  End If
Next

有什么想法吗？

是的，我可以算出表格的数量，然后循环遍历这些表格，这将是一个已知的数字，但这并不是很优雅...

【参考方案1】：

您不需要通过使用其在文档的表集合中的索引来访问内容控件所在的表。您可以简单地使用内容控件范围的 Tables 集合，即

UpperLeftText = ContCtrl.Range.Tables(1).Rows(1).Cells(1).Range.Text

【讨论】：

太棒了 - 非常感谢！