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