Como criar listas suspensas dependentes em um Documento do Word?

Author: Siluvia Last Modified: 2025-06-04

Example showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

Como mostrado na captura de tela, você pode querer limitar as opções na segunda lista suspensa com base na seleção feita na primeira lista suspensa. Este artigo mostra como criar listas suspensas dependentes em um Documento do Word.

Criar listas suspensas dependentes no Word com código VBA

O método VBA abaixo ajuda você a criar uma lista suspensa dependente onde a segunda lista muda com base no que foi selecionado na primeira lista. Siga estas etapas:

Certifique-se de que a guia "Desenvolvedor" esteja visível na faixa de opções do Word (se não estiver, veja o tutorial Como mostrar a guia Desenvolvedor no Word?). Em seguida, insira duas listas suspensas clicando em "Desenvolvedor" > "Formulários Legados" > "Campo de Formulário de Lista Suspensa" duas vezes.
Clique com o botão direito na primeira lista suspensa (esta será a lista principal) e clique em "Propriedades".
Na caixa de diálogo "Opções do Campo de Formulário de Lista Suspensa":
1. Insira as categorias (por exemplo, "Fruta", "Vegetal", "Carne") na caixa "Item da lista suspensa" uma por vez, clicando em "Adicionar" após cada uma.
2. Digite "ddfood" na caixa "Marcador".
3. Clique em "OK".
Clique com o botão direito na segunda lista suspensa, selecione "Propriedades", digite "ddCategory" na caixa "Marcador" e clique em "OK".
Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

Na janela VBA, clique em "Inserir" > "Módulo", depois cole o seguinte código:

Sub Populateddfood()
'Update by Extendoffice 2018/10/25
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("ddfood")
    Set xState = ActiveDocument.FormFields("ddCategory")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Fruit"
                .Add "Apple"
                .Add "Banana"
                .Add "Peach"
                .Add "Lychee"
                .Add "Watermelon"
            Case "Vegetable"
                .Add "Cabbage"
                .Add "Onion"
            Case "Meat"
                .Add "Pork"
                .Add "Beef"
                .Add "Mutton"
        End Select
    End With
End Sub

Notas:

No código, altere os itens sob cada declaração "Case" para se ajustarem ao seu conteúdo.
"ddfood" e "ddCategory" devem corresponder aos nomes dos Marcadores que você inseriu nas caixas de diálogo "Opções do Campo de Formulário de Lista Suspensa".

Salve o código e retorne ao seu documento.
Clique novamente com o botão direito na primeira lista suspensa e selecione "Propriedades". Na caixa de diálogo "Opções do Campo de Formulário de Lista Suspensa" que aparece, no menu suspenso "Saída", escolha o nome da macro "Populateddfood", depois clique em "OK".
Clique em "Desenvolvedor" > "Restringir Edição".
No painel "Restringir Edição":
1. Marque "Permitir apenas este tipo de edição no documento".
2. Selecione "Preenchimento de formulários" no menu suspenso.
3. Clique em "Sim, Iniciar Aplicação de Proteção".
4. Na caixa de diálogo "Iniciar Aplicação de Proteção", defina uma senha e clique em "OK".

Agora a lista suspensa dependente está ativa. Quando você seleciona "Fruta" na primeira lista, somente opções de frutas aparecerão na segunda lista.

Examples showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

Melhores Ferramentas de Produtividade para Office

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...