批量更改Word文檔中多個下劃線顏色的2種快速方法

Word解決方案 2025 年 9 月 28 日
立即分享：

在本文中，我們將重點介紹2種快速更改Word文檔中多個下劃線顏色的快速方法。

默認情況下，Word中的下劃線顏色設置為“自動”。 但是有時候它可能是單調的。 因此，要使文檔中設置的顏色多樣化並突出重要內容，更改下劃線的顏色是一個不錯的選擇。

創建底線顏色很容易。 因此，在以下內容中，我們將重點放在修改現有下劃線的顏色上。

方法1：利用“高級查找”功能

首先，您需要找到目前文件中所有帶下劃線的地方。為此，您可以參考我們之前的文章： 在Word文檔中搜索帶下劃線的文本的2種快速方法

找到並選中所有下劃線後，請執行以下步驟：

  1. 您只需單擊“主頁”選項卡下劃線圖標後面的上下三角按鈕。
  2. 然後在“下劃線顏色”的擴展菜單上選擇所需的顏色。單擊“主頁”->“上下顛倒”按鈕->“擴展顏色”的擴展菜單上的選擇顏色

這是我們的視頻演示：

方法2：運行Word宏

Word宏是一個了不起的工具。 我們不僅可以使用它搜索所有下劃線，還可以更改它們的顏色。 這兩個過程都可以在一個宏中完成。

  1. 首先，激活“開發人員”選項卡，然後單擊它。
  2. 然後在“代碼”組中單擊“ Visual Basic”。單擊“開發人員”->單擊“ Visual Basic”
  3. 接下來單擊“正常”。
  4. 然後點擊“插入”標籤。
  5. 然後在菜單上選擇“模塊”。單擊“常規”->單擊“插入”->單擊“模塊”
  6. 雙擊新模塊以打開編輯空間。
  7. 現在，在其中粘貼以下代碼：
Sub ChangeUnderlineColor()
  Dim objDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objRange = objDoc.Range
 
  objRange.Find.ClearFormatting
  With objRange.Find
    .Font.Underline = wdUnderlineSingle
    .text = ""
    .Replacement.text = ""
    .Replacement.Font.UnderlineColor = wdColorBlue
    .Execute Format:=True, Replace:=wdReplaceAll
  End With
End Sub
  1. 最後但並非最不重要的一點是，單擊“運行”按鈕。粘貼代碼->單擊“運行”

筆記:

  1. 首先，代碼行“ .Font.Underline = wdUnderlineSingle”表示此宏僅查找單個下劃線。 您可以將“ wdUnderlineSingle”更改為“ wdUnderlineDouble”，“ wdUnderlineThick”等。有關更多下劃線常量，請訪問以下鏈接： https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
  2. 其次，代碼行“ .Replacement.Font.UnderlineColor = wdColorBlue”表示宏將下劃線顏色更改為藍色。 有關更多顏色常數，您可以訪問： https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

檢索受損的Word數據

如今，Word 資料遺失的可能性很高。例如，Word 中最常見的錯誤就是螢幕凍結。當然，您可以選擇重新啟動程式。有時，您正在編輯的文件會自動儲存。然而，我們不能排除或承受文件完全或部分遺失的可能性。因此，我們必須考慮資料恢復的方法。說到這裡，專業的資料復原專家可以提供協助。 文字修復 工具是其成功的關鍵。

作者簡介：

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

立即分享：

評論被關閉。