请教下我这两个word中表格宏为什么不能执行。

45hill

我在word中做了两个宏，一个是选择文档中所有的表格，第二个是将选中的表格套用定义好的表格格式，但是我首先运行第一个宏后，再运行第二个宏时有报错。但是单独选择一个表格运行第二个宏却可以运行，请各位大虾帮忙看下。我的表格格式是字体五号，中文宋体西文Times New Roman，段落单倍行距，段前段后都是0，根据窗口调整表格，水平和垂直都是居中。下面是我的两个宏的代码。
Sub 选择表格()
Dim temptable As Table
Application.ScreenUpdating = False

'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
  MsgBox "文档已保护，此时不能选中多个表格"
Exit Sub
End If
'删除所有可编辑的区域 预防性删除
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each temptable In ActiveDocument.Tables
temptable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑的区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Sub 表格格式()
'
' 表格格式 Macro
' 宏在 2008-11-7 由 wangyunke 录制
'
    With Selection.Font
        .NameFarEast = "宋体"
        .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = ""
        .Size = 10.5
        .Bold = False
        .Italic = False
        .Color = wdColorAutomatic
    End With
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .FirstLineIndent = CentimetersToPoints(0)
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .WordWrap = True
    End With
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    Selection.Rows.AllowBreakAcrossPages = True
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End Sub

运行第一个后再运行第二个报错的是“Selection.Rows.AllowBreakAcrossPages = True”这句

守柔

你这是多此一举了！
哪有使用宏全选表格后，再运行对所选表格进行格式设置的，逻辑思路不对。出现错误是所选内容为多个表格时，Word无法实现跨页断行所致。
请按以下代码进行：
Sub Example()
    Dim oTable As Table
    If ActiveDocument.ProtectionType <> wdNoProtection Then Exit Sub
    Application.ScreenUpdating = False
    For Each oTable In ActiveDocument.Tables
        oTable.Select
        Call 表格格式
    Next
    Application.ScreenUpdating = True
End Sub
Sub 表格格式()
'
' 表格格式 Macro
' 宏在 2008-11-7 由 wangyunke 录制
'
    With Selection.Font
        .NameFarEast = "宋体"
        .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = ""
        .Size = 10.5
        .Bold = False
        .Italic = False
        .Color = wdColorAutomatic
    End With
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .FirstLineIndent = CentimetersToPoints(0)
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .WordWrap = True
    End With
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    Selection.Rows.AllowBreakAcrossPages = True
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End Sub
当然，其中第二个宏，可以更简化一些，楼主可以自己琢磨一下，使用表格和Range对象，而不必使用Selection对象。

45hill

我经常要对长篇的word文档排版，所有表格都要用统一的格式，所以想用两个宏来完成。我按照大哥说的改了代码，可是执行后没有效果啊！不过还是谢谢大哥了。