3 moduri rapide de a schimba stilul primei litere de anumite cuvinte din documentul Word

În acest articol, am dori să vă prezentăm 3 metode de a schimba stilul primei litere a anumitor cuvinte din documentul dvs. Word.

Una dintre regulile comune de formatare a unui document este să scrieți cu majuscule prima literă a fiecărei propoziții. Dar în unele cazuri speciale, cum ar fi lucrul la un document artistic, există cerințe specifice pe care trebuie să le îndeplinim.

Și în această post, vă vom arăta 3 moduri de a schimba stilul primei litere de cuvinte în funcție de 3 cerințe diferite.

Metoda 1: Schimbați stilul primei litere a fiecărui cuvânt dintr-un document

1. În primul rând și înainteost, apăsați „Alt+ F11” pentru a invoca editorul VBA în Word.
2. Apoi faceți clic pe „Normal” în coloana din stânga.
3. Apoi, în bara de meniu, faceți clic pe „Inserați”.
4. Și faceți clic pe „Modul” din meniul derulant.
5. Acum faceți dublu clic pe modulul nou pentru a-l deschide și inserați următoarele coduri acolo:

Sub ChangeStyleOfFirstLetterInWords() Dim objWord ca interval pentru fiecare objWord din ActiveDocument.Words ' Schimbați dimensiunea fontului pentru prima literă din fiecare cuvânt. objWord.Characters(1).Font.Size = 16 ' Setați fontul Bold pentru prima literă din fiecare cuvânt. objWord.Characters(1).Font.Bold = True ' Schimbați culoarea fontului pentru prima literă din fiecare cuvânt. objWord.Characters(1).Font.Color = wdColorGreen Next End Sub

6. În cele din urmă, faceți clic pe „Rulați”.

Iată rezultatul:

note:

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

Aceasta setează dimensiunea fontului primei litere în 16. Schimbați numărul după cum doriți.

2. Caractere(1).Font.Bold = Adevărat

Acest rând setează prima literă îngroșată. Puteți schimba „adevărat” în „fals” dacă nu aveți nevoie.

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

Acesta aplică culoarea verde literei. Accesați următorul link pentru a alege culoarea dorită: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

Metoda 2: Schimbați stilul primei litere a primului cuvânt din toate propozițiile

1. În primul rând, instalați și rulați macrocomandă așa cum se arată în metoda 1.
2. Apoi înlocuiți cu această macrocomandă:

Sub ChangeStyleOfFirstLetterInSentence() Dim objSentence As Range For Each ObjSentence În ActiveDocument.Sentences ' Schimbați dimensiunea fontului pentru prima literă din fiecare propoziție. objSentence.Words(1).Characters(1).Font.Size = 16 ' Setați fontul Bold pentru prima literă din fiecare propoziție. objSentence.Words(1).Characters(1).Font.Bold = True ' Schimbați culoarea fontului pentru prima literă din fiecare propoziție. objSentence.Words(1).Characters(1).Font.Color = wdColorGreen Next End Sub

Verificați rezultatul:

Metoda 3: Schimbați stilul primei litere a primului cuvânt din toate paragrafele

1. În mod similar, instalați și rulați o macrocomandă urmând pașii din metoda 1.
2. În continuare, utilizați această macrocomandă:

Sub ChangeStyleOfFirstLetterInParagraphs() Dim objParagraph As Word.Paragraph Pentru fiecare objParagraph din ActiveDocument.Paragraphs ' Modificați dimensiunea fontului pentru prima literă din fiecare paragraf. objParagraph.Range.Words(1).Characters(1).Font.Size = 16 ' Setați fontul Bold pentru prima literă din fiecare paragraf. objParagraph.Range.Words(1).Characters(1).Font.Bold = True ' Schimbați culoarea fontului pentru prima literă din fiecare paragraf. objParagraph.Range.Words(1).Characters(1).Font.Bold = True Next End Sub

Vedeți captura de ecran:

Cea mai bună abordare pentru gestionarea pierderii de date

Poate fi foarte stresant să ai pierderi critice de date. Prin urmare, trebuie să știi cum să faci față unui astfel de dezastru. Și, desigur, cea mai bună soluție este să iei un reparatie doc utilitate. Cu el, vă puteți recupera datele în cel mai scurt timp.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Reparatie Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com