如何在WORD2013中用VBA编程指定表格某一行的字体和格式？

木鸭

如上所问，我有1000多个表格，想用VBA编程指定某一行的字体、字号、格式居中，能做到吗？用格式刷太累了！

duquancai

在活动文档中循环遍历表格，下列事例：在活动文档中，加粗每个表格中的第二行字符、字号“四号”、字体“微软雅黑”；字符在单元格居中格式
Sub test()
Dim t As Table, s As Range
    For Each t In ActiveDocument.Tables
        Set s = t.Rows(2).Range
            With s.Font
                .Bold = True
                .Size = 14
                .Name = "微软雅黑"
            End With
        s.ParagraphFormat.Alignment = wdAlignParagraphCenter
        s.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    Next
End Sub

wdpfox

学习了，多谢杜老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

山水星

怎么我的显示出错。