如何在查找word中某个表格中的某个单元格里共计多少行？

yanghaipingabc

各位老师，有个问题想指教，假如这个截图是中红色表示的是ActiveDocument.Tables(2).Range.Cells(17).Range
那么我能知道这个红色区域共计多少行吗？
就是没有回车符的地方也算一行。

小花鹿

是不是算chr(13)的个数？

yanghaipingabc

小花鹿 发表于 2018-2-23 14:10
是不是算chr(13)的个数？

不是所有行都有chr（13）  ，每行的最后一位未必是chr（13）

yanghaipingabc

自己顶起来，别沉下去。

kevinchengcw

参考使用

1. Sub test()
   
2. Dim Rng As Range, Tbl As Table, Cel As Cell, N&
   
3. Set Rng = Selection.Range
   
4. For Each Tbl In ThisDocument.Tables
   
5.     For Each Cel In Tbl.Range.Cells
   
6.         If Cel.Range.Start <= Selection.Range.Start And Cel.Range.End >= Selection.Range.Start Then
   
7.             N = Cel.Range.Information(wdFirstCharacterLineNumber)
   
8.             ThisDocument.Range(Cel.Range.End, Cel.Range.End).Select
   
9.             Selection.MoveDown wdLine, 1
   
10.             N = Selection.Range.Information(wdFirstCharacterLineNumber) - N
    
11.             Rng.Select
    
12.             MsgBox N
    
13.             Exit For
    
14.         End If
    
15.     Next Cel
    
16. Next Tbl
    
17. End Sub

复制代码

小花鹿

yanghaipingabc 发表于 2018-2-23 14:15
不是所有行都有chr（13）  ，每行的最后一位未必是chr（13）

这样恐怕很难，没见过类似的问题

yanghaipingabc

kevinchengcw 发表于 2018-2-23 15:06
参考使用

测试的时候提示错误，不知道怎么调试

qingc0221

yanghaipingabc 发表于 2018-2-23 14:15
不是所有行都有chr（13）  ，每行的最后一位未必是chr（13）

没有换行符应该不算换行,而是空间不够自动转到下一行而已

duquancai

yanghaipingabc 发表于 2018-2-23 14:15
不是所有行都有chr（13）  ，每行的最后一位未必是chr（13）

1. Sub 写个例子()
   
2.     Dim Q As Range
   
3.     If ActiveDocument.Tables.Count < 2 Then MsgBox "不成在第2个表格！": Exit Sub
   
4.     If ActiveDocument.Tables(2).Range.Cells.Count < 17 Then MsgBox "第2个表格中不存在第17个单元格！": Exit Sub
   
5.     Set Q = ActiveDocument.Tables(2).Range.Cells(17).Range
   
6.     Q.End = Q.End - 1
   
7.     MsgBox "第2个表格中第17个单元格有：" & Q.ComputeStatistics(1) + 1 & "行"
   
8. End Sub

复制代码

duquancai

根据你的截图，初步可以判断：你使用的是WPS，不是MS的office中的Word！
最好使用MS的Word，不要用WPS！！！！！！！！！！！！！！！！！！！！！！！！！！！
答案是肯定的，可以判断某个单元格的行数的，我已经写了代码，正在审核中！