Ushbu maqolada biz sizga Word hujjatidagi aniq so'zlarning birinchi harfining uslubini o'zgartirishning 3 usulini taqdim qilmoqchimiz.
Hujjatni formatlashning umumiy qoidalaridan biri har bir jumlaning birinchi harfini bosh harf bilan yozishdir. Ammo ba'zi maxsus holatlarda, masalan, badiiy hujjat ustida ishlashda biz bajarishimiz kerak bo'lgan aniq talablar mavjud.
Va ushbu postda biz sizga so'zlarning birinchi harfining uslubini 3 xil talabga muvofiq o'zgartirishning 3 usulini ko'rsatamiz.
1-usul: Hujjatdagi har bir so'zning birinchi harfining uslubini o'zgartiring
- Avvalo, Word dasturida VBA muharririni ishga tushirish uchun "Alt + F11" tugmalarini bosing.
- Keyin chap ustundagi "Oddiy" tugmasini bosing.
- Keyingi menyu satrida "Qo'shish" tugmasini bosing.
- Va ochiladigan menyuda "Modul" ni bosing.
- Endi uni ochish uchun yangi modulni ikki marta bosing va u erga quyidagi kodlarni qo'ying:
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
- Nihoyat, "Ishga tushirish" tugmasini bosing.
Mana natija:
Eslatmalar:
-
Characters(1).Font.Size = 16
Bu 16 dagi birinchi harfning shrift hajmini o'rnatadi. Raqamni xohlagancha o'zgartiring.
-
Characters(1).Font.Bold = True
Bu qator qalin harf bilan birinchi harfni belgilaydi. Agar kerak bo'lmasa, "To'g'ri" ni "False" ga o'zgartirishingiz mumkin.
-
Characters(1).Font.Color = wdColorGreen
Bu harfga yashil rang qo'llaniladi. O'zingizga kerakli rangni tanlash uchun quyidagi havolaga o'ting: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
2-usul: Barcha jumlalarda birinchi so'zning birinchi harfining uslubini o'zgartiring
- Birinchidan, 1-usulda ko'rsatilganidek, makrosni o'rnating va ishga tushiring.
- Keyin ushbu makros bilan almashtiring:
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
Natijani tekshiring:
3-usul: Barcha paragraflarda birinchi so'zning birinchi harfining uslubini o'zgartiring
- Xuddi shunday, 1-usuldagi amallarni bajarib, makrosni o'rnating va ishga tushiring.
- Keyin ushbu makrodan foydalaning:
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
Skrinshotga qarang:
Ma'lumotlarni yo'qotish bilan ishlashning eng yaxshi usuli
Muhim ma'lumotlarning yo'qolishi juda stressli bo'lishi mumkin. Shuning uchun siz bunday falokat bilan qanday kurashishni bilishingiz kerak. Va, albatta, sizning eng yaxshi yechimingiz a ni qo'lga kiritishdir doc ta'mirlash qulaylik. Uning yordamida siz eng qisqa vaqt ichida ma'lumotlaringizni qaytarib olishingiz mumkin.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc excel-ta'mirlash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com




