Visio 宏：获取页面所有形状的文本

Sub Macro2()

' 声明变量 Dim vsoCharacters1 As Visio.Characters Dim i As Integer

' 循环所有页面中的形状 For i = 1 To Application.ActivePage.Shapes.Count ' 获取当前形状的字符集 Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(i).Characters ' 输出字符集中的文本 Debug.Print vsoCharacters1.Text Next

End Sub