VBA中，Word内的表格如何选中多个单元格cell

来武影

Application.Union貌似用不了

snow653124

给你一个思路 ，你试试

Sub 选中多个单元格()
Dim c As Row
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges
    With ActiveDocument.Tables(1)
        For Each c In .Rows
            c.Cells(2).Range.Editors.Add wdEditorEveryone
        Next
    End With
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub

413191246se

楼主，不必一次全部选中，只须一次选中一个单元格，循环遍历整个表格即可。

1. Sub LoopAllCells()
   
2.     Dim t As Table, c As Cell, r As Range
   
3.     For Each t In ActiveDocument.Tables
   
4.         For Each c In t.Range.Cells
   
5.             Set r = c.Range
   
6.             r.Font.Color = wdColorRed
   
7.             r.MoveEnd 1, -1
   
8.             MsgBox "[" & r.Text & "]"
   
9.             MsgBox c.Range Like r.Text & Chr(13) & Chr(7)
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码