使用VBA修改Word文档所有表格文本样式并设置首行加粗的求助

• 原代码中未定义txt变量，也没有将其关联到表格的文本范围，操作不存在的对象触发了报错
• 表格样式需要绑定到表格的Range对象才能正确生效

Sub AutoTableFormat()
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        ' 应用Table Text样式到当前表格所有内容
        tbl.Range.Style = ActiveDocument.Styles("Table Text")
        ' 设置表格第一行文本加粗
        tbl.Rows(1).Range.Bold = True
    Next
End Sub

• 运行前请确认你的Word文档中确实存在名为Table Text的样式，如果样式名是中文的（比如「表格文本」），需要把代码里的样式名替换为对应中文
• 如果表格是嵌套表格，上述代码会同时处理嵌套的子表格，如果不需要处理嵌套表格，可以额外加判断条件过滤

内容的提问来源于stack exchange，提问作者Dawson Hayfield