iT邦幫忙

0

如何列印檔案夾doc,指定範圍

  • 分享至 

  • xImage

事情是這樣的
因為發現以前列印的文件有誤
要重新列印一份
但只要文件的1-2頁
如果把檔案夾內doc全部選取列印的話沒有辦法選取P1-P2
會直接全部印出

檔案非常大量 大概有150個左右(每個都不一樣的內容)
所以想問問大家有沒有什麼方法(除了一個一個開..)
可以批次列印檔案的P1-P2
感謝各位QQ

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中
1
海綿寶寶
iT邦大神 1 級 ‧ 2021-08-04 17:37:14
最佳解答

我只會用 VBA
開啟 Word 新檔案
隨便錄個巨集
進入編輯巨集畫面
貼上以下程式碼
按 F5 執行
(游標要放在 Sub BatchPrintWordDocuments 那列)

Sub BatchPrintWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="2"
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

參考資料來源的方法二

w98775 iT邦新手 5 級 ‧ 2021-08-05 10:53:36 檢舉

謝謝你!!!完美解決我的問題了!!!大感謝!!!

問題解決就好

1
lion_inin
iT邦新手 1 級 ‧ 2021-08-04 17:10:35

他可以選

https://ithelp.ithome.com.tw/upload/images/20210804/20132973vueOxhQ3js.jpg

在不然就先複製一份,之後把不要的內容刪掉,剩下你要的在印出來就好了~

w98775 iT邦新手 5 級 ‧ 2021-08-05 10:53:56 檢舉

謝謝您的回覆~~因為很大量所以一個一個開的話要花很多時間XD

1
IT 癡
iT邦高手 1 級 ‧ 2021-08-04 17:52:32

還是必須一個個開檔案,才能選擇性列印

w98775 iT邦新手 5 級 ‧ 2021-08-05 10:54:04 檢舉

謝謝您~~~~

1
淺水員
iT邦大師 6 級 ‧ 2021-08-05 01:16:25

我搜尋「word cli」
有看到這個專案 waylan/msword-cli

For example, to open a document, print two copies of pages 2, 3, 4, and 6 of that document, and then close the document, the following single command is all that is needed:
msw open somedoc.docx print --count 2 --pages "2-4, 6" close

PS. 因為我沒有 word 所以無法測試

w98775 iT邦新手 5 級 ‧ 2021-08-05 10:54:16 檢舉

感謝您的回覆!!!!

我要發表回答

立即登入回答