首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >需要在超过1000个word文档的末尾插入一个空白页

需要在超过1000个word文档的末尾插入一个空白页
EN

Stack Overflow用户
提问于 2014-04-15 11:41:21
回答 1查看 495关注 0票数 1

尝试打印超过1000个microsoft word 2010文档时遇到问题。

我已经得到了这些文件,它们都在同一个文件夹中,我有一个宏来打印它们,但是我现在被告知需要以相反的顺序打印这些文档。因为它们是双面打印的,所以打印机打印它们是双面打印5-4,3-2,1,而我需要打印它们5,4-3,2-1。有人告诉我,唯一能做到这一点的方法就是在每个文档的末尾插入一个空白页。很明显,我不想手动完成此操作。

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

谢谢

EN

回答 1

Stack Overflow用户

发布于 2014-04-15 14:36:04

未测试的

在包含文档的目录中创建此文件,并将其另存为.bat (this is a hybrid bat/vbscript file ) .And,然后将其命名为:

代码语言:javascript
运行
复制
: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

票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/23074269

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档