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

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

打開VBA編輯窗口

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

輸入VBA代碼

在VBA編輯窗口中，雙擊左側(cè)的“ThisDocument”，在右側(cè)的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

```

運(yùn)行代碼

將鼠標(biāo)移動(dòng)到頂部工具欄，點(diǎn)擊運(yùn)行按鈕（三角形圖標(biāo)）。頁面將自動(dòng)切換到Word編輯界面，并彈出警告框提示未選擇要修改的內(nèi)容，點(diǎn)擊“確定”。

選擇要修改的內(nèi)容

在Word編輯界面中，使用鼠標(biāo)左鍵選擇要修改顏色的內(nèi)容。

再次運(yùn)行代碼

回到VBA編輯窗口，再次點(diǎn)擊運(yùn)行按鈕后點(diǎn)擊左側(cè)的Word圖標(biāo)。頁面會(huì)自動(dòng)跳轉(zhuǎn)到Word編輯界面，此時(shí)可以看到選擇區(qū)域中每段的第一句都已被修改成紅色。

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