关于一段代码的疑问？

konggs

Set myTable = ActiveDocument.Tables(1)

Set aColumn = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1))

For Each aCell In aColumn.Cells

aCell.Range.Delete

aCell.Range.InsertAfter num + 1

num = num + 1

Next aCell

这段代码运行后，在第一列产生1，2，3，4，5等。而我理解应该1，3，5，7，我错了。

为什么？

守柔

先谢谢KONGS兄的短信提醒！

此代码中，关键是num + 1,num是一个整数，num+1应该使用是一个连续型的整数；InsertAfter num + 1改为：InsertAfter 2*num + 1。请注意你的num的累加是在插入之后累加的。

另外，aCell.Range.Delete aCell.Range.InsertAfter num + 1这两句代码没有必要这么写，浪费了，想一想，应该怎么写？

konggs

我明白，是不是，这句可略了aCell.Range.Delete 。

守柔

以下是引用konggs在2005-9-12 18:44:39的发言：

我明白，是不是，这句可略了aCell.Range.Delete 。

你没有明白。你应该试一下。

konggs

还是老大说吧，我不知道。我只知道。删了，也行。

[em06]

守柔

以下是引用konggs在2005-9-12 20:25:13的发言：

还是老大说吧，我不知道。我只知道。删了，也行。

[em06]

aCell.Range = num + 1或aCell.Range.Text=num+1

Range对象的默认属性是TEXT属性，使用该属性可以重新改写原有RANGE对象的RANGE属性，也就是刷新原有内容。