使用VBA給Word文檔選擇區域每段第一句顯示紅色的方法

本文介紹了如何使用Word的VBA編程，將文檔選擇區域中每段內容的第一句顯示為紅色。 打開VBA編輯窗口首先，打開要編輯的Word文檔，在鍵盤上同時按下“Fn”和“F11”鍵，即可打開VBA編輯窗口。

本文介紹了如何使用Word的VBA編程，將文檔選擇區域中每段內容的第一句顯示為紅色。

打開VBA編輯窗口

首先，打開要編輯的Word文檔，在鍵盤上同時按下“Fn”和“F11”鍵，即可打開VBA編輯窗口。

輸入VBA代碼

在VBA編輯窗口中，雙擊左側的“ThisDocument”，在右側的VBA編輯窗口中輸入以下代碼：

```vba

Sub test()

On Error Resume Next

Dim i As Integer, paph As Paragraph, str As String

If Selection.Type wdSelectionIP Then

MsgBox "沒有選擇": Exit Sub

End If

For Each paph In

str paph.Range.Text

i (1, str, "。")

If i Then

ActiveDocument.Range(, i) wdRed

End If

Next

End Sub

```

運行代碼

將鼠標移動到頂部工具欄，點擊運行按鈕（三角形圖標）。頁面將自動切換到Word編輯界面，并彈出警告框提示未選擇要修改的內容，點擊“確定”。

選擇要修改的內容

在Word編輯界面中，使用鼠標左鍵選擇要修改顏色的內容。

再次運行代碼

回到VBA編輯窗口，再次點擊運行按鈕后點擊左側的Word圖標。頁面會自動跳轉到Word編輯界面，此時可以看到選擇區域中每段的第一句都已被修改成紅色。

通過以上步驟，您可以輕松使用VBA編程將Word文檔選擇區域中每段的第一句顯示為紅色，提升文檔的可讀性和美觀度。