I denne artikel vil vi gerne præsentere dig 3 metoder til at ændre stilen på det første bogstav med specifikke ord i dit Word-dokument.
En af de almindelige regler for formatering af et dokument er at kapitalisere det første bogstav i hver sætning. Men i nogle specielle tilfælde, såsom at arbejde på et kunstnerisk dokument, er der specifikke krav, vi skal opfylde.
Og i dette indlæg viser vi dig 3 måder at ændre stilen på det første bogstav i et ord i henhold til 3 forskellige krav.
Metode 1: Skift stil for det første bogstav i hvert ord i et dokument
- Først og fremmest skal du trykke på “Alt+F11” for at åbne VBA-editoren i Word.
- Klik derefter på “Normal” i venstre kolonne.
- Klik derefter på "Indsæt" på menulinjen.
- Og klik på "Modul" i rullemenuen.
- Dobbeltklik nu på det nye modul for at åbne det og indsætte følgende koder der:
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
- Klik til sidst på "Kør".
Her er resultatet:
Bemærkninger:
-
Characters(1).Font.Size = 16
Dette indstiller skriftstørrelsen på det første bogstav i 16. Skift nummeret, som du vil.
-
Characters(1).Font.Bold = True
Denne linje sætter første bogstav med fed skrift. Du kan ændre “Sand” til “Falsk”, hvis du ikke har brug for det.
-
Characters(1).Font.Color = wdColorGreen
Denne anvender grøn farve til bogstavet. Besøg følgende link for at vælge den ønskede farve: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
Metode 2: Skift stil for første bogstav i første ord i alle sætninger
- For det første skal du installere og køre makro som vist i metode 1.
- Udskift derefter med denne makro:
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
Tjek resultatet:
Metode 3: Skift stil for første bogstav i første ord i alle afsnit
- På samme måde skal du installere og køre en makro ved at følge trinene i metode 1.
- Brug derefter denne 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
Se skærmbilledet:
Bedste tilgang til håndtering af datatab
Det kan være meget stressende at have kritisk datatab. Derfor skal du vide, hvordan du skal håndtere en sådan katastrofe. Og selvfølgelig er din bedste løsning at få fat i en doc reparation hjælpeprogram. Med det kan du få dine data tilbage på mindst mulig tid.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel reparation og pdf produkter til reparation af software. For mere information besøg www.datanumen.com




