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

Question

我有一个 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

在 uResp = uResp & Trim(strCellText) 行中，VBA 向每个单元格附加一个换行符和一个点。因此 MsgBox uResp 将显示一个“列”消息框.如何在显示消息框时删除换行符和点。

Answer 1

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

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

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