Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como criar listas suspensas dependentes em um Documento do Word?

Author Siluvia Last modified
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 Office

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

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

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

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

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

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

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

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

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

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools