使用word宏只更改三个列表

Question

以下是我正在用于将大文档重新格式化为我们公司品牌的宏的摘录。

Selection.Tables(1).Select 
    Selection.Columns(1).Width = CentimetersToPoints(5.46) 
    Selection.Columns(2).Width = CentimetersToPoints(10.92) 
    Selection.Rows.HeightRule = wdRowHeightAtLeast 
    Selection.Rows.Height = CentimetersToPoints(0.8) 

我得到现在已经来过三页的表以及两个列的表，我想这些有5.46宽的所有列的文件，而我需要两页的表坚持使用我已经在上面指定的宽度，以保持所有的格式看起来不错。

我想放入一个“如果，然后”类型的声明，说如果表有三列做这个，如果表有两个然后做这个，但我不知道如何识别3列表2列表。

Answer 1

编辑：更新处理行宽度不均匀的行。

Dim tbl As Table 
Dim rw As Row 

Set tbl = ActiveDocument.Tables(1) 

For Each rw In tbl.Rows 
With rw 

    .Cells(1).Width = CentimetersToPoints(5.46) 

    If .Cells.Count = 2 Then 
     .Cells(2).Width = CentimetersToPoints(10.92) 
    ElseIf .Cells.Count = 3 Then 
     .Cells(2).Width = CentimetersToPoints(5.46) 
     .Cells(3).Width = CentimetersToPoints(5.46) 
    Else 
     'what do do if not 2 or 3? 
    End If 

    .HeightRule = wdRowHeightAtLeast 
    .Height = CentimetersToPoints(0.8) 
End With 
Next rw