当前WORD每页生成一个文档

loquat · 发表于 2014-4-10 00:17

刚好暂时还没有考虑空白页的问题。需要再加个判断。。。

qcy2008 · 发表于 2014-4-10 08:13

来学习一下ia啊

dony30mk2 · 发表于 2015-6-8 10:21

将来肯定有需要的，先学习下

x332553761 · 发表于 2015-6-12 20:42

Sub 小宏()
Dim mydoc
'mydoc = "123.docx"
Documents.Activate(123.docx)
SendKeys "%p"
SendKeys ("asdlkfj")
End Sub
怎么不行？

x332553761 · 发表于 2015-6-12 20:45

Dim PageCount&, SavePath$, aPage&, specialStr$
Dim oStart&, oEnd&, aDoc As Document
Set aDoc = ThisDocument
PageCount = aDoc.ComputeStatistics(wdStatisticPages) '获取总页数

646411527 · 发表于 2019-8-28 10:47

邮件合并的文件，是表格形式的，两种表，一种横版的，一种竖版的。每页后面有分页符，在原文档删除后，格式就变了，拆分后下面有空白页而且还删不掉。

		自动登录	找回密码
密码			免费注册

[求助] 当前WORD每页生成一个文档