Word檔案的批量列印程式

幫你找到它，自己測試它。

sub printfile() '列印所選檔案。

dim worddoc as objecton error goto errorhandlerset worddoc = createobject("") '建立字詞

with worddoc

for i = 0 to n

mydoc = mpath + docfile(i)visible = false

mydocnext i

end with

set worddoc = nothingexit sub

errorhandler:

set worddoc = nothingmsgbox , vbcritical, "error: " &end sub

1.首先，我們需要將所有需要列印的word文件放在同乙個[資料夾]中，以避免重複和遺漏。 如果文件中還有其他不需要列印的檔案，可以先暫時將它們移動到其他資料夾。 2.選擇資料夾中的第乙個Word檔案，然後按住[Shift]鍵並同時選擇最後乙個檔案。

我們可以看到所有檔案都被框住了，這意味著所有檔案都已被選中。 3.在正確選擇所有檔案的基礎上，將滑鼠指標移動到框架區域，然後右鍵單擊，可以看到有乙個[列印（P）]選項。 然後點選它。

4. 單擊[列印（P）]，在彈出視窗中設定列印引數。 這些文件會自動列印。

方法步驟。

實施過程！ 首先，你的excel檔案需要有乙個欄位列，也就是說，第一行當成乙個列，從第二列開始就是資料區，資料大致就像一張學生成績單

請點選輸入描述。

如果要批量列印類似的Excel資料，那麼，就要使用word軟體來實現（當然使用的軟體不止一種，也有很多軟體也有這個功能），在word選單中找到“工具”，依次執行“Letter and mail”和“mail merge”，這樣就可以在工作區使用“Merge mail toolbar”了， 如下圖所示，找到工具欄，選擇“開啟資料來源”按鈕，點選！

請點選輸入描述。

點選上一步後，會彈出“選擇資料來源”對話方塊，如下圖所示，找到要批量列印的excel檔案！

請點選輸入描述。

選擇excel檔案後，還需要選擇excel檔案的工作表，在這裡，我們選擇第乙個工作表，即"sheet1$"，然後單擊“確定！

請點選輸入描述。

選擇資料來源後，此時word文件中是空白的，這時我們需要插入字段，插入欄位的功能是在word文件中excel的相應位置顯示對應的資料;

點選工具欄上的相關按鈕，如下紅線所示，會彈出對話方塊！

請點選輸入描述。

如上圖所示，根據相關資訊和相關位置選擇不同的網域名稱，這裡我們選擇“類”！ 然後單擊“插入”，您就完成了！

如果有多個字段，那麼我們需要插入多個字段，插入方法同上，就不贅述了！

插入欄位後，此時將無法看到相應的資料，只能看到上圖中的“名稱”等文字，而無法看到具體名稱！

如果要檢視具體資料，請參考下圖，在工具欄中找到“檢視合併資料”按鈕，點選檢視資料！

請點選輸入描述。

好了，到這裡就結束了，以上做完之後，你會在工具欄裡找到乙個資料集操作按鈕，點選相關按鈕，就可以實現批量列印了！

讓我們總結一下：

首先，有乙個 excel 檔案;

再次：選擇資料來源，選擇資料表;

最後：在word文件中尖峰差的對應位置插入字段;