Visio 2003/2010 Список страниц в Excel

Question

Есть ли способ получить и экспортировать несколько имен страниц в листе Visio? Я не хочу экспортировать объекты на странице, просто хочу получить список страниц.

Пример: Файл Accounting_Layout.vsd содержит следующие страницы: Ввод, вывод, отчеты и Неиспользованный.

Как я могу получить этот список и экспортировать в Excel?

Answer 1

Я не знаю встроенной функции, которая бы выполнить то, что вы хотите, но если вы знакомы с VBA макросов, то следующий код будет делать то, что вам нужно

Sub Demo() 
    Set Excel = CreateObject("excel.application") 
    Excel.Visible = True 

    Set Workbook = Excel.Workbooks.Add 
    Set Sheet = Workbook.Worksheets("sheet1") 

    Let numpages = ActiveDocument.Pages.Count 
    For i = 1 To numpages 
     Set CurPage = ActiveDocument.Pages(i) 
     Sheet.Cells(i, 1) = CurPage.Name 
    Next i 
End Sub