Skip to main content

Como criar listas suspensas dependentes em um Documento do Word?

Author: Siluvia Last Modified: 2025-08-06
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

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:

  1. 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.
    Developer tab with Legacy Forms selected and Drop-Down Form Field highlighted
  2. Clique com o botão direito na primeira lista suspensa (esta será a lista principal) e clique em "Propriedades".
    First drop-down list right-clicked with Properties option selected
  3. 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".
      Drop-down Form Field Options dialog box
  4. Clique com o botão direito na segunda lista suspensa, selecione "Propriedades", digite "ddCategory" na caixa "Marcador" e clique em "OK".
    Drop-down Form Field Options dialog box
  5. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
  6. 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".
  7. Salve o código e retorne ao seu documento.
  8. 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".
    Drop-down Form Field Options dialog box
  9. Clique em "Desenvolvedor" > "Restringir Edição".
    Restrict Editing button on the Developer tab on the ribbon
  10. 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".
      Restrict Editing pane and Start Enforcing Protection dialog

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 Escritório

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 (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: 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 Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de 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 de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

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

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools