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 tejto strost, ukážeme vám 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
- V prvom radeost, stlačte klávesy „Alt + F11“ a vyvolajte editor VBA v programe Word.
- Potom kliknite na „Normálny“ v ľavom stĺpci.
- Ďalej na paneli s ponukami kliknite na „Vložiť“.
- A v rozbaľovacej ponuke kliknite na „Modul“.
- Teraz dvakrát kliknite na nový modul a otvorte ho a vložte tam nasledujúce kódy:
Sub ChangeStyleOfFirstLetterInWords () Dim objWord ako rozsah pre každé objWord v ActiveDocument.Words 'Zmeňte veľkosť písma pre prvé písmeno v každom slove. objWord.Characters (1) .Font.Size = 16 'Nastaví tučné písmo pre prvé písmeno v každom slove. objWord.Characters (1) .Font.Bold = True 'Zmeňte farbu písma pre prvé písmeno v každom slove. objWord.Characters (1) .Font.Color = wdColorGreen ďalší koniec sub
- Nakoniec kliknite na tlačidlo „Spustiť“.
Tu je výsledok:
Poznámky:
-
Znaky (1). Veľkosť písma = 16
Týmto sa nastaví veľkosť písma prvého písmena na 16. Zmeňte počet podľa seba.
-
Znaky (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“.
-
Znaky (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
- Najskôr nainštalujte a spustite makro, ako je uvedené v metóde 1.
- Potom nahraďte týmto makrom:
Sub ChangeStyleOfFirstLetterInSentence () Dim objSentence ako rozsah pre každú objSentence v ActiveDocument.Sentences 'Zmeňte veľkosť písma pre prvé písmeno v každej vete. objSentence.Words (1). Characters (1) .Font.Size = 16 'Nastaviť tučné písmo pre prvé písmeno v každej vete. objSentence.Words (1). Characters (1) .Font.Bold = True 'Zmeňte farbu písma pre prvé písmeno v každej vete. objSentence.Words (1). znaky (1). font.Color = wdColorGreen ďalší koniec sub
Skontrolujte výsledok:
Metóda 3: Zmena štýlu prvého písmena prvého slova vo všetkých odsekoch
- Podobne nainštalujte a spustite makro podľa krokov v metóde 1.
- Ďalej použite toto makro:
Sub ChangeStyleOfFirstLetterInParagraphs () Dim objParagraph ako Word.Paragraph Pre každý objParagraph In ActiveDocument.Paragraphs 'Zmeňte veľkosť písma pre prvé písmeno v každom odseku. objParagraph.Range.Words (1). Characters (1) .Font.Size = 16 'Nastaviť tučné písmo pre prvé písmeno v každom odseku. objParagraph.Range.Words (1) .Characters (1) .Font.Bold = True 'Zmeňte farbu písma pre prvé písmeno v každom odseku. 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
niekto príde na to, ako zvýrazniť prvé 2 písmená každého slova v každej vete tučným písmom?
chcel by som na to kód,
ďakujem
Ďakujem ti veľmi pekne! Ušetrili ste mi hodiny práce.
Existuje spôsob, ako prvé SLOVO v e-maile použiť veľké, tučné a podčiarknuté?
zmeňte číslo v obj.word.characters(1) na číslo znaku v slove, ktoré možno chcete zmeniť.
nikdy som to neskúšal, ale dávalo by to zmysel.
pre viac písmen skúste buď obj.word.characters(1, 2, 3) , alebo skúste napísať základný znak viackrát s && medzi nimi.
snáď sa to podarí
zmeňte číslo v obj.word.characters(1) na číslo znaku v slove, ktoré možno chcete zmeniť.
nikdy som to neskúšal, ale dávalo by to zmysel.
pre viac písmen skúste buď obj.word.characters(1, 2, 3) , alebo skúste napísať základný znak viackrát s && medzi nimi.
snáď sa to podarí.
Stále sa mi zobrazuje chyba a neviem, čo robím zle.
Odomkli ste mi celú oblasť microsoft wordu!!
Môžete to urobiť aj pre druhé alebo tretie písmeno?
Ďakujem. Toto bola záchrana života