yewenji 发表于 2025-1-19 13:03:09

批量旋转 批量尺寸 宽高相同 表格粘贴 免费分享

免费分享 也许有BUG 毕竟是刚学C#，很多都不懂，分享出来供参考测试。
旋转:左右键，自定义方向

粘贴文字:直接粘贴剪切板的内容。
,
宽高相同 和调整尺寸，都加了 鼠标左右键使用。


解压复制文件夹到Addons中：例如："D:\Program Files\Corel\CorelDRAW Graphics Suite X8\Programs64\Addons\批量旋转"
什么版本能用，可以回复一下，用不了，我也没办法,我还是使用VBA比较多。太喜欢VBA快捷键了。


yewenji 发表于 2025-1-22 19:08:44

是不是X7-24版本能用，测试过的朋友，回复一下，那些版本是可以用的。

hyaqxb 发表于 2025-1-19 14:49:45

多谢分享，大佬能做一个文字逆序的插件吗？

WangJun 发表于 2025-1-19 15:37:36

大佬   这个可以加一个位置交换吗？

ayuan 发表于 2025-1-19 16:42:03

功能有点少，界面太丑

aysywy 发表于 2025-1-19 20:52:34

祝你更加完善，实用，简单，便捷。

yang609162876 发表于 2025-1-20 09:18:19

多谢大佬分享,大佬能做一个常用字体分类插件吗？

今何在 发表于 2025-1-20 10:21:15

ayuan 发表于 2025-1-18 22:42
功能有点少，界面太丑

嗯？免费的你还要什么自行车？

yewenji 发表于 2025-1-20 18:30:19

hyaqxb 发表于 2025-1-19 14:49
多谢分享，大佬能做一个文字逆序的插件吗？

别叫大佬，小白新手，菜鸡来的，刚好VBA 有这个功能 ，复制出来合适就用。


Private Sub CommandButton9_Click()

ActiveDocument.BeginCommandGroup

    Dim SR As String, SE As String, i As Integer

    For Each shape In ActiveSelection.Shapes
      
      If shape.Type = cdrTextShape Then
         
            SR = shape.text.Story.text
         
            SE = ""
            For i = Len(SR) To 1 Step -1
                SE = SE & Mid(SR, i, 1)
            Next i
      
            shape.text.Story.text = SE
      Else
         
            Exit Sub
      End If
    Next shape
    ActiveDocument.EndCommandGroup
End Sub

yewenji 发表于 2025-1-20 19:09:23

WangJun 发表于 2025-1-19 15:37
大佬   这个可以加一个位置交换吗？

用大神，夜漫星空，替换对象，就能互换位置了。

WangJun 发表于 2025-1-20 21:40:53

yewenji 发表于 2025-1-20 19:09
用大神，夜漫星空，替换对象，就能互换位置了。

大佬 有互换位置的代码吗？求一个
页: [1] 2
查看完整版本: 批量旋转 批量尺寸 宽高相同 表格粘贴 免费分享