Propriedade ContentControl.ShowingPlaceholderText (Word)
Retorna um Boolean que indica se o texto de espaço reservado para o controle de conteúdo é exibido. Somente leitura.
expression. ShowingPlaceholderText
Expressão Uma expressão que retorna um objeto ContentControl .
O exemplo a seguir insere um novo controle de conteúdo de lista suspensa no documento ativo, define o título e o texto do indicador se este estiver sendo mostrado e, em seguida, adiciona vários novos 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")
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.