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.
Neste post, mostraremos 3 maneiras de alterar o estilo da primeira letra das palavras de acordo com 3 necessidades diferentes.
Método 1: Alterar o estilo da primeira letra de cada palavra em um documento
- Em primeiro lugar, pressione “Alt + F11” para abrir 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
' Change the font size for the first letter in every word.
objWord.Characters(1).Font.Size = 16
' Set Bold font for the first letter in every word.
objWord.Characters(1).Font.Bold = True
' Change the font color for the first letter in every word.
objWord.Characters(1).Font.Color = wdColorGreen
Next
End Sub
- Por fim, clique em “Executar”.
Aqui está o resultado:
Observações:
-
Characters(1).Font.Size = 16
Isso define o tamanho da fonte da primeira letra em 16. Altere o número conforme desejar.
-
Characters(1).Font.Bold = True
Esta linha define a primeira letra em negrito. Você pode alterar “True” para “False” se não precisar.
-
Characters(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
' Change the font size for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Size = 16
' Set Bold font for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Bold = True
' Change the font color for the first letter in every sentence.
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
' Change the font size for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Size = 16
' Set Bold font for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Bold = True
' Change the font color for the first letter in every paragraph.
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




