[求助]有关表格区域选定的问题？

FENGJUN

如图：

问题1：插入点在C5中时，如何自动选定下面4个Range?

左上角区域：A1:C5
右上角区域：C1:E5

左下角区域：A5:C10
右下角区域：C5:E10

问题2：插入点在C5中时，如何自动选定下面4个Range?

前半行：A5:C5
后半行：C5:E5

上半列：C1:C5
下半列：C5:C10

[此贴子已经被作者于2007-4-23 10:50:21编辑过]

chylhr

都可以通过录制宏解决的!!楼主试试

守柔

WORD中不象EXCEL，可以OFFSET，行为连续的RANGE对象，列为非连续RANGE对象，既然是编程实现，不必选定了，可以使用循环单元格处理。

如：

Sub Example()
    Dim myTable As Table, A1 As Cell, C1 As Cell, F1 As Cell, myRange As Range
    Set myTable = Me.Tables(1)
    Set A1 = myTable.Cell(1, 1)
    Set C1 = myTable.Cell(1, 3)
    Set F1 = myTable.Cell(1, 5)
    Set myRange = A1.Range
    myRange.SetRange A1.Range.Start, F1.Range.End
    myRange.Select
End Sub
列中或者非连续的RANGE区域（多行多列）时，直接代码循环