3 rýchle spôsoby, ako zmeniť štýl prvého písmena konkrétnych slov v dokumente programu Word

V tomto článku by sme vám chceli predstaviť 3 spôsoby, ako zmeniť štýl prvého písmena konkrétnych slov v dokumente Word.

Jedným z bežných pravidiel formátovania dokumentu je písanie veľkých písmen prvého písmena každej vety. Ale v niektorých zvláštnych prípadoch, napríklad pri práci na umeleckom dokumente, musíme splniť určité požiadavky.

A v tomto príspevku vám ukážeme 3 spôsoby, ako zmeniť štýl prvého písmena slov podľa 3 rôznych požiadaviek.

Metóda 1: Zmena štýlu prvého písmena každého slova v dokumente

1. V prvom rade stlačte klávesy „Alt + F11“ na spustenie editora VBA vo Worde.
2. Potom kliknite na „Normálny“ v ľavom stĺpci.
3. Ďalej na paneli s ponukami kliknite na „Vložiť“.
4. A v rozbaľovacej ponuke kliknite na „Modul“.
5. Teraz dvakrát kliknite na nový modul a otvorte ho a vložte tam nasledujúce kódy:

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. Nakoniec kliknite na tlačidlo „Spustiť“.

Tu je výsledok:

Poznámky:

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

Týmto sa nastaví veľkosť písma prvého písmena na 16. Zmeňte počet podľa seba.

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

Tento riadok nastavuje tučné písmeno tučným písmom. Ak to nepotrebujete, môžete zmeniť možnosť „True“ na „False“.

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

Tento použije zelenú farbu na písmeno. Kliknutím na nasledujúci odkaz vyberte požadovanú farbu: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

Metóda 2: Zmena štýlu prvého písmena prvého slova vo všetkých vetách

1. Najskôr nainštalujte a spustite makro, ako je uvedené v metóde 1.
2. Potom nahraďte týmto makrom:

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

Skontrolujte výsledok:

Metóda 3: Zmena štýlu prvého písmena prvého slova vo všetkých odsekoch

1. Podobne nainštalujte a spustite makro podľa krokov v metóde 1.
2. Ďalej použite toto makro:

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

Pozri snímku obrazovky:

Najlepší prístup k riešeniu straty dát

Môže byť veľmi stresujúce mať stratu kritických údajov. Preto musíte vedieť, ako sa s takouto katastrofou vyrovnať. Najlepším riešením je samozrejme zohnať a oprava dok užitočnosť. Vďaka tomu môžete získať svoje dáta späť za čo najkratší čas.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Excel oprava a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S