Neste artigo, gostaríamos de apresentar 3 métodos para alterar o estilo da primeira letra de palavras específicas em seu documento do Word.
Uma das regras comuns de formatação de um documento é colocar em maiúscula a primeira letra de cada frase. Mas em alguns casos especiais, como trabalhar em um documento artístico, existem requisitos específicos que devemos atender.
E neste post, mostraremos 3 maneiras de alterar o estilo da primeira letra das palavras de acordo com 3 demandas diferentes.
Método 1: Alterar o estilo da primeira letra de cada palavra em um documento
- primeiro e primeiroost, pressione “Alt+ F11” para invocar o editor VBA no Word.
- Em seguida, clique em "Normal" na coluna da esquerda.
- Em seguida, na barra de menu, clique em "Inserir".
- E clique em “Módulo” no menu suspenso.
- Agora clique duas vezes no novo módulo para abri-lo e cole os seguintes códigos lá:
Sub ChangeStyleOfFirstLetterInWords() Dim objWord As Range For Each objWord In ActiveDocument.Words ' Altera o tamanho da fonte para a primeira letra em cada palavra. objWord.Characters(1).Font.Size = 16 ' Define a fonte Negrito para a primeira letra de cada palavra. objWord.Characters(1).Font.Bold = True ' Altera a cor da fonte da primeira letra de cada palavra. objWord.Characters(1).Font.Color = wdColorGreen Next End Sub
- Por fim, clique em “Executar”.
Aqui está o resultado:
Observações:
-
Caracteres(1).Fonte.Tamanho = 16
Isso define o tamanho da fonte da primeira letra em 16. Altere o número conforme desejar.
-
Caracteres(1).Font.Bold = True
Esta linha define a primeira letra em negrito. Você pode alterar “True” para “False” se não precisar.
-
Caracteres(1).Font.Color = wdColorGreen
Este aplica a cor verde à letra. Acesse o link a seguir para escolher a cor desejada: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
Método 2: Alterar o estilo da primeira letra da primeira palavra em todas as frases
- Em primeiro lugar, instale e execute a macro conforme mostrado no método 1.
- Em seguida, substitua por esta macro:
Sub ChangeStyleOfFirstLetterInSentence() Dim objSentence As Range For Each objSentence In ActiveDocument.Sentences ' Altera o tamanho da fonte para a primeira letra em cada frase. objSentence.Words(1).Characters(1).Font.Size = 16 ' Define a fonte Bold para a primeira letra de cada frase. objSentence.Words(1).Characters(1).Font.Bold = True ' Altera a cor da fonte da primeira letra de cada frase. objSentence.Words(1).Characters(1).Font.Color = wdColorGreen Next End Sub
Verifique o resultado:
Método 3: Alterar o estilo da primeira letra da primeira palavra em todos os parágrafos
- Da mesma forma, instale e execute uma macro seguindo as etapas do método 1.
- Em seguida, use esta macro:
Sub ChangeStyleOfFirstLetterInParagraphs() Dim objParagraph As Word.Paragraph For Each objParagraph In ActiveDocument.Paragraphs ' Altera o tamanho da fonte da primeira letra em cada parágrafo. objParagraph.Range.Words(1).Characters(1).Font.Size = 16 ' Define a fonte Negrito para a primeira letra de cada parágrafo. objParagraph.Range.Words(1).Characters(1).Font.Bold = True ' Muda a cor da fonte para a primeira letra em cada parágrafo. objParagraph.Range.Words(1).Characters(1).Font.Bold = True Next End Sub
Veja a imagem:
Melhor abordagem para lidar com a perda de dados
Pode ser muito estressante ter perda de dados críticos. Portanto, você deve saber como lidar com tal desastre. E, claro, sua melhor solução é conseguir um reparação de documentos Utilitário. Com ele, você pode recuperar seus dados no menor tempo possível.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Reparação do Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com