如何批量设置WORD中表格格式

dazhanzhishi

格式要求： 1、表中字体宋体、10号； 2、表头为加粗居中（部分表格有两行或合并单元格），跨页重复显示标题。 3、“合计”行字体加粗；（部分表格没有合计行） 4、表格第一列字体靠右加粗，后面的列内容如为数字则靠右，为其他内容则居中。 求各路大神指点，主要是因为一个表格涉及多个部分不同格式调整，不知道如何选择要调整格式的区域。谢谢！！！新手求关照。

413191246se

新手朋友：你好！欢迎！——你应该说明一下你所用的 Word 版本，是 2003 还是 2007 及以上？还有，要解决问题，需要提供一个模拟附件，说明要达到的目的（问题是啥，目标是啥）。最后，要说明一下会不会用 VBA 代码。

ming0018

会VBA就简单，不会就难了。

dazhanzhishi

413191246se 发表于 2018-6-5 23:54
新手朋友：你好！欢迎！——你应该说明一下你所用的 Word 版本，是 2003 还是 2007 及以上？还有，要解决问 ...

大神，需要调整的WORD和调后的样式都在附件里。有点复杂，不好意思啦...我的VBA水平属于不入门的那种。

dazhanzhishi

ming0018 发表于 2018-6-6 08:26
会VBA就简单，不会就难了。

不太会，只是觉得这种重复操作应该可以用VBA解决。每次写附注报告都要调整很久格式，太浪费时间了

dazhanzhishi

413191246se 发表于 2018-6-5 23:54
新手朋友：你好！欢迎！——你应该说明一下你所用的 Word 版本，是 2003 还是 2007 及以上？还有，要解决问 ...

我的WORD是2007版本的。

lhw721

Sub 表格处理()
    On Error Resume Next
    Dim t As Table, n As Long
    If Selection.Information(wdWithInTable) = True Then Selection.Tables(1).Select: n = 1
    For Each t In ActiveDocument.Tables
        If n = 1 Then Set t = Selection.Tables(1) Else t.Select
        With t
            With .Rows
                .WrapAroundText = False
                .Alignment = wdAlignRowLeft
                .HeightRule = wdRowHeightAtLeast
                .Height = CentimetersToPoints(0.65)
            End With
            With .Range
                With .Cells
                    .DistributeWidth
                    .VerticalAlignment = wdCellAlignVerticalCenter
                End With
                .Font.Size = 10.5
                With .ParagraphFormat
                    .Alignment = wdAlignParagraphCenter
                    .CharacterUnitFirstLineIndent = 0
                    .FirstLineIndent = CentimetersToPoints(0)
                    .Space1
                End With
            End With
            .Shading.BackgroundPatternColor = wdColorAutomatic
            .AutoFitBehavior (wdAutoFitContent)
            .AutoFitBehavior (wdAutoFitContent)
            .Select
            .AutoFitBehavior (wdAutoFitWindow)
            .AutoFitBehavior (wdAutoFitWindow)
            With .Rows(1).Range.Font
                .Name = "宋体"
                .Name = "Times New Roman"
            End With
                Options.DefaultBorderLineWidth = wdLineWidth150pt
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
        End With
        End With
        If n = 1 Then Exit For
    Next
End Sub



这是我在用的代码，你将就着用吧