vba - 如何使用VBA修剪MS Word中的表格单元格值

我在Word文件中有一个表。
下面的vba程序将遍历所有表单元格

Dim strCellText As String
Dim uResp As String
Dim Row As Integer
Dim Col As Integer

Dim itable As Table


For Each itable In ThisDocument.Tables

    uResp = ""

    For Row = 1 To itable.Rows.Count

        For Col = 1 To itable.Columns.Count

            strCellText = itable.Cell(Row, Col).Range.Text
            uResp = uResp & Trim(strCellText)

        Next

    Next

    MsgBox uResp
Next

VBA在uResp = uResp & Trim(strCellText)行中为每个单元格添加了一个换行符和一个点。因此MsgBox uResp将显示一个'column'消息框。如何在显示该消息框时删除换行符和点。

最佳答案

Word使用两个字符作为单元格分隔符，因此请使用

uResp = uResp & Trim(left(strCellText,len(StrCellText)-2))

在这种情况下，单元格值之间将没有分隔符，因此您可能需要串联一个空格。