In diesem Artikel möchten wir Ihnen drei Methoden vorstellen, mit denen Sie den Stil des ersten Buchstabens bestimmter Wörter in Ihrem Word-Dokument ändern können.
Eine der allgemeinen Regeln für die Formatierung eines Dokuments besteht darin, den ersten Buchstaben jedes Satzes in Großbuchstaben zu schreiben. In einigen besonderen Fällen, beispielsweise bei der Arbeit an einem künstlerischen Dokument, müssen wir jedoch bestimmte Anforderungen erfüllen.
In diesem Beitrag zeigen wir Ihnen drei Möglichkeiten, den Stil des ersten Buchstabens von Wörtern gemäß drei verschiedenen Anforderungen zu ändern.
Methode 1: Ändern Sie den Stil des ersten Buchstabens jedes Wortes in einem Dokument
- Drücken Sie zunächst „Alt+F11“, um den VBA-Editor in Word aufzurufen.
- Klicken Sie dann in der linken Spalte auf "Normal".
- Klicken Sie anschließend in der Menüleiste auf "Einfügen".
- Klicken Sie im Dropdown-Menü auf "Modul".
- Doppelklicken Sie nun auf das neue Modul, um es zu öffnen und fügen Sie dort folgende Codes ein:
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
- Klicken Sie abschließend auf "Ausführen".
Hier ist das Ergebnis:
Hinweis:
-
Characters(1).Font.Size = 16
Dadurch wird die Schriftgröße des ersten Buchstabens auf 16 festgelegt. Ändern Sie die Zahl nach Ihren Wünschen.
-
Characters(1).Font.Bold = True
Diese Zeile setzt den ersten Buchstaben fett. Sie können "True" in "False" ändern, wenn Sie dies nicht benötigen.
-
Characters(1).Font.Color = wdColorGreen
Dieser wendet grüne Farbe auf Buchstaben an. Besuchen Sie den folgenden Link, um die gewünschte Farbe auszuwählen: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
Methode 2: Ändern Sie den Stil des ersten Buchstabens des ersten Wortes in allen Sätzen
- Installieren Sie zunächst das Makro und führen Sie es aus, wie in Methode 1 gezeigt.
- Dann ersetzen Sie durch dieses 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
Überprüfen Sie das Ergebnis:
Methode 3: Ändern Sie den Stil des ersten Buchstabens des ersten Wortes in allen Absätzen
- Installieren und führen Sie in ähnlicher Weise ein Makro aus, indem Sie die Schritte in Methode 1 ausführen.
- Verwenden Sie als nächstes dieses 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
Siehe den Screenshot:
Bester Ansatz zum Umgang mit Datenverlust
Es kann sehr stressig sein, einen kritischen Datenverlust zu haben. Daher müssen Sie wissen, wie Sie mit einer solchen Katastrophe umgehen können. Und natürlich ist Ihre beste Lösung, eine zu ergattern doc Reparatur Nützlichkeit. Damit können Sie Ihre Daten in kürzester Zeit zurückerhalten.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel-Reparatur und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX




