排版时候统一设置表格格式

cuanju

运行了413191246se老师的代码后，发现可以增加一个代码， 将word附注表格中所有合计行加粗并让“合计”二字居中对齐，代码如下：

Sub word附注合计行加粗并居中()
    For Each Tbl In ActiveDocument.Tables
        For Each rn In Tbl.Range.Cells
            If rn Like "合*计" & Chr(13) & Chr(7) Then
                rn.Range.Select
                Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
                Selection.SelectRow
                Selection.Font.Bold = True
            End If
        Next
    Next
End Sub

郭宏伟66

cuanju 发表于 2019-10-26 15:19
运行了413191246se老师的代码后，发现可以增加一个代码， 将word附注表格中所有合计行加粗并让“合计”二 ...

厉害了、我现在还是入门的皮毛

郭宏伟66

权花錵 发表于 2019-10-18 11:17
我看了你的问题自己弄了下代码，测试过了也能运行，你要的要求也达到了。

Sub 表格格式()

十分感谢、最近忙的一直没来看过了、现在对这些懂点了小小得皮毛

郭宏伟66

权花錵 发表于 2019-10-18 11:17
我看了你的问题自己弄了下代码，测试过了也能运行，你要的要求也达到了。

Sub 表格格式()

其他的按照您这个都可以实现 就是表格第一行也就是表头遇到表头是合并的单元格的表 就不行了

413191246se

* 楼上朋友，有合并拆分的表格单元格，如果有固定的特征词，如第某单元格是“XX”的话，可以用 if 语句假设一下，即 if t.range.cell(y).range.text="XX" then ...关键是同样的表格有一样的格式就好。