更改 Word 文檔中特定單詞首字母樣式的 3 種快速方法

Word解決方案 2025 年 9 月 28 日

在本文中，我們將向您展示 3 種更改 Word 文檔中特定單詞首字母樣式的方法。

格式化文檔的常見規則之一是將每個句子的第一個字母大寫。但在某些特殊情況下，例如處理藝術文件，我們必須滿足特定要求。

在這篇文章中，我們將根據 3 種不同的需求，向您展示 3 種改變單字首字母樣式的方法。

方法 1：更改文檔中每個單詞首字母的樣式

首先，按下「Alt+F11」鍵即可在 Word 中開啟 VBA 編輯器。
然後單擊左側列上的“普通”。
接下來在菜單欄上，單擊“插入”。
然後單擊下拉菜單中的“模塊”。
現在雙擊新模塊將其打開並粘貼以下代碼：

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

最後，單擊“運行”。

結果如下：

注意：

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

這將設置 16 中第一個字母的字體大小。根據需要更改數字。

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

此行以粗體設置第一個字母。如果不需要，可以將“True”更改為“False”。

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

這一個將綠色應用於字母。訪問以下鏈接以選擇您想要的顏色： https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

方法二：改變所有句子中第一個單詞的第一個字母的樣式

首先，按照方法1安裝並運行宏。
然後替換為該宏：

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

檢查結果：

方法三：更改所有段落第一個單詞首字母的樣式

同樣，按照方法 1 中的步驟安裝並運行宏。
接下來使用這個宏：

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

看截圖：

處理數據丟失的最佳方法

關鍵數據丟失可能會帶來很大壓力。因此，您必須知道如何應對這樣的災難。當然，你最好的解決辦法是得到一個 doc修復公用事業。有了它，您可以在最短的時間內取回您的數據。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 Excel修復以及 pdf 維修軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM