Function 显示内容()
Dim s As Shape
Dim sson As Shape
Dim ison As Integer
Dim flag As Boolean
Dim al As Integer
If ActiveSelection.Shapes.count > 0 Then
Dim sts() As String
Dim k As Integer
k = 0
For Each s In ActiveSelection.Shapes
For Each sson In s.Shapes.All
If sson.Type = cdrTextShape Then
If sson.Fill.UniformColor.CMYKBlack = 100 Then
If k <> 0 Then
flag = 是否存在数组里面(sts, sson.Text.Story.Text)
End If
If flag = False Then
ReDim Preserve sts(k)
sts(k) = sson.Text.Story.Text
k = k + 1
End If
End If
End If
Next
Next
Dim abc As String
For i = 0 To UBound(sts)
abc = abc + sts(i) + Chr(10)
Next
UserForm5.TextBox1.Value = abc
End If
End Function
Function 是否存在数组里面(arr() As String, s As String) As Boolean
Dim i As Integer
For i = 0 To UBound(arr)
If 是否存在数组里面 = False Then
If arr(i) = s Then
是否存在数组里面 = True
End If
End If
Next
End Function