I denne artikkelen vil vi presentere deg 3 metoder for å endre stilen til den første bokstaven i spesifikke ord i Word-dokumentet ditt.
En av de vanlige reglene for formatering av et dokument er å bruke stor bokstav i hver setning. Men i noen spesielle tilfeller, som for eksempel å jobbe med et kunstnerisk dokument, er det spesifikke krav vi må oppfylle.
Og i denne sost, vil vi vise deg 3 måter å endre stilen til den første bokstaven i ord i henhold til 3 forskjellige krav.
Metode 1: Endre stilen til den første bokstaven i hvert ord i et dokument
- Først og fremstost, trykk "Alt+ F11" for å starte VBA-redigering i Word.
- Klikk deretter "Normal" i venstre kolonne.
- Klikk deretter på "Sett inn" på menylinjen.
- Og klikk "Modul" på rullegardinmenyen.
- Dobbeltklikk nå på ny modul for å åpne den og lim inn følgende koder der:
Sub ChangeStyleOfFirstLetterInWords() Dim objWord As Range For Hvert objWord I ActiveDocument.Words ' Endre skriftstørrelsen for den første bokstaven i hvert ord. objWord.Characters(1).Font.Size = 16 ' Angi fet skrift for den første bokstaven i hvert ord. objWord.Characters(1).Font.Bold = True ' Endre skriftfargen for den første bokstaven i hvert ord. objWord.Characters(1).Font.Color = wdColorGreen Next End Sub
- Til slutt klikker du på "Kjør".
Her er resultatet:
Merknader:
-
Tegn(1). Font.Size = 16
Dette angir skriftstørrelsen på første bokstav i 16. Endre tallet som du vil.
-
Tegn(1). Font.Fet = Sant
Denne linjen setter første bokstav i fet skrift. Du kan endre "True" til "False" hvis du ikke trenger det.
-
Characters(1).Font.Color = wdColorGreen
Denne bruker grønn farge på bokstaven. Gå til følgende lenke for å velge ønsket farge: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
Metode 2: Endre stilen til den første bokstaven i det første ordet i alle setninger
- Først, installer og kjør makro som vist i metode 1.
- Erstatt deretter med denne makroen:
Sub ChangeStyleOfFirstLetterInSentence() Dim objSentence As Range For Every objSentence In ActiveDocument.Sentences ' Endre skriftstørrelsen for den første bokstaven i hver setning. objSentence.Words(1).Characters(1).Font.Size = 16 ' Angi fet skrift for den første bokstaven i hver setning. objSentence.Words(1).Characters(1).Font.Bold = True ' Endre skriftfargen for den første bokstaven i hver setning. objSentence.Words(1).Characters(1).Font.Color = wdColorGreen Next End Sub
Sjekk resultatet:
Metode 3: Endre stilen til den første bokstaven i det første ordet i alle avsnitt
- På samme måte, installer og kjør en makro ved å følge trinnene i metode 1.
- Bruk deretter denne makroen:
Sub ChangeStyleOfFirstLetterInParagraphs() Dim objParagraph As Word.Paragraph For Every objParagraph In ActiveDocument.Paragraphs ' Endre skriftstørrelsen for den første bokstaven i hvert avsnitt. objParagraph.Range.Words(1).Characters(1).Font.Size = 16 ' Angi fet skrift for den første bokstaven i hvert avsnitt. objParagraph.Range.Words(1).Characters(1).Font.Bold = True ' Endre skriftfargen for den første bokstaven i hvert avsnitt. objParagraph.Range.Words(1).Characters(1).Font.Bold = True Next End Sub
Se skjermbildet:
Beste tilnærming til å håndtere datatap
Det kan være veldig stressende å ha kritisk datatap. Derfor må du vite hvordan du skal håndtere en slik katastrofe. Og selvfølgelig er din beste løsning å få tak i en doc reparasjon nytte. Med den kan du få tilbake dataene dine på kortest mulig tid.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel reparasjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med
noen som finner ut hvordan de første 2 bokstavene i hvert ord i hver setning med fet skrift?
vil gjerne ha en kode for å gjøre dette,
takk
Tusen takk! Du har spart meg for timer med arbeid.
Finnes det en måte å bruke store bokstaver, fet skrift og understreke det første ORDET i en e-post?
endre tallet i obj.word.characters(1) til tegnets nummer i ordet, som du vil endre, kanskje.
aldri prøvd det, men det ville være fornuftig.
for flere bokstaver, prøv enten obj.word.characters(1, 2, 3), eller prøv å skrive grunntallet flere ganger med && imellom.
forhåpentligvis kan det fungere
endre tallet i obj.word.characters(1) til tegnets nummer i ordet, som du vil endre, kanskje.
aldri prøvd det, men det ville være fornuftig.
for flere bokstaver, prøv enten obj.word.characters(1, 2, 3), eller prøv å skrive grunntallet flere ganger med && imellom.
forhåpentligvis kan det fungere.
Jeg får stadig en feilmelding og jeg vet ikke hva jeg gjør galt.
Du har låst opp et helt område med Microsoft Word for meg!!
Kan du gjøre dette for andre eller tredje bokstaver også?
Takk skal du ha. Dette var en livredder