Word VBA教程:InsertCells方法

向原有表格添加单元格。插入的单元格数量等于选定内容中包含的单元格数量。

注意   用 Cells对象的Add方法也可插入单元格。

expression.InsertCells(ShiftCells)

expression   必需。该表达式返回一个 Selection对象。

ShiftCells   可选。 WdInsertCells。

    可以是下列 WdInsertCells 常量之一。

常量 说明
wdInsertCellsEntireColumn 在所选内容的左侧插入整列。
wdInsertCellsEntireRow 在所选内容的上方插入整行。
wdInsertCellsShiftDown 在所选单元格的上方插入新单元格。
wdInsertCellsShiftRight 在所选单元格的左侧插入新单元格。

VBA示例

本示例在所选单元格的左侧插入新单元格,然后为选定的单元格添加红色的单线边框。


If Selection.Cells.Count >= 1 Then
    Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight
    For Each aBorder In Selection.Borders
        aBorder.LineStyle = wdLineStyleSingle
        aBorder.ColorIndex = wdRed
    Next aBorder
End If

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号