VBA如何判定不连续选取的表格？

zhanglei1371

word中随意插入一个多行多列的表格，当按着Ctrl键随意选择两个不连续的单元格时，如何用VBA判定是非连续的单元格而不是一个？
默认情况下，这种情况VBA会判定只选择了一个。

shenjianrong163

用Selection.Cells.Count试试

shenjianrong163

1. Sub 判定不连续选取的表格() '采用413191246se老师的获取不连续选取的内容代码
   
2.     Dim s$, n%
   
3.     With Selection
   
4.         .Font.Underline = wdUnderlineDouble
   
5.         .HomeKey 6
   
6.         With .Find
   
7.             .ClearFormatting
   
8.             .Text = ""
   
9.             .Font.Underline = wdUnderlineDouble
   
10.             .Replacement.Text = ""
    
11.             .Forward = True
    
12.             .MatchWildcards = False
    
13.             Do While .Execute
    
14.                 With .Parent
    
15.                     .Font.Underline = wdUnderlineNone
    
16.                     n = n + 1
    
17.                     .Start = .End
    
18.                 End With
    
19.             Loop
    
20.         End With
    
21.     End With
    
22.     MsgBox n
    
23. End Sub

复制代码