如何快速更改WORD表格的格式

晚安吾爱

见附件，第二页的表格和第一页的表格不一样宽，也可能有其他的格式不同，我想把所有的表格都改为和第一页的表格一样，有几百页这样的表，有什么好的办法没有 A4uCJIXL.rar (3.57 KB, 下载次数: 28)

2005-9-13 14:24 上传

点击文件名下载附件
如何快速更改WORD表格的格式

gdqbx

我也想知道。

konggs

参考下面的：

Sub 表格统一样式()
'读取第一个表格
Dim atable As Table
Dim i%, awidth, aheight
Dim i1%
Dim aleftrow
Application.ScreenUpdating = False

Set atable = ActiveDocument.Tables(1)

ReDim awidth(1 To atable.Range.Cells.Count)
ReDim aheight(1 To atable.Range.Cells.Count)
With atable.Range
    aleftrow = .Rows.LeftIndent '左缩进
    '读进数组
    For i = 1 To .Cells.Count
         awidth(i) = .Cells(i).Width
         aheight(i) = .Cells(i).Height
    Next
End With
'把数组的值依次读到Word的表格中，当然，从第二个表格算起
For i = 2 To ActiveDocument.Tables.Count
    With ActiveDocument.Tables(i).Range
        .Rows.LeftIndent = aleftrow
        For i1 = 1 To .Cells.Count
            .Cells(i1).Width = awidth(i1)
            .Cells(i1).Height = aheight(i1)
        Next
    End With
Next

Application.ScreenUpdating = True
End Sub