利用VBA代碼實現快速合并文本

為了提高錄入的效率，同事分別安排下屬錄入不同的文本，并以數字序號進行命名，最后再在Word中將這些文本文檔合并起來。常規的方法是切換到“插入”選項卡，在“文本”功能組選擇“對象→文件中的文字”，如圖1所示，按照提示插入相關的文本，操作起來比較麻煩一些。其實，我們也可以利用VBA代碼實現快速合并文本的任務：

打開Word文檔，按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側窗格插入一個空白模塊，如圖2所示，手工輸入或粘貼如下代碼：

Sub hebin（）

Dim fs1， f1

Set fs1 = CreateObject（"Scripting.FileSystemObject"）

For i = 1 To 4

file1 = "h：＼Download＼文本合并＼" & i & ".txt"

Set f1 = fs1.OpenTextFile（file1， 1， 0）

Selection.TypeText f1.Readall

Selection.TypeParagraph

f1.Close

Next i

Set f1 = Nothing

Set fs1 = Nothing

End Sub

上述代碼中的代碼名“hebin”可以任意命名，“h：＼Download＼文本合并＼”表示文本文檔所在的路徑名稱，“For i = 1 To 4”表示待合并文本的數量，代碼檢查沒有錯誤之后，依次選擇“文件→關閉并返回到Microsoft Word”命令，返回Word主界面，按下“Alt+F8”組合鍵，打開“宏”對話框，選擇并運行宏，很快就可以完成合并文本的任務。

補充：如果文本文檔的數量發生變化，只需要修改“ For i = 1 To 4”即可，但必須保證這些文本文檔的文件名都是數字的形式。