loader
bg-category
合併多個Word 2010文檔

與朋友分享

作者的文章: Kenneth Douglas

無可爭議的Word 2010是一個最好的文字編輯器,除了提供基本的編輯工具和圖表樣式,它還提供了一個選項,以任何你想要的方式自定義文檔。默認情況下隱藏,Word 2010提供了添加不同功能的選項,例如,通過插入幾行代碼,您可以合併Word文檔,而無需使用任何專用的第三方應用程序。在這篇文章中,我們將插入幾行代碼來合併駐留在同一文件夾中的所有文檔內容,並將它們顯示在一個新文件中。

首先,您需要將它們放在同一個文件夾中,確保它們都屬於Doc或Docx的相同Word版本。正如您在下面的屏幕截圖中看到的,我們已經打開了兩個將合併在一起的文檔。

現在打開任何Word文檔並將其保存為啟用宏的文檔,為此,請轉到“文件”菜單並單擊 另存為。

將出現一個對話框 保存類型, 點擊 Word宏啟用模板 然後單擊“保存”

我們將使用VB編輯器,所以首先我們需要製作 開發人員 Word窗口上顯示的選項卡。萬一你沒找到 開發人員 標籤,轉到 文件 菜單,單擊 選項,和 在左窗格中單擊 自定義功能區, 從右側窗格啟用 開發人員 複選框。點擊 好的 查看 開發人員 功能區上的選項卡。

現在導航到 開發人員 選項卡並單擊 Visual Basic。

您將進入VB Editor對話框,從左側邊欄雙擊 ThisDocument to 打開它的VB編輯窗口。您將在右側看到代碼窗口。現在將這些代碼行放入其中。

注意: 不要忘記在這些代碼行中更改文檔所在文件夾的路徑和Word文檔的版本。為了方便起見,我們在代碼前添加了此預防措施。

Sub MergeDocs()

Dim rng As Range

Dim MainDoc作為文檔

Dim strFile As String

Const strFolder =“C: Users Usman Javaid Desktop Word documents ” ||| (更改文檔所在的路徑)

設置MainDoc = Documents.Add

strFile = Dir $(strFolder&“* .docx”) ||| (將文件擴展名更改為.doc,如果您正在處理Word 97-03版本)

Do Until strFile =“”

設置rng = MainDoc.Range

rng.Collapse wdCollapseEnd

rng.InsertFile strFolder&strFile

strFile = Dir $()

結束子

現在按 按Ctrl + S 保存新添加的宏並關閉VB編輯器。導航 開發人員 選項卡並單擊 宏。

來自 對話框,選擇 MergeDocs 宏,然後單擊 .

如果您已正確指定路徑和版本,則所有文檔將合併並在新文檔中打開。

您還可以查看我們之前查看過的關於返回到Word 2010中編輯的最後一行並使用Word 2010中的郵件合併的指南。

[通過 蓋布勒]

與朋友分享

您的意見