KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como criar uma Lista Dinâmica num documento do Word?

AutorSiluvia Data de Modificação
Exemplo que mostra a limitação das opções na segunda lista pendente com base na opção selecionada na primeira lista pendente

Conforme ilustrado na captura de ecrã, poderá querer limitar as opções da segunda lista suspensa com base na seleção feita na primeira. Este artigo mostra-lhe como criar uma lista dinâmica num documento do Word.

Criar Lista Dinâmica no Word com código VBA

Criar Lista Dinâmica no Word com código VBA

O método VBA abaixo ajuda-o a criar uma Lista Dinâmica em que a segunda lista muda conforme a seleção feita na primeira. Siga estes passos:

  1. Certifique-se de que o separador «Programador» está visível no Friso do Word (caso contrário, consulte o tutorial)Como mostrar o separador Programador no Word?). Em seguida, insira dois campos de lista suspensa clicando em «Programador» > «Formulários Antigos» > «Campo de Formulário de Lista Suspensa» duas vezes.
    Separador Programador com Formulários Antigos selecionado e Campo de Lista Pendente destacado
  2. Clique com o botão direito do rato na primeira lista suspensa (a lista principal) e selecione «Propriedades».
    Primeira lista pendente com clique direito e opção Propriedades selecionada
  3. Na caixa de diálogo «Opções do Campo de Formulário de Lista Suspensa»:
    1. Introduza as categorias (por exemplo, «Fruta», «Legume», «Carne») na caixa «Item da lista suspensa», uma de cada vez, e clique em «Adicionar» após cada introdução.
    2. Escreva "ddfood« na caixa »Marcador".
    3. Clique em “OK”.
      Caixa de diálogo Opções de Campo de Lista Pendente
  4. Clique com o botão direito do rato na segunda Lista suspensa, selecione «Propriedades», escreva "ddCategory« na caixa »Marcador« e clique em »OK".
    Caixa de diálogo Opções de Campo de Lista Pendente
  5. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  6. Na janela do VBA, clique em «Inserir» > «Módulo» e 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, ajuste os itens sob cada instrução "Case" de modo a adaptá-los ao seu conteúdo.
    • "ddfood« e »ddCategory" devem corresponder ao nome da etiqueta que introduziu nas caixas de diálogo «Opções do Campo de Formulário de Lista Suspensa».
  7. Guarde o código e volte ao seu documento.
  8. Clique novamente com o botão direito do rato na primeira lista suspensa e selecione «Propriedades». Na caixa de diálogo «Opções do Campo de Formulário de Lista Suspensa» que aparece, escolha o nome da macro "Populateddfood« na lista suspensa »Sair« e clique em »OK".
    Caixa de diálogo Opções de Campo de Lista Pendente
  9. Clique em «Programador» > «Restringir Edição».
    Botão Restringir Edição no separador Programador da faixa de opções
  10. No painel «Restringir Edição»:
    1. Marque a opção «Permitir apenas este tipo de edição no documento».
    2. Selecione «Preencher formulários» na lista pendente.
    3. Clique em «Sim, Iniciar Proteção».
    4. Na caixa de diálogo «Iniciar Proteção», defina uma palavra-passe e clique em «OK».
      Painel Restringir Edição e caixa de diálogo Iniciar Aplicação de Proteção

Agora, a Lista Dinâmica está ativa. Ao selecionar «Fruta» na primeira lista, apenas as opções de fruta aparecerão na segunda lista.

Exemplos que mostram a limitação das opções na segunda lista pendente com base na opção selecionada na primeira lista pendente

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: 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 de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores na faixa de opções
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

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

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

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools