VB.Net Word表:选择列中的特定单元格

时间:2014-06-30 00:50:15

标签: vb.net ms-word office-interop vb.net-2010

我编写了一个在Word中创建表的程序,该表填充了数据库中的值。到目前为止工作正常。 该表的第一列应包含表中项目的类别,这些类别应该是与该类别中所有项目的跨度合并的单元格。基本上这是有效的。

这是代码

'Select the first cell of a category in column 1
wordtable.Cell(categoryPos, 1).Select() 
'Move down till all cells of column 1 in rows with items of that category are selected
word.Selection.MoveDown(wordoptions.WdUnits.wdLine, (numberMachines - 1), wordoptions.WdMovementType.wdExtend)
'then I change the rotation, background-color, write text etc.

问题是分页符。分页后,列表如下图所示:

Wrong Selection

我需要知道一种在没有Move-command的情况下选择多个单元格的方法。 如果这是Excel我会做类似的事情

ActiveSheet.Range(Cells(x1, y1), Cells(x2, y2)).Select
Selection.Merge()

但是,由于单词范围只是一维的,我有点卡在这里。

有人有提示吗?

1 个答案:

答案 0 :(得分:0)

有时它比预期的容易:

Dim r As wordoptions.Range
r = doc.Range( _
Start:=wordtable.Cell(kategorypos, 1).Range.Start, _
End:=wordtable.Cell((kategorypos + numberMachines - 1), 1).Range.End)
r.Select()