凡心 发表于 2017-8-24 10:30:23

请问cdr排文字时，能自动生成多个页面吗

请问大神，用cdr排文字时，有大段文字需要几个页面来排，能不能设定好一个页面的规格之后，把文字一次性粘贴出来，自动生成多个页面以排下所有的文字？

凡心 发表于 2017-8-24 11:27:41

另外,　请问cdr哪个插件可以一次性删除多个页面?比如从5-12一次性删除。前方插件有这个功能，但是它不支持64位软件！我以前买的正版插件竟然只能作废了。

北落师门 发表于 2017-8-24 11:56:43

小精灵可以导入数据 可以设置自动分页一键自动导入

jialan75 发表于 2017-8-24 14:11:21

凡心 发表于 2017-8-24 11:27
另外,　请问cdr哪个插件可以一次性删除多个页面?比如从5-12一次性删除。前方插件有这个功能，但是它不支持6 ...

Sub mainBody()
Dim toStart As Integer, toEnd As Integer
a = InputBox(1, 2)
If InStr(a, "-") = 0 Then MsgBox "请用'-'分开两个页码": Exit Sub
toStart = Int(Split(a, "-")(0))
toEnd = Int(Split(a, "-")(1))
If toEnd > ActiveDocument.Pages.Count Then MsgBox "您输入的页数过多": Exit Sub
If toEnd <= toStart Then MsgBox "您输入的起始页大于或等于结束页": Exit Sub
ActiveDocument.BeginCommandGroup
ActiveDocument.DeletePages toStart, toEnd - toStart + 1
Application.Refresh
ActiveDocument.EndCommandGroup
End Sub

jialan75 发表于 2017-8-24 14:14:15

凡心 发表于 2017-8-24 11:27
另外,　请问cdr哪个插件可以一次性删除多个页面?比如从5-12一次性删除。前方插件有这个功能，但是它不支持6 ...

Sub mainBody()
Dim toStart As Integer, toEnd As Integer
a = InputBox(1, 2)
If InStr(a, "-") = 0 Then MsgBox "请用'-'分开两个页码": Exit Sub
toStart = Int(Split(a, "-")(0))
toEnd = Int(Split(a, "-")(1))
If toEnd > ActiveDocument.Pages.Count Then MsgBox "您输入的页数过多": Exit Sub
If toEnd <= toStart Then MsgBox "您输入的起始页大于或等于结束页": Exit Sub
ActiveDocument.BeginCommandGroup
ActiveDocument.DeletePages toStart, toEnd - toStart + 1
Application.Refresh
ActiveDocument.EndCommandGroup
End Sub有些人可能不知道这些代码怎么使用 请看录像
链接：https://share.weiyun.com/965bc2ef5a5afb25cd04d86974137772 （密码：q5Xv）

yhsza 发表于 2017-8-24 15:20:02

无语中，你是小白吧，慢慢跟大神学习吧

凡心 发表于 2017-8-24 17:06:06

北落师门 发表于 2017-8-24 11:56
小精灵可以导入数据 可以设置自动分页一键自动导入

先谢谢你。不知小精灵是用一个功能？只有一个导入文件，这是导入图片的。我的3.14上没有找到导入数据的功能。

凡心 发表于 2017-8-24 17:08:55

yhsza 发表于 2017-8-24 15:20
无语中，你是小白吧，慢慢跟大神学习吧

请大神说说方法，光说空话是没有意义的。
页: [1]
查看完整版本: 请问cdr排文字时，能自动生成多个页面吗