求selection怎么解决这样的统计问题？

lxz_lz

理论上的SELECTION属性在编程中几乎不存在，至少我是这么认为的。

这样的话。。。

那要是我想让用户自己去程序打开的doc里选择表格里的某些区域，然后把选择的区域拿去取出若干个相同

表格不同内容的doc里用户刚才选择的相同区域的数值，这样的话，没有selection属性。。。怎么办？

selection对象怎么获得呢？怎么循环得到那些doc里用户刚才选择区域的range或者selection对象?

守柔

我已无话可说了！

SELCTION不能用RANGE对象代替换吗？非得在SELECTION上吊死吗！

lxz_lz

报错总提示selection为nothing?

word打开好一个doc了，然后在打开的doc里也任意选择了一些单元格，运行程序时总是提示变量未设置，即selection为nothing啊。selection对象即是引用了某个对象的selection属性产生？那它怎么像别的对象一样通过定义类型，赋实例啊,然后使用啊？MS-Word参考里很多地方直接就拿来用了，郁闷。那我程序直接拿来用怎么就报错呢？

因为是想要让用户去指定任意单元格，然后做些处理，比如统计选中单元格里的数值之类，所以绕不过selection对象吧？

守柔

为什么不把代码贴上来呢？WORD帮助中的没有错，错的是你的用法和你的理解！

lxz_lz

我是直接拿8楼的代码运行就报错讲selection为nothing

我是先双击一个doc用word2003打开，然后选择好一些单元格，
然后回到程序去运行那个过程。。。VB就讲selection为nothing了。。。

就是不懂得用法，理解了概念，我还没有操作经验。或者是没有操作经验，所以无所完全理解

[此贴子已经被作者于2006-2-21 14:37:22编辑过]

lxz_lz

With Selection
If .Information(wdWithInTable) Then
If .Type <> wdSelectionIP Then
CellsCount = .Cells.Count
ReDim ColArray(CellsCount - 1)
ReDim RowArray(CellsCount - 1)
For Each oCell In Selection.Cells
ColArray(N) = oCell.ColumnIndex
RowArray(N) = oCell.RowIndex
N = N + 1
Next
'此处可以添加遍历文档代码
With ActiveDocument
Set myTable = .Tables(1)
For N = 0 To CellsCount - 1
Set myCell = myTable.Cell(RowArray(N), ColArray(N))
Debug.Print .Range(myCell.Range.Start, myCell.Range.End - 1)
Next
End With
End If
End If
End With
同样的代码在宏里面运行通过了(不报错，但还是取值有问题)，在VB里报错，说selection为nothing?