學不完．教不停．用不盡

ChatGPT 除了讓你和它對話得到答案之外，還可以提供解決方案的設定和程式。所以有些操作上的進階效果，使用者在不熟悉的狀況下，也可以讓 ChatGPT 協助你操作。以下提供二個使用範例。

1. 協助在 Word 文件中使用進階的取代功能

例如，我想要將 Word 文件中的所有數字，全部設定成紅色粗體字。要藉助「取代」功能來完成。

提示詞：我要在 Microsoft Word 中使用取代功能，要搜尋所有的數字，想要全部設定成紅色粗體字。請提供我操作步驟及使用萬用字元所需的公式。

ChatGPT 回覆：

這是 Word 文件內容：

套用 ChatGPT 提供的方式：

全部取後的結果：（觀察結果發現其缺點是例如250,000中的「,」不會跟著設定成紅色粗體）

2. 利用 VBA 協助在 Word 文件中將所有數字加上千分位符號

例如，我想要將 Word 文件中的所有數字，全部設定具上千分位符號的數字。要藉助 VBA 功能來完成。

提示詞：我要在 Microsoft Word 中使用取代功能，要搜尋所有的數字，想要全部設定成具千分位符號的數字。請提供我操作步驟及使用萬用字元所需的公式。

ChatGPT 回覆：在 Microsoft Word 中，「取代」功能無法直接為數字增加千分位符號，因為它無法對找到的數字執行格式化操作。您可以使用「萬用字元」來搜尋所有的數字，但無法藉此進行數字格式的修改。不過，可以使用 VBA 巨集指令來自動搜尋並將文件中的數字轉換成具千分位符號的格式。

這是 Word 文件內容：

先開啟 Word 中的 VBA 環境，點選「插入／模組」，以新增一個模組。

再複製 ChatGPT 提供的 VBA 程式碼，並貼於模組之中。

最後，點選「執行」，選取巨集指令名稱，再點選「執行」。

文件中的數字如果超過 1000，則全被改為具千分位符號。

在此附上 VBA 程式碼：

Sub AddThousandSeparator()
    Dim rng As Range
    Dim wdDoc As Document
    Set wdDoc = ActiveDocument
    Set rng = wdDoc.Content
    With rng.Find
        .Text = "[0-9]{1,}"
        .MatchWildcards = True
        .Wrap = wdFindStop
        While .Execute
            rng.Text = Format(rng.Text, "#,##0")
            rng.Collapse wdCollapseEnd
        Wend
    End With
End Sub