版块 › CorelDRAW专区 › 求助一个CDR快速录入文件名的技巧或插件也行

putu 发表于 2025-5-13 21:52:17

求助一个CDR快速录入文件名的技巧或插件也行

友友们求帮助，就是在打开的文件cdr里右下角自动加上文件名并调整位置。
具体操作如下：
因为要每天排版打印很多字稿文件，现在是每个文件打开前先复制文件名，再打开cdr文件，然后在cdr里给文件加外框（ctrl+A全选，群组，按shift+双击矩形工具），最后粘贴录入文件名（调整文件名字号大小，放置270度）到右下角，再保存打印文件。
有没有简单的技巧，或者插件可以实现一键操作？

putu 发表于 2025-5-13 21:57:17

目的是为了实现打印出来的cdr文件，每天打印的文件很多，给每个文件加文件名标注方便区分查找打印的成品文件

华字CDR 发表于 2025-5-14 08:24:52

华字插件有一个【批量导入文件】可以添加文件名。 有需可以查看我发的

夜的影子 发表于 2025-5-14 10:59:55

“按shift+双击矩形工具”这是什么操作？你的需求，写一段代码就可以了。

夜的影子 发表于 2025-5-14 11:19:58

随手写的，文字大小没改。

Sub AddFileName()
    Dim T As VGCore.Shape
    Dim O As VGCore.Shape
    Dim L As VGCore.Layer
    Dim MyShapes As VGCore.ShapeRange
    Set MyShapes = VGCore.ActiveSelectionRange
    MyShapes.Group
    Set L = VGCore.ActivePage.Layers(VGCore.ActivePage.Layers.Count)
   
    Set T = VGCore.ActiveLayer.CreateArtisticText(0, 0, VGCore.ActiveDocument.Name)
    T.Rotate -90
    T.BottomY = MyShapes.BottomY
    T.LeftX = MyShapes.RightX
    Set O = L.CreateRectangle(MyShapes.LeftX, MyShapes.TopY, MyShapes.RightX, MyShapes.BottomY)
    O.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
    O.Outline.Width = 0.01
    O.OrderToBack
End Sub

putu 发表于 2025-5-14 11:40:58

夜的影子 发表于 2025-5-14 10:59
“按shift+双击矩形工具”这是什么操作？你的需求，写一段代码就可以了。 ...

谢谢友友，那步操作是为了给文件加外框，打印后知道文件边界到那里

夜的影子 发表于 2025-5-14 13:43:26

putu 发表于 2025-5-14 11:40
谢谢友友，那步操作是为了给文件加外框，打印后知道文件边界到那里

我的2021没这个功能。

putu 发表于 2025-5-15 21:08:07

本帖最后由 putu 于 2025-5-15 21:11 编辑

夜的影子 发表于 2025-5-14 13:43
我的2021没这个功能。
有这个功能的，先选中要加框内容，然后按shift键同时双击矩形工具就可以了。(不按shift键直接双击矩形工具是给工作区加外框)

petergh 发表于 2025-5-15 22:26:51

Acrobat +Quite Imposing Plus 也很容易搞。

東咩 发表于 2025-5-16 09:11:59

感觉你做的流程有点类似拼版，感觉把文件搞cdr里面有点麻烦了，不如PDF方便

查看完整版本: 求助一个CDR快速录入文件名的技巧或插件也行