实现代码
vbnet
Sub DeleteTableCarriageReturns()
Dim oTbl As Table
Dim oCell As cell
Dim oRng As Range
' 遍历文档中所有表格
For Each oTbl In ActiveDocument.Tables
' 遍历表格中的每个单元格
For Each oCell In oTbl.Range.Cells
Set oRng = oCell.Range
oRng.End = oRng.End - 1 ' 排除单元格结束标记
' 在单元格范围内执行替换
With oRng.Find
.Text = "^p" ' 匹配段落标记
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop ' 仅在当前范围操作
.Execute Replace:=wdReplaceAll
End With
Next oCell
Next oTbl
End Sub
代码使用方法见批量处理word里面表格的空白行