如何删除Word表格单元格的回车结束？答案

【问题标题】：how to remove carriage return end of a Word table cell?如何删除Word表格单元格的回车结束？
【发布时间】：2018-07-07 20:23:06
【问题描述】：

将 html 数据粘贴到 Word 表格单元格中。它会创建回车符表格单元格的结尾。如何仅删除表格单元格的结尾处的回车符。

【问题讨论】：

stackoverflow.com/q/3860184/5962841 的可能重复项 - 如何使用 VB 或公式从 Excel 单元格中删除空白换行符？
字表单元格
下次自己设置标签，帮助你得到更好的答案！
您想要/期望什么并不完全清楚 - 您使用 VBA 标签，但没有背景。您是否已经有代码 - 请显示它，以便我们知道从哪里开始。我们给你的任何答案都会断章取意……
请看图片

标签： vba ms-word

【解决方案1】：

以下将删除单元格标记结束前的 ¶

Dim rngcell As Range
Set rngcell = Selection.Cells(1).Range
rngcell.Start = rngcell.End - 2
rngcell.Text = Replace(rngcell.Text, vbCr, "")

【讨论】：

【解决方案2】：

这将删除回车并调整行的大小

Public Sub removeCR(ByRef rng As Word.Table)
    For Row = 1 To tbl.Rows.Count
        For col = 1 To tbl.Columns.Count
            Call tbl.Cell(Row, col).Select
            With Selection
                If Len(.Text) > 2 Then
                    If Mid(.Text, Len(.Text) - 2, 1) = vbCr Then
                        Let .Text = Left(.Text, Len(.Text) - 3) & chr$(7)
                    End If
                End If
            End With
        Next col
        Let tbl.Rows(Row).HeightRule = wdRowHeightAuto
    Next Row
End Sub

如果您必须删除多个回车符，或者必须处理换行符，那么您可以考虑修改最里面的 If 语句，例如

While Mid(.Text, Len(.Text) - 2, 1) = vbCr Or _
        Mid(.Text, Len(.Text) - 2, 1) = vbLf
    Let .Text = Left(.Text, Len(.Text) - 3) & Chr$(7)
Wend

【讨论】：

【解决方案3】：

如下 - 对于文档中所有表格的所有单元格中的所有终止段落标记：

Dim Tbl As Table, TblCell As Cell, Rng As Range
For Each Tbl In ActiveDocument.Tables
  For Each TblCell In Tbl.Range.Cells
    Set Rng = TblCell.Range
    With Rng
      .End = .End - 1
      Do While .Characters.Last = vbCr
        .Characters.Last = vbNullString
      Loop
    End With
  Next
Next

不过，最好不要一开始就插入它们，在我们看到 OP 的代码之前，我们无法建议如何最好地实现它。

【讨论】：