3 hitri načini spreminjanja sloga prve črke določenih besed v dokumentu Word

V tem članku vam predstavljamo 3 načine za spreminjanje sloga prve črke določenih besed v dokumentu Word.

Eno od pogostih pravil oblikovanja dokumenta je uporaba velike črke vsakega stavka. Toda v nekaterih posebnih primerih, na primer pri delu z umetniškim dokumentom, moramo izpolniti posebne zahteve.

And in this post, we will show you 3 ways to change the style of the first letter of words according to 3 different demands.

1. način: Spremenite slog prve črke vsake besede v dokumentu

1. Najprej in predvsem pritisnite »Alt + F11«, da zaženete urejevalnik VBA v Wordu.
2. Nato v levem stolpcu kliknite »Normal«.
3. Nato v menijski vrstici kliknite »Vstavi«.
4. V spustnem meniju kliknite »Modul«.
5. Zdaj dvokliknite nov modul, da ga odprete in tja prilepite naslednje kode:

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. Na koncu kliknite »Zaženi«.

Tu je rezultat:

Opombe:

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

S tem nastavite velikost pisave prve črke na 16. Spremenite številko, kot želite.

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

Ta vrstica postavlja prvo črko krepko. Če ne potrebujete, lahko »True« spremenite v »False«.

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

Ta na črko nanaša zeleno barvo. Obiščite naslednjo povezavo in izberite želeno barvo: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

2. način: Spremenite slog prve črke prve besede v vseh stavkih

1. Najprej namestite in zaženite makro, kot je prikazano v 1. metodi.
2. Nato zamenjajte s tem 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

Preverite rezultat:

3. način: Spremenite slog prve črke prve besede v vseh odstavkih

1. Podobno namestite in zaženite makro po korakih v 1. metodi.
2. Nato uporabite ta 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

Oglejte si posnetek zaslona:

Najboljši pristop k reševanju izgube podatkov

Kritična izguba podatkov je lahko zelo stresna. Zato morate vedeti, kako se spoprijeti s takšno nesrečo. In seveda, vaša najboljša rešitev je, da se lotite popravilo dokumenta uporabnost. Z njim lahko v najkrajšem času dobite podatke nazaj.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravilo v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com