Método ContentControlListEntry.MoveDown (Word)

Move um item em um controle de conteúdo de caixa de combinação ou lista suspensa um item para baixo, de forma que ele fique após o item que originalmente o seguia.

Sintaxe

expression. MoveDown

Expressão Uma expressão que retorna um objeto ContentControlListEntry .

Exemplo

O exemplo a seguir move o primeiro item para baixo, de forma que ele se torne o último item na lista de itens em um controle de conteúdo de caixa de combinação ou lista suspensa.

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(1) 
 
 For intCount = 1 To objCC.DropdownListEntries.Count 
 objCL.MoveDown 
 Next 
 
End If

Confira também

Objeto ContentControlListEntry

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.