CorelDRAW VBA 插件: 统计文本数量视频教程

landboy · 发表于 2024-1-24 12:48:58

请用 1.25x 速度观看
B站视频: 【CorelDRAW VBA 插件: 统计文本数量】
https://www.bilibili.com/video/BV1QK411a7Ch
----------------------------------------------

CorelDRAW VBA 插件: 统计文本数量视频教程{tag}(2)

这是源码

这是网友的功能需求

这是完成后的效果

源码核心代码

Sub 统计文本()
Dim s As Shape, sr As ShapeRange
Set sr = ActiveSelectionRange
Dim d As Variant, str As String
Set d = CreateObject("Scripting.dictionary")
For Each s In sr
If s.Type = CDRTextShape Then
str = s.text.Story.text
If d.Exists(str) = True Then
d.Item(str) = d.Item(str) + 1
Else
d.Add str, 1
End If
End If
Next s
End Sub

复制代码

补充内容 (2024-1-26 09:28):
【CorelDRAW VBA插件: 文本统计功能源码解析】 B站视频
https://www.bilibili.com/video/BV1164y1w7Tv

把源码解析的视频发上来了

jiangyu · 发表于 2024-1-24 15:38:33

这个好啊，修改一下还可用于删除重复的文本项

Long~~~ · 发表于 2024-1-24 17:54:24

阑大师有没有获取所有图层的尺寸，然后再每个图层下方生成这个图层尺寸文本的代码

landboy · 发表于 2024-1-24 19:44:42

Long~~~ 发表于 2024-1-24 17:54
阑大师有没有获取所有图层的尺寸，然后再每个图层下方生成这个图层尺寸文本的代码 ...

这个代码应该可以实现的，虽然我也没有写过
你可以这样做，先在每层放置一个物件，然后你遍历图层，得到单独物件的尺寸
然后就再改改就可以了

HZMHYP · 发表于 2024-1-24 19:57:01

统计文本？意思就是说只能统计未转曲的,转曲了的就不可以了是吧

landboy · 发表于 2024-1-24 20:03:44

本帖最后由 landboy 于 2024-1-24 20:10 编辑

Long~~~ 发表于 2024-1-24 17:54
阑大师有没有获取所有图层的尺寸，然后再每个图层下方生成这个图层尺寸文本的代码 ...

刚刚写了一个，你可以按这个看懂，再修改

Sub TraverseLayers()
ActiveDocument.Unit = cdrMillimeter
Dim sr As New ShapeRange
Dim l As layer, s As shape
For Each l In ActivePage.Layers
Set sr = Nothing
' 遍历图层中的每个对象
For Each s In l.Shapes.All
Debug.Print s.Name
sr.Add s
Next s
MsgBox l.Name & "图层: " & sr.SizeHeight & " x " & sr.SizeWidth
Next l
End Sub

复制代码

landboy · 发表于 2024-1-24 20:07:57

HZMHYP 发表于 2024-1-24 19:57
统计文本？意思就是说只能统计未转曲的,转曲了的就不可以了是吧

转曲了就不是文本了，肯定通过这个方法是不行的

landboy · 发表于 2024-1-26 09:28:48

【CorelDRAW VBA插件: 文本统计功能源码解析】 B站视频
https://www.bilibili.com/video/BV1164y1w7Tv

把源码解析的视频发上来了
CorelDRAW VBA 插件: 统计文本数量视频教程{tag}(7)

benbinhduong · 发表于 2024-1-29 16:32:43

插件质量太高了

landboy · 发表于 2024-1-30 09:32:12

benbinhduong 发表于 2024-1-29 16:32
插件质量太高了

谢谢观看和支持

CorelDRAW VBA 插件: 统计文本数量视频教程

华印网相关搜索

相关帖子

注意注意注意：必看 /1

CorelDRAW VBA 插件: 统计文本数量 视频教程

华印网相关搜索

相关帖子

注意注意注意：必看 /1

CorelDRAW VBA 插件: 统计文本数量视频教程