用VBA在每个表格后面插入一个空白段落

wjkzhjt

发现word中表格与紧跟后面的文字是属于同一个段落，请问如何在每个表格后尾加入一个空白段落？让表格单独存在一个段落中。

konggs

Sub a_1000()

    Dim tempTable As Table
    Dim tempRange As Range
    For Each tempTable In ActiveDocument.Tables
        Set tempRange = ActiveDocument.Range(tempTable.Range.End, tempTable.Range.End)
        tempRange.InsertAfter Chr(13)
    Next
   
End Sub

wjkzhjt

谢谢，如意版主。
版主的思路就是和我不一样。

konggs

我是如意？

wjkzhjt

wjkzhjt

原帖由 konggs 于 2009-5-13 07:36 发表
Sub a_1000()

    Dim tempTable As Table
    Dim tempRange As Range
    For Each tempTable In ActiveDocument.Tables
        Set tempRange = ActiveDocument.Range(tempTable.Range.End, tempTable.Ran ...

KONGS再次请教。你的代码能偶在表格末尾加入一个空行。
但我的为什么不行。加入的标识行总在表首位单元格里面，      就算这句改为  Set tempRange = ActiveDocument.Range(tempTable.Range.Start, tempTable.Range.End)
        Set tempRange = ActiveDocument.Range(tempTable.Range.Start-1, tempTable.Range.End+1)，可以在表格前后加入标识行，单（tempTable.Range.End+1）总把后边一个字符断开了。

代码如下：

Sub 表格前后加标识行()

    Dim tempTable As Table
    Dim tempRange As Range
    For Each tempTable In ActiveDocument.Tables
        Set tempRange = ActiveDocument.Range(tempTable.Range.Start, tempTable.Range.End)
        With tempRange
        .InsertBefore "表格开头标识"
        .InsertParagraphBefore
        .InsertAfter "表格结尾标识"
        .InsertParagraphAfter
        End With
    Next
   
End Sub

ywzx703

wjkzhjt 发表于 2009-5-26 10:53
KONGS再次请教。你的代码能偶在表格末尾加入一个空行。
但我的为什么不行。加入的标识行总在表首位单元 ...

楼主，删除表格前的回车问题解决了吗？