批量设置多个表格的单元格边距

cindyddi

    各位大侠，报告里有N多表格，原版里对各表格的设置不尽相同，现需要统一单元格的边距。但发现用宏同时选择多个表格并进行设置后，发现并未达到预期效果。后来我进行了一下测试，同时选择两个以上单元格，然后点击“表格属性”中的“单元格”选项卡，进行的设置都是无效的，换句话说，“表格属性”中的“单元格”选项卡，只针对单个表格生效，无法一并设置。

    不知道是不是我哪里理解的有问题，现在需要改的表格特别多，而且每个表格的上标题行、以及填写文字或数字的单元格，都是不一样的设置，请问用什么方法可以一并设置好呢？

    非常感谢。

csnAlex

上个例子，写清楚详细的设置要求

413191246se

有个宏叫选中全部表格，可以设置表格行高；另外，可以用我的宏，循环遍历每个表格，再设置属性，属性自己录制宏试试吧！
'Sub 表格全选()
'    Dim t As Table
'    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'    For Each t In ActiveDocument.Tables
'        t.Range.Editors.Add wdEditorEveryone
'    Next
'    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
上面是“选中全部表格”宏，下面是我自己自编独创的“表格处理”宏（特点：当光标在表格中时，处理当前表格；否则，处理所有表格）：
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.9)
            End With
            With .Range
                With .Cells
                    .DistributeWidth
                    .VerticalAlignment = wdCellAlignVerticalCenter
                End With
                .Font.Size = 12
                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"
                .Bold = True
            End With
        End With
        If n = 1 Then Exit For
    Next
End Sub

413191246se

楼主，表格全选的话，只能设置行高；建议循环遍历每一个表格，再设置属性，属性自己自行录制宏试试（楼主没说会不会用宏，不说不贴代码）。