vba如何设置合并表格标题行的字体格式

385893066

我有很多表格式是不一样的，有些表格某列前几行有合并，那么这个表有合并的前几行都是标题行。我通过如下代码实现了合并的前几行都设置为标题行，但是设置字体格式的时候只有第一行能成功设置。请问如何可以把所有标题行的字体格式都成功设置。

1. aTable.Range.Cells(1).Select
   
2.         With Selection
   
3.             .SelectRow
   
4.             .ParagraphFormat.Alignment = wdAlignParagraphCenter
   
5.             .Rows.HeadingFormat = True
   
6.             .Font.Bold = True
   
7.             .ParagraphFormat.KeepWithNext = True
   
8.             .ParagraphFormat.KeepTogether = True

复制代码

385893066

有大佬帮助下不

zldccmx

想要快速获得帮助，就应该提供附件。

385893066

我补充上传了文档，目标是把两个word的标题行都通过vba实现加粗和居中。主题的那段代码只能实现无论怎么样合并单元格，都是前几行重复标题行，但是无法实现都加粗和居中。

385893066

zldccmx 发表于 2023-2-9 17:01
想要快速获得帮助，就应该提供附件。

大佬，我在4楼补充上传了附件，是否可以帮忙看看呢？

zldccmx

测试文档.zip (15.75 KB, 下载次数: 17)

2023-2-15 13:29 上传

点击文件名下载附件

zldccmx

补充说明： X  为标题行（表头）所占用的行数

385893066

zldccmx 发表于 2023-2-15 13:29

您好，为什么我在这个文档里运行的时候是正常的，但当把这段代码运用到其他文档中的时候就会报错Z没有被定义？

zldccmx

385893066 发表于 2023-2-15 23:05
您好，为什么我在这个文档里运行的时候是正常的，但当把这段代码运用到其他文档中的时候就会报错Z没有被 ...

代码第二行位置加一名代码 Dim Z

xseyuan

第一行为标题行，可以用这个
Sub 所有表格标题行重复底纹颜色字体加粗()
Rem  设置表格第一行的底纹颜色，以左上第一单元格所占行数为第一行
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
         tbl.Cell(1, 1).Select
         Selection.SelectRow
         Selection.Font.Bold = True '设置字体加粗
         Selection.Shading.BackgroundPatternColor = RGB(180, 200, 220) '设置底纹颜色
         Selection.Rows.HeadingFormat = True   '设置标题行跨页重复
    Next tbl
    Set tbl = Nothing
End Sub