如何选择最后一行

殿堂之上

如图，如何选择表格中的2字那一段，有哪位大神级高手能说下不。
表格有7段，按道理说是段2就可以选到，但是不行，如果多句用句子也选不到最后一句。

Sub 宏1()
With ActiveDocument
MsgBox .Tables(1).Rows(1).Range.Paragraphs.Count
.Tables(1).Rows(1).Cells(1).Range.Paragraphs(2).Range.Select
End With
End Sub

剑指E

1. Sub test()
   
2. Dim phs As Byte, i%, r%
   
3. With ActiveDocument
   
4. r = .Tables(1).Rows.Count
   
5. For i = 1 To r
   
6. phs = .Tables(1).Rows(i).Cells(1).Range.Paragraphs.Count
   
7. .Tables(1).Rows(i).Cells(1).Range.Paragraphs(phs).Range.Words(1).Select
   
8. With Selection
   
9. .EndKey Unit:=wdLine
   
10. .HomeKey Unit:=wdLine, Extend:=wdExtend
    
11. .Font.Bold = True
    
12. .Font.TextColor = vbRed
    
13. End With
    
14. Next
    
15. End With
    
16. End Sub

复制代码

常扬帆

OK，谢谢，旁学了。