Question

全部显示

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

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

expression.Delete(ShiftCells)

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

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

WdDeleteCells 可以是下列 WdDeleteCells 常量之一：

wdDeleteCellsEntireColumn

wdDeleteCellsEntireRow

wdDeleteCellsShiftLeft

wdDeleteCellsShiftUp

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

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

expression.Delete(Unit, Count)

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

UnitVariant 类型，可选。所需删除的折叠区域或选定内容的单位。可以是下列 WdUnits 常量之一：wdCharacter（默认值）或 wdWord。

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

应用于 ShapeNodes 对象的 Delete 方法。

删除指定的对象。

expression.Delete(Index)

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

IndexLong 类型，必需。要删除的图形节点的数目。

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

删除指定的对象。

expression.Delete

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

示例

当应用于 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