3 быстрых способа изменить стиль первой буквы определенных слов в вашем документе Word

В этой статье мы хотели бы представить вам 3 метода изменения стиля первой буквы определенных слов в вашем документе Word.

Одним из распространенных правил форматирования документа является использование заглавной буквы в каждом предложении. Но в некоторых особых случаях, таких как работа над художественным документом, мы должны выполнить определенные требования.

И в этом пost, мы покажем вам 3 способа изменить стиль первой буквы слова в соответствии с 3 различными требованиями.

Способ 1: изменить стиль первой буквы каждого слова в документе

1. Первый и первыйost, нажмите «Alt + F11», чтобы вызвать редактор VBA в Word.
2. Затем нажмите «Обычный» в левом столбце.
3. Далее в строке меню нажмите «Вставить».
4. И нажмите «Модуль» в раскрывающемся меню.
5. Теперь дважды щелкните новый модуль, чтобы открыть его, и вставьте туда следующие коды:

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

6. Наконец, нажмите «Выполнить».

Вот результат:

Примечание:

1. Characters(1).Font.Size = 16

Это устанавливает размер шрифта первой буквы в 16. Измените число по своему усмотрению.

2. Characters(1).Font.Bold = True

Эта строка выделяет первую букву жирным шрифтом. Вы можете изменить «True» на «False», если вам это не нужно.

3. Characters(1).Font.Color = wdColorGreen

Этот применяет зеленый цвет к письму. Перейдите по следующей ссылке, чтобы выбрать желаемый цвет: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

Способ 2: изменить стиль первой буквы первого слова во всех предложениях

1. Во-первых, установите и запустите макрос, как показано в методе 1.
2. Затем замените этот макрос:

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

Проверьте результат:

Способ 3: изменить стиль первой буквы первого слова во всех абзацах

1. Аналогичным образом установите и запустите макрос, следуя шагам метода 1.
2. Далее используйте этот макрос:

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

Смотрите скриншот:

Лучший подход к борьбе с потерей данных

Потеря важных данных может быть очень стрессовой. Поэтому вы должны знать, как бороться с такой бедой. И, конечно же, лучшее решение — заполучить ремонт документов полезность. С его помощью вы можете вернуть свои данные в кратчайшие сроки.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Ремонт Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com