2014-04-15 45 views
1

我有一个问题,到底要打​​印超过1000的Microsoft Word 2010个文档时插入一个空白页。需要超过1000字的文件

我一直在考虑这些文件,它们都在同一个文件夹中,我有一个宏,将全部打印出来,但是我现在已经被告知,文件必须以相反的顺序进行打印。由于它们是双面打印机,打印机正在以双面打印5-4,3-2,1的方式进行打印,我需要将它们打印出来5,4-3,2-1。我被告知唯一的办法就是如果我在每个文档的末尾插入一个空白页面。我显然不想手动执行此操作。

有人可以帮助我,需要帮助。

感谢

回答

0

未测试

创建与文件目录此文件并将其保存为.BATthis 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