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

wjkzhjt · 发表于 2009-5-12 18:17

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

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.Range.End)
tempRange.InsertAfter Chr(13)
Next

End Sub

wjkzhjt · 发表于 2009-5-13 15:44

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

konggs · 发表于 2009-5-13 19:23

我是如意？

wjkzhjt · 发表于 2009-5-20 12:03

wjkzhjt · 发表于 2009-5-26 10:53

原帖由 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 · 发表于 2014-9-9 12:44

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

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

		自动登录	找回密码
密码			免费注册

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