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ă postare, vă vom arăta 3 modalități de a schimba stilul primei litere a cuvintelor î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, apăsați „Alt+F11” pentru a apela 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 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. În cele din urmă, faceți clic pe „Rulați”.

Iată rezultatul:

note:

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

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

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

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

3. Characters(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 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

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
 
  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

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