helenrm4rvs1@outlook.com

• Jul 27 Fri 2018 01:30

• [WordVBA]若何用find\replace做大量分歧字串的庖代?

Sub MassReplace()
Dim arrStr() As String翻譯社 InputStr As String

Replace.txt 的每列裡面以逗號 (擺佈不要空格) 來分隔要尋覓的字串與要用來取代的字串。第一格若是 ' 透露表現這一列是註解，程式會把這一列略過。

文件檔裡面有第一章～第一百九十九章、第一款～第一百九十九款需要做庖代，所以扣除註解，Replace.txt 會有 199x2 = 398 列對嗎？

Function ReplaceText(Src As String翻譯社 Rpl As String)
'這個函式會在全部檔案裡搜索 Src 字串, 將它取代為 Rpl 字串

他說曾想過用 Word 的搜索\代替，可是因為文章裡會有一些其他的中文數字，例如 "十分完備" 之類的，所以不行以直接用 "1～199" 庖代 "一～一百九十九"翻譯所以需用 "第1章"～"第199章" 代替 "第一章"～"第一百九十九章"。可是手動操作真會累死，檔案還不只一個......(好像愚公移山 ^_^ )

Replace.txt 現實的內容如下:

End Sub

End Function

不信翻譯公司就試試吧！

有位同夥說他需要把一些 Word 文件檔裡面的 "第一章" 所有改成  "第1章"、 "第一款" 悉數改成  "第1款"、......依此類推，最多會到第一百多章、第一百多款 (天成翻譯公司料想可能是接頭律例的文章吧！)

道理是用Windows記事本 (Notepad) 把 "要被取代" 和 "要用來庖代" 的字串寫在 Replace.txt 純文字檔案 (放在 C: 磁碟的根目次) 裡，寫一個 ReplaceText() 函式去呼喚 Word 的 find 功能執行庖代翻譯

Fn = FreeFile

Open "C:\Replace.txt" For Input As #Fn '開啟 Replace.txt 檔
Application.ScreenUpdating = False  '畫面暫停更新
While Not EOF(Fn) 
    Line Input #Fn翻譯社 InputStr '從檔案讀出一列,
    If Len(InputStr) > 0 And Mid(InputStr, 1, 1) <> "'" Then '若第一個字元是'就跳過此列
        arrStr = Split(InputStr翻譯社 ",")  '把讀入的文字列依逗號分成兩個字串,
                                                 '置於 arrStr 陣列裡
        Call ReplaceText(arrStr(0), arrStr(1)) '
    End If
Wend
Application.ScreenUpdating = True  '畫面恢復更新
Close #Fn

Option Base 0