3 snelle manieren om de stijl van de eerste letter van specifieke woorden in uw Word-document te wijzigen

In dit artikel willen we u 3 methoden presenteren om de stijl van de eerste letter van specifieke woorden in uw Word-document te wijzigen.

Een van de gebruikelijke regels voor het opmaken van een document is om de eerste letter van elke zin met een hoofdletter te schrijven. Maar in sommige speciale gevallen, zoals het werken aan een artistiek document, zijn er specifieke eisen waaraan we moeten voldoen.

In dit bericht laten we je 3 manieren zien om de stijl van de eerste letter van woorden aan te passen aan 3 verschillende wensen.

Methode 1: Wijzig de stijl van de eerste letter van elk woord in een document

1. Druk allereerst op "Alt+F11" om de VBA-editor in Word te openen.
2. Klik vervolgens op "Normaal" in de linkerkolom.
3. Klik vervolgens op de menubalk op "Invoegen".
4. En klik op "Module" in het drop-down menu.
5. Dubbelklik nu op een nieuwe module om deze te openen en plak daar de volgende codes:

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. Klik ten slotte op "Uitvoeren".

Hier is het resultaat:

Opmerkingen:

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

Dit stelt de lettergrootte van de eerste letter in 16. Verander het nummer zoals je wilt.

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

Deze regel zet de eerste letter vetgedrukt. U kunt "True" in "False" veranderen als u dat niet nodig hebt.

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

Deze past groene kleur toe op de letter. Bezoek de volgende link om de gewenste kleur te kiezen: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

Methode 2: Wijzig de stijl van de eerste letter van het eerste woord in alle zinnen

1. Installeer en voer eerst de macro uit zoals weergegeven in methode 1.
2. Vervang dan door deze macro:

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

Bekijk het resultaat:

Methode 3: Wijzig de stijl van de eerste letter van het eerste woord in alle alinea's

1. Installeer en voer op dezelfde manier een macro uit volgens de stappen in methode 1.
2. Gebruik vervolgens deze macro:

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

Zie de screenshot:

De beste aanpak voor het omgaan met gegevensverlies

Het verlies van kritieke gegevens kan erg stressvol zijn. Daarom moet u weten hoe u met een dergelijke ramp moet omgaan. En natuurlijk is uw beste oplossing om een doc reparatie nut. Hiermee kunt u uw gegevens in de kortst mogelijke tijd terugkrijgen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel reparatie en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com