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 ' Измените размер шрифта для первой буквы в каждом слове. objWord.Characters(1).Font.Size = 16 ' Установить полужирный шрифт для первой буквы в каждом слове. objWord.Characters(1).Font.Bold = True ' Изменить цвет шрифта для первой буквы в каждом слове. objWord.Characters(1).Font.Color = wdColorGreen Next End Sub

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

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

Ноты:

1. Символы(1).Font.Size = 16

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

2. Символы(1).Font.Bold = True

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

3. Символы(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 ' Измените размер шрифта для первой буквы в каждом предложении. objSentence.Words(1).Characters(1).Font.Size = 16 ' Установить полужирный шрифт для первой буквы в каждом предложении. objSentence.Words(1).Characters(1).Font.Bold = True ' Изменить цвет шрифта для первой буквы в каждом предложении. 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 ' Измените размер шрифта для первой буквы в каждом абзаце. objParagraph.Range.Words(1).Characters(1).Font.Size = 16 ' Установить полужирный шрифт для первой буквы в каждом абзаце. objParagraph.Range.Words(1).Characters(1).Font.Bold = True ' Изменить цвет шрифта для первой буквы в каждом абзаце. objParagraph.Range.Words(1).Characters(1).Font.Bold = True Next End Sub

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

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

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

Об авторе:

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