在word表格中每个单元格结尾都会出现一个类似段落分隔符的字符,如下图所示:乍看之下,跟段落分隔符没有任何区别,那真实的情况是否如此呢?接下来我们用代码来测试下:
Sub QQ1722187970() Dim oT As Table Dim oCell As Cell Dim oDoc As Document Dim sText As String Dim arr() As Byte Set oDoc = Word.ActiveDocument With oDoc '获取第一个段落分隔符 sText = .Range(0, 1) arr = sText For i = 0 To UBound(arr) Debug.Print arr(i) Next i '获取第五个单元格的内容 sText = .Tables(1).Range.Cells(5).Range.Text arr = sText For i = 0 To UBound(arr) Debug.Print arr(i) Next i End With End Sub
当运行了以上的代码以后,将在立即窗口中输出以下值
13
0
13
0
7
0
结合监视窗口,可以发现表格之外的段落分隔符是用ASCII表中的13存储的,也就是回车符。而表格中的类似段落分隔符的字符实际上包含了2个字符,一个是ASCII表中的13,另一个是ASCII表中的7。
通过以上的分析,如果要表示一个word表格的某个单元格的结尾字符,可以使用 Chr(13) & Chr(7)两个字符表示。
很强
好