Ir para o conteúdo principal

 Como colocar a primeira letra após dois pontos em maiúscula em um documento do Word?

Se você precisar colocar as primeiras letras após os dois pontos em um documento do Word, alterá-las manualmente uma a uma não será uma boa escolha. Neste artigo, falarei sobre uma maneira de alterar a primeira letra minúscula para maiúscula após os dois-pontos o mais rápido possível.

Coloque as primeiras letras após os dois pontos com o código VBA em um documento do Word


Coloque as primeiras letras após os dois pontos com o código VBA em um documento do Word

O código VBA a seguir pode ajudá-lo a colocar todas as primeiras letras em maiúsculas após os dois-pontos em todo o documento do Word para maiúsculas. Faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: coloque as primeiras letras depois dos dois pontos:

Sub CapitalizeWordAfterColon()
    Application.ScreenUpdating = False
    Selection.HomeKey wdStory
    With Selection.Find
        .ClearFormatting
        .Text = ": ([a-z])"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWholeWord = False
        .MatchSoundsLike = False
        .MatchCase = False
        .MatchWildcards = True
        .MatchAllWordForms = False
        With .Replacement.Font
          .AllCaps = True
          .SmallCaps = False
        End With
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.ScreenUpdating = True
End Sub

3. Então aperte F5 para executar este código, e todas as primeiras letras após os dois pontos foram convertidas em letras maiúsculas de uma vez, veja a captura de tela:

doc capitalize a primeira letra após dois pontos 1

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...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
ciao, è possibile fare l'esatto opposto? ovvero trasformare tutte le maiuscole dopo i due punti in minuscole? grazie in anticipo.
This comment was minimized by the moderator on the site
ciao, come si fa a fare l'esatto opposto?ovvero sostituire tutte le lettere maiuscole dopo i due punti in lettere minuscole?grazie in anticipo
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations