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 Desenvolvedor > 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 Subnotas:
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 Desenvolvedor > 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.
Ferramentas de produtividade de palavras recomendadas
Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo
- Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
- Insira várias imagens em pastas em um documento do Word de uma vez.
- Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
- Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
- Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
