word vba 实现表格最末一行增加空白行

大罡

想用vba实现 在当前表格运行脚本，实现当前表格的最末一行增加一个空白行。
效果如下：
before：




after:




谢谢，这个vba代码该怎么写？

limonet

两个图一样的。

wdpfox

limonet 发表于 2022-2-16 17:59
两个图一样的。

表格后有一个空行

大罡

不用脚本，似乎很难操作啊

limonet

Sub TabalEndAddParagraph()
    For i = 1 To ActiveDocument.Tables.Count
        ActiveDocument.Paragraphs(ActiveDocument.Range(0, ActiveDocument.Tables(i).Range.End).Paragraphs.Count).Range.Select
        Selection.Move wdParagraph, 1
        Selection.InsertParagraphAfter
    Next
End Sub

大罡

谢谢你。
但是老兄你的代码只适合在表格下面是文本的情况下，
我的提问还没能满足啊，即表格下面是标题的情况，运行后又多了一个带标题的空行，而不是那种单纯的空行。如下图所示:
代码运行前：


运行后:



1.2那个空行是问题所在。

limonet

Sub TableEndAddParagraph()
    For i = 1 To ActiveDocument.Tables.Count
        ActiveDocument.Paragraphs(ActiveDocument.Range(0, ActiveDocument.Tables(i).Range.End).Paragraphs.Count).Range.Select
        Selection.Move wdParagraph, 1
        Selection.InsertParagraphAfter
        ActiveDocument.Paragraphs((ActiveDocument.Range(0, ActiveDocument.Tables(i).Range.End).Paragraphs.Count) + 1).Range.Select
        Selection.ClearFormatting
    Next
End Sub

大罡

谢谢。这下没问题了
这一行是不是可以不用？
ActiveDocument.Paragraphs((ActiveDocument.Range(0, ActiveDocument.Tables(i).Range.End).Paragraphs.Count) + 1).Range.Select

大罡

谢谢，可以运行了。

是否可以删除这一行？
ActiveDocument.Paragraphs((ActiveDocument.Range(0, ActiveDocument.Tables(i).Range.End).Paragraphs.Count) + 1).Range.Select

gbgbxgb

1. Sub kkk()
   
2.     Dim myTbl As Table
   
3.     If Selection.Information(wdWithInTable) Then
   
4.         With Selection.Tables(1).Range
   
5.             .Collapse 0
   
6.             .InsertParagraphAfter
   
7.         End With
   
8.     End If
   
9. End Sub

复制代码