如何用VBA给WORD文档内所有表格设置 重复标题行?

matrixx

如何用VBA给WORD文档内所有表格设置 重复标题行?

413191246se

楼主，如果表格均是规则的（无合并/无拆分），并且第一行是表头，这时重复标题行就很容易，只须判断该表格是否跨页（表格首字符和尾字符所在页码不同则为跨页）；否则不太好办。下面代码仅供参考：

1. Sub TableHeadingRepeat()
   
2.     Dim t As Table
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range
   
5.             If .Characters.First.Information(wdActiveEndPageNumber) <> .Characters.Last.Information(wdActiveEndPageNumber) Then
   
6.                 .Rows(1).Select
   
7.                 Selection.Rows.HeadingFormat = True
   
8.             End If
   
9.         End With
   
10.     Next
    
11. End Sub

复制代码

matrixx

太复杂的情况不考虑了，就这个用着不错

matrixx

第二行 有 合并单元格 脚本 竟然都跑不下去 。  我只要第一行重复就行了啊， 把第一行做到规整应该就可以了啊。