Visio VBA脚本

Question

我正在试图找出如何通过一个50页的Visio，并取出所有特定形状的文本。它们都是“子过程”形状。我不知道最好的方法是什么，我试着检查每个页面上的每个形状，并检查它的名称是否与“Subprocess.+迭代数字”匹配。它基本上会迭代每一个形状的200个形状名称:疯狂和不起作用。不知道如何做到这一点，因为它们都有唯一的名称，但我知道每个名称都以“Subprocess”开头。

目前为止的代码：

Public Sub FindOffPageShapes()
Dim shp As Visio.Shape
Dim pagShape As Visio.Shape
Dim myInt As Integer
    Set pagShape = Visio.ActivePage.PageSheet
    For Each shp In Visio.ActivePage.Shapes
        While shp.Name <> "Subprocess." & CStr(myInt) Do
            Do myInt = myInt + 1
        If shp.TextFrame.Characters.Name = "Subprocess." & CStr(myInt) Then
            shp.Text = ""
        End If
Next shp
End Sub

谢谢!

Answer 1

您只需使用Like关键字来测试字符串是否与“Subprocess”模式匹配。见下文。

Option Compare Text
Public Sub FindOffPageShapes()
Dim shp As Visio.Shape
Dim pagShape As Visio.Shape
Dim myInt As Integer
    Set pagShape = Visio.ActivePage.PageSheet
    For Each shp In Visio.ActivePage.Shapes
        If shp.Name like "Subprocess*" Then
            shp.Text = ""
        End If
    Next shp
End Sub