通过

ContentControlListEntry.MoveUp 方法 (Word)

  • 项目

将下拉列表或组合框内容控件中的项上移一项，以使它位于最初在它前面的某项之前。

语法

expression。 MoveUp

表达 返回 ContentControlListEntry 对象的表达式。

示例

以下示例上移下拉列表或组合框内容控件中的最后一项，使它成为第一项。

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
Dim intCount As Integer 
 
Set objCC = ActiveDocument.ContentControls.Item(3) 
 
If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 
 Set objCL = objCC.DropdownListEntries.Item(objCC.DropdownListEntries.Count) 
 
 For intCount = 1 To objCC.DropdownListEntries.Count 
 objCL.MoveUp 
 Next 
 
End If

另请参阅

ContentControlListEntry 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。