В тази статия бихме искали да ви представим 3 метода за промяна на стила на първата буква на конкретни думи във вашия документ на Word.
Едно от често срещаните правила за форматиране на документ е да се изписва с главна буква първата буква на всяко изречение. Но в някои специални случаи, като например работа по художествен документ, има специфични изисквания, на които трябва да отговаряме.
И в тази публикация ще ви покажем 3 начина да промените стила на първата буква на думите според 3 различни изисквания.
Метод 1: Променете стила на първата буква на всяка дума в документ
- Първо и най-важно, натиснете „Alt+F11“, за да извикате VBA редактора в Word.
- След това щракнете върху „Нормално“ в лявата колона.
- След това в лентата с менюта щракнете върху „Вмъкване“.
- И щракнете върху „Модул“ в падащото меню.
- Сега щракнете двукратно върху нов модул, за да го отворите и поставете следните кодове там:
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
- Накрая щракнете върху „Run“.
Ето резултата:
Забележки:
-
Characters(1).Font.Size = 16
Това задава размера на шрифта на първата буква в 16. Променете номера, както искате.
-
Characters(1).Font.Bold = True
Този ред задава първата буква с получер шрифт. Можете да промените „True“ на „False“, ако нямате нужда.
-
Characters(1).Font.Color = wdColorGreen
Това прилага зеления цвят към буквата. Посетете следната връзка, за да изберете желания цвят: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
Метод 2: Променете стила на първата буква от първата дума във всички изречения
- Първо, инсталирайте и стартирайте макрос, както е показано в метод 1.
- След това заменете с този макрос:
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.
- След това използвайте този макрос:
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




