Compartilhar via


Objeto ContentControls (Word)

Uma coleção de objetos ContentControl. Os controles de conteúdo são regiões associadas e potencialmente rotuladas em um documento que servem como contêineres para tipos específicos de conteúdo. Controles de conteúdo individuais podem consistir em conteúdo como datas, listas ou parágrafos de texto formatado.

Comentários

Utilize o método Add para criar um novo controle de conteúdo e inseri-lo em um documento. O exemplo a seguir cria um novo controle de conteúdo de lista suspensa e adiciona vários itens à lista.

Dim objcc As ContentControl 
Dim objMap As XMLMapping 
 
Set objcc = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
objcc.Title = "My Favorite Animal" 
If objcc.ShowingPlaceholderText Then _ 
 objcc.SetPlaceholderText , , "Select your favorite animal " 
 
'List entries 
objcc.DropdownListEntries.Add "Cat" 
objcc.DropdownListEntries.Add "Dog" 
objcc.DropdownListEntries.Add "Horse" 
objcc.DropdownListEntries.Add "Monkey" 
objcc.DropdownListEntries.Add "Snake" 
objcc.DropdownListEntries.Add "Other"

Utilize o método Item para acessar um controle de conteúdo específico na coleção. O exemplo a seguir acessa o terceiro controle de conteúdo no documento ativo e, se o controle for uma lista suspensa ou uma caixa de combinação, moverá o primeiro item para a parte inferior da lista e o último item para a parte superior da lista.

Dim objcc As ContentControl 
Dim objLE1 As ContentControlListEntry 
Dim objLE2 As ContentControlListEntry 
Dim intCount As Integer 
 
Set objcc = ActiveDocument.ContentControls.Item(3) 
 
If objcc.Type = wdContentControlComboBox Or _ 
 objcc.Type = wdContentControlDropdownList Then 
 
 'First item in the list. 
 Set objLE1 = objcc.DropdownListEntries.Item(1) 
 
 'Last item in the list. 
 Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count) 
 
 For intCount = 1 To objcc.DropdownListEntries.Count 
 'Move the first item down one. 
 objLE1.MoveDown 
 
 'Move the last item up one. 
 objLE2.MoveUp 
 Next 
 
End If

Use objeto ContentControl para trabalhar com controles de conteúdo individuais. Para obter mais informações, consulte Trabalhando com controles de conteúdo.

Métodos

Nome
Adicionar
Item

Propriedades

Nome
Aplicativo
Count
Creator
Parent

Confira também

Referência do modelo de objeto do Word

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.