Word所有表格整体左右对齐并且一页只有一个表格VBA

Miki丶

想做一个把所有表格全部选中然后在每一页左右对齐，并且表格不会跨页很乱的那种，希望每一页就一个表格，然后网上搜索先弄了一个居中然后全部选中的，然后现在是手动点了取消允许跨页断格的选项把表格调成一页一页的， 但是同事的电脑用不了，会闪退。
因为文件公司不允许发，只有放个图，这个其实就是一个一个表格，第一排第二个是标准的一页一个，后面就是乱的，想通过macro完成整理。
大神请帮忙看看这个代码有什么问题， 为什么经常会闪退
Sub ABP()


Dim tempTable As Table


Application.ScreenUpdating = False

'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone

'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True



    Dim doc As Document, myTable As Table
    Set doc = ActiveDocument
    If doc.Tables.Count = 0 Then Exit Sub
    For Each myTable In doc.Tables
            myTable.Range.Rows.Alignment = wdAlignRowCenter
    Next

Application.ScreenUpdating = False

'删除所有可编辑的区域
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

413191246se

楼主：表格一次选中处理，与一次选中一个表格循环处理效果是一样的。前者可能不如后者可靠、方便。何必追求一次选中呢？还有，你的图片，怎么截图的，我竟然看不到一个表格，也看不清一个字符。难道我像《皇帝的新装》里面的皇帝一样，竟然看不到那么精彩的表格？

Miki丶

413191246se 发表于 2019-5-31 00:00
楼主：表格一次选中处理，与一次选中一个表格循环处理效果是一样的。前者可能不如后者可靠、方便。何必追求 ...

额，我不会VBA，代码是网上百度的，发帖就是因为不懂才会问，截图里面的表格没有线，我也说了第一排第二张就是一个表格一页的例子，其他的都跨页断行了

413191246se

楼主，你还是提供一个正常的有表格线的附件才好，你的图片模糊不清，一个字符也看不清。