如何使用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))                

在这种情况下,单元格值之间没有分隔符,因此您可能希望连接空格.