Question

Word VBA 读取 任意表格的高度和宽度

有一个文档，里面有很多个不同大小、无规则的表格

我想要让每个宽度大于150毫米，都缩小到宽度150毫米，或者高度大于200毫米的表格，变成高度200毫米，小的表格不变

这样就需要读取每个表格的宽度、高度，然后进行判断

我看了一下，似乎ActiveDocument.Tables(i).PreferredWidth 只能设置表格宽度，不能读取表格宽度

高度更不知道怎么办

（它里面每一行每一列不一定相等，有些长有些短，而且有些是合并单元格的，所以也不能用 “第一列的宽度×列数” 来算出总列宽）

有没有办法实现这样的操作呢？

Answer 1

 操作步骤：

1、选中表格，单击鼠标右键，弹出快捷菜单，选择表格属性命令，如图所示；

2、弹出表格对话框，选择行选项卡，选中指定高度复选框，在输入框中输入所需要的高度值，如图所示；

3、选择列选项卡，选中指定宽度复选框，在输入框中输入所需要的高度值，如图所示；

Answer 2

Dim tb As Table

For Each tb In ThisDocument.Tables()

    For i = 1 To tb.Columns.Count

        tb.Cell(1, i).Range.Text = tb.Columns(i).Width / 28.35  'cm

        'MsgBox tb.Columns(i).Width / 28.35

    Next

    For j = 1 To tb.Rows.Count

          tb.Cell(j, 1).Range.Text = tb.Cell(j, 1).Range.Text & tb.Rows(j).Height / 28.35  '厘米

      'MsgBox tb.Rows(j).Height / 28.35 

    Next

Next

以上是读取每一行列的宽、高，但合并单元格之后，就可能会出现错误。

Answer 3

试试ActiveDocument.Tables(i).PreferredHeight