3 rychlé způsoby, jak změnit styl prvního písmene konkrétních slov v dokumentu Word

V tomto článku bychom vám chtěli představit 3 způsoby, jak změnit styl prvního písmene konkrétních slov v dokumentu Word.

Jedním z běžných pravidel formátování dokumentu je velká písmena prvního písmene každé věty. V některých zvláštních případech, například při práci na uměleckém dokumentu, však musíme splnit určité požadavky.

A v tomto příspěvku vám ukážeme 3 způsoby, jak změnit styl prvního písmene slov podle 3 různých požadavků.

Metoda 1: Změňte styl prvního písmene každého slova v dokumentu

1. Nejprve stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA ve Wordu.
2. Poté klikněte na „Normální“ v levém sloupci.
3. Dále na řádku nabídek klikněte na „Vložit“.
4. A v rozbalovací nabídce klikněte na „Modul“.
5. Nyní dvakrát klikněte na nový modul a otevřete jej a vložte tam následující 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. Nakonec klikněte na „Spustit“.

Zde je výsledek:

Poznámky:

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

Tím se nastaví velikost písma prvního písmene na 16. Změňte číslo podle libosti.

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

Tento řádek nastaví první písmeno tučně. Pokud nepotřebujete, můžete změnit „True“ na „False“.

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

Tenhle použije zelenou barvu na písmeno. Navštivte následující odkaz a vyberte požadovanou barvu: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

Metoda 2: Změňte styl prvního písmene prvního slova ve všech větách

1. Nejprve nainstalujte a spusťte makro, jak je znázorněno v metodě 1.
2. Poté nahraďte tímto makrem:

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

Zkontrolujte výsledek:

Metoda 3: Změňte styl prvního písmena prvního slova ve všech odstavcích

1. Podobně nainstalujte a spusťte makro podle kroků v metodě 1.
2. Dále použijte 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

Podívejte se na snímek obrazovky:

Nejlepší přístup k řešení ztráty dat

Může být velmi stresující mít kritickou ztrátu dat. Proto musíte vědět, jak se s takovou katastrofou vypořádat. A samozřejmě, vaším nejlepším řešením je sehnat a oprava dokumentu nástroj. Díky tomu můžete získat svá data zpět za co nejkratší dobu.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava aplikace Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com