我有一个 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))
在这种情况下,单元格值之间没有分隔符,因此您可能需要连接一个空格。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)