Selles artiklis soovime teile tutvustada 3 meetodit konkreetsete sõnade esitähe stiili muutmiseks teie Wordi dokumendis.
Üks üldlevinud dokumendi vormindamise reegleid on iga lause algustähe kirjutamine. Kuid mõnel erijuhtudel, nagu näiteks kunstilise dokumendi kallal töötamine, on teatud nõuded, millele peame vastama.
Ja selles postituses näitame teile 3 viisi, kuidas muuta sõnade esimese tähe stiili vastavalt 3 erinevale nõudmisele.
1. meetod: muutke dokumendi iga sõna esimese tähe stiili
- Esiteks ja kõige tähtsam on Wordis VBA redaktori käivitamiseks vajutada klahvikombinatsiooni „Alt+F11”.
- Seejärel klõpsake vasakpoolses veerus "Tavaline".
- Järgmisena klõpsake menüüribal nuppu "Lisa".
- Ja klõpsake rippmenüüs nuppu "Moodul".
- Nüüd topeltklõpsake uuel moodulil selle avamiseks ja kleepige sinna järgmised koodid:
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
- Lõpuks klõpsake nuppu „Käivita“.
Siin on tulemus:
Märkused:
-
Characters(1).Font.Size = 16
See määrab 16 esimese tähe fondi suuruse. Muutke numbrit vastavalt oma soovile.
-
Characters(1).Font.Bold = True
Sellel real on esimene täht paksus kirjas. Kui te seda ei vaja, saate muuta "True" väärtuseks "False".
-
Characters(1).Font.Color = wdColorGreen
See rakendab kirjale rohelist värvi. Soovitud värvi valimiseks külastage järgmist linki: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
2. meetod: muutke kõigi lausete esimese sõna esimese tähe stiili
- Esiteks installige ja käivitage makro, nagu on näidatud meetodis 1.
- Seejärel asendage see makroga:
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
Kontrolli tulemust:
3. meetod: muutke kõigis lõikudes sõna esimese tähe stiili
- Sarnaselt installige ja käivitage makro, järgides 1. meetodi samme.
- Järgmisena kasutage seda makrot:
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
Vaadake ekraanipilti:
Parim meetod andmekao käsitlemiseks
Kriitiline andmete kadu võib olla väga stressirohke. Seetõttu peate teadma, kuidas sellise katastroofi korral toime tulla. Ja loomulikult on teie parim lahendus hankida a doc remont kasulikkust. Selle abil saate oma andmed tagasi võimalikult lühikese ajaga.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli remont ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom




