word如何在每个表格后加一个分页符

慕颜韵

就是让不同的表格不放在同一页，麻烦大神了

413191246se

楼主，插入菜单——分隔符——分页符，循环操作。或在表格后按 Ctrl+Enter（回车）。或用 VBA 法。

413191246se

Sub 表格后面插入分页符()
    Dim t As Table
    For Each t In ActiveDocument.Tables
        t.Range.Next.InsertBreak
    Next
End Sub

慕颜韵

413191246se 发表于 2019-5-29 16:18
Sub 表格后面插入分页符()
    Dim t As Table
    For Each t In ActiveDocument.Tables

谢谢大神哦，这个会报错，我看了下帮助，改成下面的，只有两个换行符时才能用，否则会报错，麻烦大神帮我看下问题在哪（t.range.next.insertbreak type:=wdpagebreak，也会报错，用selection就能用，麻烦大神讲一下，这个除了选中一下没有区别吧）
Sub 表格后面插入分页符()
    Dim t As Table
    For Each t In ActiveDocument.Tables
        t.Range.Next.Select
        Selection.InsertBreak Type:=wdPageBreak
    Next
End Sub

慕颜韵

413191246se 发表于 2019-5-29 16:17
楼主，插入菜单——分隔符——分页符，循环操作。或在表格后按 Ctrl+Enter（回车）。或用 VBA 法。

谢谢大神哦，就是表格有点多，一个个弄有点慢，想看看大神们有没有更简便的方法，很谢谢，学会了ctrl+enter

慕颜韵

413191246se 发表于 2019-5-29 16:18
Sub 表格后面插入分页符()
    Dim t As Table
    For Each t In ActiveDocument.Tables

您的是4198，命令失败
我见出错了点了F1，加了type, 刚试了下，您的也是只有两个换行符的时候可以用，一个会出错

413191246se

1. Sub test()
   
2.     Dim t As Table
   
3.     With ActiveDocument
   
4.         If .Paragraphs(1).Range.Information(12) Then .Characters(1).Select: Selection.SplitTable
   
5.         For Each t In .Tables
   
6.             With t.Range
   
7.                 With .Rows
   
8.                     .WrapAroundText = False '取消环绕
   
9.                     .Alignment = wdAlignRowCenter '居中
   
10.                 End With
    
11.                 .Next.InsertBreak Type:=wdPageBreak '插入分页符
    
12.                 If .Previous(4, 1).Text = vbCr Then .Previous(4, 1).Font.Size = 1
    
13.             End With
    
14.         Next
    
15.         .Content.Find.Execute "(^13)(^12)", , , 1, , , , , , "\2", 2
    
16.     End With
    
17. End Sub

复制代码

Miki丶

413191246se 发表于 2019-5-30 00:26

大神， 第11行也4198了， 我也有这个表格分页的问题，刚好看到了想参考参考

413191246se

第11行代码也可以改为（试试）：
.Next.Select
Selection.InsertBreak Type:=wdPageBreak

wdpfox

学习了，谢谢解答！

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！