Word VBA教程:Delete方法

应用于 Cell 和 Cells对象的 Delete方法。

删除一个或多个表格单元格并可选择控制如何移动剩余的单元格。

expression.Delete(ShiftCells)

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

ShiftCells  Variant 类型,可选。剩余单元格移动的方向。可以是任意WdDeleteCells 常量。如果忽略,最后删除的单元格的右侧单元格向左移动。

WdDeleteCells 可以是下列 WdDeleteCells 常量之一:
wdDeleteCellsEntireColumn
wdDeleteCellsEntireRow
wdDeleteCellsShiftLeft
wdDeleteCellsShiftUp

应用于 Range 和 Selection对象的 Delete方法。

删除指定数目的字符或单词。此方法返回一个 Long 值,该数值表明删除项的数目。如果删除失败,则返回的值为 0(零)。

expression.Delete(Unit, Count)

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

Unit  Variant 类型,可选。所需删除的折叠区域或选定内容的单位。可以是下列 WdUnits 常量之一:wdCharacter(默认值)或 wdWord。

Count  Variant 类型,可选。所需删除的单元的数目。若要删除某区域或选定内容之后的单元,请折叠该区域或选定内容并将此参数设置为正数;若要删除某区域或选定内容之前的单元,请折叠该区域或选定内容并将此参数设置为负数。

应用于 ShapeNodes对象的 Delete方法。

删除指定的对象。

expression.Delete(Index)

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

Index  Long 类型,必需。要删除的图形节点的数目。

应用于“应用于”列表中所有其他对象的 Delete方法。

删除指定的对象。

expression.Delete

expression   必需。该表达式返回“应用于”列表中的一个对象。

VBA示例

当应用于 Cell对象时。

本示例删除活动文档中第一个表格中的第一个单元格。


Sub DeleteCells()
    ActiveDocument.Tables(1).Cell(1, 1).Delete
End Sub

当应用于 Range 和 Selection对象时。

本示例选择并删除活动文档中的内容。


Sub DeleteSelection()
    ActiveDocument.Content.Select
    Selection.Delete
End Sub

本示例折叠选定内容并删除插入点后的两个单词。


Sub DeleteSelection2()
    ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(3).Range.Start, End:=ActiveDocument.Paragraphs(6).Range.End).Select
    Selection.Collapse Direction:=wdCollapseStart
    Selection.Delete Unit:=wdWord, Count:=2
End Sub

本示例折叠myRange 并删除插入点前的两个字符。


Sub DeleteRange()
    Dim myRange As Range
    Set myRange = Selection.Words(1)
    myRange.Collapse Direction:=wdCollapseStart
    myRange.Delete Unit:=wdCharacter, Count:=-2
End Sub

本示例删除活动文档的第一个单词。


Sub DeleteFirstWord()
    ActiveDocument.Words(1).Delete
End Sub

当应用于“应用于”列表中的其他对象时。

如果活动文档中存在名为“temp”的书签,则本示例删除该书签。


Sub DeleteBookmark()
    If ActiveDocument.Bookmarks.Exists(Name:="temp") Then
        ActiveDocument.Bookmarks(Name:="temp").Delete
    End If
End Sub

本示例删除 Sales.doc 中名为“Intro”的样式,将使用 Intro 样式的段落换成“正文”样式。


Sub DeleteStyle()
    Documents(Index:="Sales.doc").Styles _
        (Index:="Intro").Delete
End Sub

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号