【CorelDRAW VBA插件: 文本统计功能 源码解析】 B站视频

https://www.bilibili.com/video/BV1164y1w7Tv

源码

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

  str = "文  本" & vbTab & vbTab & "数量" & vbNewLine
  a = d.keys: b = d.items
  For i = 0 To d.Count - 1
    str = str & a(i) & vbTab & b(i) & "条" & vbNewLine
  Next
  str = str & "合计总量:" & vbTab & vbTab & d.Count & "条" & vbNewLine

  Debug.Print str
  ActiveDocument.Unit = cdrMillimeter

  Dim s1 As Shape
  x = sr.FirstShape.LeftX - 100
  y = sr.FirstShape.TopY
  Set s1 = ActiveLayer.CreateParagraphText(x, y, x + 90, y - 150, str, Font:="华文中宋")
End Sub
分类: 学习编程

0 条评论

发表回复

Avatar placeholder

您的电子邮箱地址不会被公开。 必填项已用 * 标注

© 2024 兰雅VBA代码分享
浙ICP备2021017795号-2浙公网安备33078102100266号