Como inserir uma lista suspensa codificada por cores em uma tabela do Word?

Author: Xiaoyang Last Modified: 2025-06-04

Suponha que você tenha uma tabela no seu Documento do Word e agora deseja inserir uma lista suspensa codificada por cores em uma coluna da tabela. Isso significa que, ao selecionar uma opção na lista suspensa, a cor da célula se torna vermelha, e ao selecionar outra, a cor da célula se torna verde, conforme mostrado na captura de tela abaixo:

Demo showing a cell's color changing when an item is selected from the drop-down list

Inserir lista suspensa codificada por cores no Documento do Word com código VBA

Os seguintes passos irão guiá-lo para inserir uma lista suspensa em uma célula da tabela e aplicar a cor de fundo à célula com base no item selecionado:

Selecione uma célula na tabela onde deseja inserir a lista suspensa e, em seguida, clique em "Desenvolvedor" > "Controle de Conteúdo de Lista Suspensa".
Observação: Se você não visualizar a guia Desenvolvedor na faixa de opções, visite: Como mostrar a guia Desenvolvedor na faixa de opções do Word.
A lista suspensa é inserida na célula específica. Em seguida, clique em "Desenvolvedor" > "Propriedades".

Drop-down inserted into a specific cell with Properties option highlighted

Na caixa de diálogo "Propriedades do Controle de Conteúdo", faça o seguinte:
1. Digite o nome do título na caixa de texto "Título".
2. Clique no botão "Adicionar" para abrir a caixa de diálogo "Adicionar Escolha".
3. Digite o item da lista suspensa na caixa de texto "Nome de Exibição".
Repita a Etapa 3 para inserir outros itens da lista suspensa conforme necessário.
Após criar a primeira lista suspensa, você pode copiá-la e colá-la em outras células.
Pressione e segure ALT + F11 para abrir a janela "Microsoft Visual Basic for Applications".

Na janela Microsoft Visual Basic for Applications, clique duas vezes em "ThisDocument" no painel "Projeto" para abrir o módulo. Depois, copie e cole o seguinte código no módulo em branco:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

Observação: No código acima, "Status" é o nome do título usado ao criar a lista suspensa, e "Concluído", "Em Andamento" e "Não Iniciado" são os itens. Você pode alterar esses valores e as cores correspondentes conforme necessário.

VBA window with ThisDocument selected, showing code pasted into the blank module

Salve e feche a janela de código. Agora, quando você selecionar um item da lista suspensa, a cor correspondente preencherá a célula.

Melhores Ferramentas de Produtividade para Office

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

📘 Domínio de Documentos: 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 Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

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

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