需要在超过1000个单词文档的末尾插入空白页

Question

尝试打印超过1000个Microsoft Word 2010文档时出现问题。

我已经获得了这些文件并且它们都在同一个文件夹中，我有一个宏将打印所有文件，但是我现在被告知文档需要以相反的顺序打印。由于它们是双面打印机，打印机将打印双面打印5-4,3-2,1，我需要打印5,4-3,2-1。我被告知我能做到这一点的唯一方法是，如果我在每个文档的末尾插入一个空白页。我显然不想手动这样做。

有人可以帮助我吗，需要帮助。

由于

Answer 1

未经过测试

在包含文档的目录中创建此文件，并将其另存为 .bat （this is a hybrid bat/vbscript file）。然后调用它：

:sub echo(str) :end sub
echo off

:::''' batch part ''':::

'>nul 2>&1|| copy /Y %windir%\System32\doskey.exe '.exe >nul

'& echo/ 



'& tskkill winword  >nul 2>&1
'& for %%f in (*.doc *.docx) do cscript /nologo /E:vbscript %~dpfnx0 "%%~dpfnxf" 
'& del '.exe" & exit /b

''' end of batch part '''
Const wdPageBreak = 7 

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = FALSE

'Open the doc
Set objWord = WordApp.Documents.Open(WScript.Arguments.Item(0))

Set objSelection = WordApp.Selection
objSelection.InsertBreak(wdPageBreak)
objSelection.TypeText ""

WordDoc.Close()
WScript.Quit

智慧之源：

http://technet.microsoft.com/en-us/library/ee692875.aspx

http://technet.microsoft.com/en-us/library/ee692855.aspx