Objeto DropDown (Word)
Representa um campo de formulário suspenso que contém uma lista dos itens do formulário.
Use FormFields (index), em que o índice é o número do índice ou o nome do indicador associado ao campo de formulário suspenso, para retornar um único objeto FormField . Usar o menu suspenso propriedade com o objeto FormField para retornar um objeto DropDown. O exemplo a seguir seleciona o primeiro item do campo de formulário suspenso chamado "DropDown" do documento ativo.
ActiveDocument.FormFields("DropDown1").DropDown.Value = 1
O número de índice representa a posição do campo de formulário no FormFields coleção. O exemplo a seguir verifica o tipo do primeiro campo de formulário no documento ativo. Se houver um campo de formulário suspenso, o segundo item será selecionado.
If ActiveDocument.FormFields(1).Type = wdFieldFormDropDown Then
ActiveDocument.FormFields(1).DropDown.Value = 2
End If
O exemplo a seguir determina se o campo de formulário representado por ffield é um campo de formulário suspenso válido antes de adicionar um item a ele.
Set ffield = ActiveDocument.FormFields(1).DropDown
If ffield.Valid = True Then
ffield.ListEntries.Add Name:="Hello"
Else
MsgBox "First field is not a drop down"
End If
Use a Adicionar método com a coleção FormFields para adicionar um campo de formulário suspenso. O exemplo seguinte adiciona um campo de formulário suspenso no início do documento ativo e, em seguida, adiciona itens ao campo de formulário.
Set ffield = ActiveDocument.FormFields.Add( _
Range:=ActiveDocument.Range(Start:=0, End:=0), _
Type:=wdFieldFormDropDown)
With ffield
.Name = "Colors"
With .DropDown.ListEntries
.Add Name:="Blue"
.Add Name:="Green"
.Add Name:="Red"
End With
End With
Referência do modelo de objeto do Word
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.