Como criar listas suspensas dependentes em um documento do Word?
Como mostrado na captura de tela à esquerda, você precisa limitar as opções na segunda lista suspensa com base na opção na primeira lista suspensa, como você pode fazer? Este artigo mostrará um método para criar listas suspensas dependentes em um documento do Word.
Crie listas suspensas dependentes no Word com código VBA
O código VBA abaixo pode ajudá-lo a criar uma lista suspensa dependente em um documento do Word. Por favor, siga as instruções passo a passo.
1. Em primeiro lugar, você precisa inserir duas listas suspensas no seu documento do Word. Clique Developer > Formulários herdados > Campo de formulário suspenso. Veja a imagem:
2. Clique com o botão direito na primeira lista suspensa (esta lista deve ser a principal) e clique em Propriedades. Veja a imagem:
3. Na abertura Opções de campo de formulário suspenso caixa de diálogo, você precisa:
3.1 Insira a categoria no Item suspenso caixa e, em seguida, clique no botão Adicionar botão, repita a operação até que todas as categorias sejam adicionadas à caixa de lista suspensa Itens em.
3.2 Entrar ddfood no Bookmark caixa.
3.3 Clique no OK botão. Veja a imagem:
4. Clique com o botão direito na segunda lista suspensa e clique em Propriedades para abrir o seu Opções de campo de formulário suspenso caixa de diálogo e, na caixa de diálogo, digite ddCategoria no Bookmark caixa e clique no OK botão. Veja a imagem:
5. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
6. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo, em seguida, copie o código VBA abaixo para a janela Módulo.
Código VBA: crie uma lista suspensa dependente no Word
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
Observações:
1. No código, altere os itens em cada caso conforme necessário.
2. ddfood e ddCategoria deve corresponder às opções de marcador que você inseriu nos dois acima Opções de campo de formulário suspenso caixa de diálogo.
7. Salve o código e volte ao documento.
8. Clique com o botão direito na primeira lista suspensa e clique em Propriedades para abrir o Opções de campo de formulário suspenso caixa de diálogo. Na caixa de diálogo, selecione o nome da macro acima (aqui é Popolateddfood) do saída lista suspensa e clique no OK botão.
9. Agora clique Developer > Restringir edição como a imagem abaixo mostrada.
10. No Restringir edição painel, você precisa:
10.1) Verifique o Permitir apenas este tipo de edição no documento caixa;
10.2) Selecione Preenchendo formulários opção da lista suspensa;
10.3) Clique no Sim, comece a aplicar proteção botão;
10.4) No Comece a aplicar proteção caixa de diálogo, digite a senha e clique no OK botão. Veja a imagem:
Agora uma lista suspensa dependente é criada. Ao selecionar Frutas na primeira lista suspensa, apenas as categorias de frutas podem ser selecionadas na segunda.
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...