yuansusheji 发表于 2025-7-25 15:11:58

CDR拆分文件

有什么办法让50页cdr文件分成5个CDR每个文件10页

hanlin 发表于 2025-7-25 17:29:17

买插件可以的轻松实现

夜的影子 发表于 2025-7-25 17:34:07

关闭文件，复制成五份，重命名10、20、30... ，然后打开所有文件，打开页面管理器，删除多余的页面。

fanmao 发表于 2025-7-26 08:26:07

夜的影子 发表于 2025-7-25 17:34
关闭文件，复制成五份，重命名10、20、30... ，然后打开所有文件，打开页面管理器，删除多余的页面。 ...

简单、粗暴、适用:victory:

baruny 发表于 2025-7-26 08:26:23

用分页合页中的合页功能

夜的影子 发表于 2025-7-26 08:44:07

本帖最后由 夜的影子 于 2025-7-26 08:50 编辑

如果经常使用这个功能，可以写一个程序解决。
Sub CDRfileSplic()
       Dim Doc as VGCore.Document
       Set Doc = VGCore.Application.ActiveDocument
       Dim Re as Integer      
       Re = InputBox("请输入拆分的页数，就是每个文件保留的页数","每文件页数","10")
       if Re>Doc.Pages.Count then Exit sub
      
End Sub


补充内容 (2025-7-26 09:08):
程序没写完，本来想着很简单，没想到越写越麻烦。。。。
应该是直接另存几个文件，然后挨个打开，删除多余的页面。

CHAOYAN 发表于 2025-7-27 17:53:31

夜的影子 发表于 2025-7-25 17:34
关闭文件，复制成五份，重命名10、20、30... ，然后打开所有文件，打开页面管理器，删除多余的页面。 ...

这个号，简单，就是麻烦点:lol
页: [1]
查看完整版本: CDR拆分文件