有时候需要将一个word文档每一页另存为一个word文档如果手工操作,量大会累死人的今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码然后执行Sub SaveParagraph() 即可:
免费注册成为本站会员享用更多功能,结识更多Office办公高手!您需要 才可以下载或查看没有帐号? A:思路:先用GetObject捕获可能已经存在的Word进程,如果不存在Word进程则采用CreateObject函数创建新的Word进程。捕获或创建Word進程后新建一个Word文档,然后借助API函数捕获该文档窗口的句柄再将该句柄窗口置于所有窗口的前面。代码如下:
在ExcelVBA中新建Word文档并使该文档窗口成为当前活动窗口 |