我编写了一个在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.
问题是分页符。分页后,列表如下图所示:
我需要知道一种在没有Move-command的情况下选择多个单元格的方法。 如果这是Excel我会做类似的事情
ActiveSheet.Range(Cells(x1, y1), Cells(x2, y2)).Select
Selection.Merge()
但是,由于单词范围只是一维的,我有点卡在这里。
有人有提示吗?
答案 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()