有位朋侪說他需要把一些 Word 文件檔裡面的 "第一章" 全部改成 "第1章"、 "第一款" 掃數改成 "第1款"、......依此類推，最多會到第一百多章、第一百多款 (天成翻譯公司猜想多是討論律例的文章吧！)
原理是用Windows記事本 (Notepad) 把 "要被代替" 和 "要用來代替" 的字串寫在 Replace.txt 純文字檔案 (放在 C: 磁碟的根目錄) 裡，寫一個 ReplaceText() 函式去呼喚 Word 的 find 功能履行代替。
Replace.txt 現實的內容以下:
Replace.txt 的每列裡面以逗號 (擺佈不要空格) 來分隔要尋覓的字串與要用來取代的字串。第一格若是 ' 透露表現這一列是註解，程式會把這一列略過翻譯
Function ReplaceText(Src As String翻譯社 Rpl As String)
'這個函式會在全部檔案裡搜尋 Src 字串翻譯社 將它代替為 Rpl 字串
End Function
Fn = FreeFile
而在利用者要履行的 MassReplace() 副程式裡，是由 Replace.txt 每讀出一列，就把 "要被庖代" 和 "要用來代替" 的字串傳給 ReplaceText() 函式去執行。
他說曾想過用 Word 的搜尋\代替，但是因為文章裡會有一些其他的中文數字，例如 "十分完整" 之類的，所以不可以直接用 "1～199" 代替 "一～一百九十九"翻譯所以需用 "第1章"～"第199章" 取代 "第一章"～"第一百九十九章"。可是手動操作真會累死，檔案還不只一個......(如同愚公移山 ^_^ )
不信
Selection.HomeKey Unit:=wdStory翻譯社 Extend:=wdMove
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Src
.Replacement.Text = Rpl
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Execute Replace:=wdReplaceAll '全部代替
End With
於是我寫了底下的程式，給他放在 Normal.dot (的插入模組) 裡使用：
Sub MassReplace()
Dim arrStr() As String翻譯社 InputStr As String
文件檔裡面有第一章～第一百九十九章、第一款～第一百九十九款需要做取代，所以扣除註解，Replace.txt 會有 199x2 = 398 列對嗎？
Option Base 0
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
End Sub
之所以把 Replace.txt 的內容悉數列出來，是因為我用了一點小技能安排這個檔案的內容 (特別是前後的挨次)，所以只用了75列 (也就是要履行75次find\Relpace)，就能夠解決第一章～第一百九十九章、第一款～第一百九十九款的取代。
留言列表
