我有一个 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
将显示一个“列”消息框.如何在显示消息框时删除换行符和点。
最佳答案
Word 使用两个字符作为单元格分隔符,因此使用
uResp = uResp & Trim(left(strCellText,len(StrCellText)-2))
在这种情况下,单元格值之间没有分隔符,因此您可能需要连接一个空格。
关于vba - 如何使用 VBA 修剪 MS Word 中的表格单元格值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15585202/