Sub a()
    For Each xxx In ThisDocument.Tables
        xxx.Rows(1).HeadingFormat = wdToggle
        On Error Resume Next
    MsgBox ("完成")
End Sub
On Error Resume Next：忽略错误，以免中断运行
 
 
                    添加开发工具选项——自定义——开发工具点击Visual Basic添加模块Sub a()    For Each xxx In ThisDocument.Tables        xxx.Rows(1).HeadingFormat = wdToggle    Next    MsgBox ("完成")End Sub左上运行
n = Selection.Rows.Count '选中区域的行数
a = Selection.Row '选中区域的起始行
b = Selection.Column '选中区域的起始列
Application.DisplayAlerts = False '禁用警告提示
For i = a + n - 1 To a + 1 Step -1 '从选中区域的最后一个
				
第1步，打开Word2007文档窗口，在Word表格中选中标题行（必须是表格的第一行）。在“表格工具”功能区切换到“布局”选项卡，然后在“表”分组中单击“属性”按钮，如下图所示。
第2步，在打开的“表格属性”对话框中，切换到“行”选项卡。选中“在各页顶端以标题行形式重复出现”复选框，并单击“确定”按钮即可，如下图所示。
小提示：用户可以在“布局”选项卡的“数据”分组中单击...
				
当Word文档中表格的内容多于一页时，我们可以设置标题行重复，使其反复出现在每一页表格的首行或数行，这样更便于表格内容的理解，也能满足某些时候表格打印的要求。
　　1.如果表格的第一行作为标题行，需选中第一行（全部或部分）或将插入点置于第一行的单元格中；如果
    '选择表格宽度100%
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent
    Selection.Tables(1).PreferredWidth = 100
    '选择表第一行
    Selection.Tables(1).Rows(1).Select
    '重复标题行
    Selection.Rows.HeadingForm
            '设置表格标题跨页重复显示
            MyTable.Rows(1).HeadingFormat = True
            MyTable.Rows(1).PageBreakBefore = False
        Next MyTable
        '关闭 Word 文档
        MyDoc.Close SaveChanges:=True
        '获取文件夹中的下一个文件
        MyFile = Dir
End Sub