Программная сортировка страниц в документе Visio с использованием VBA - PullRequest
Новая
       8

Программная сортировка страниц в документе Visio с использованием VBA

0 голосов
/ 21 сентября 2018

Кто-нибудь знает метод сортировки страниц Visio по алфавиту с использованием VBA?

Я посмотрел, существует ли такой метод, как vzdVisioDocument.Pages.Sort, но ничего не нашел в документации или при поиске в Интернете.

Нужно ли писать собственную функцию сортировки, используя свойство Application.ActiveDocument.Pages.ItemU("Page Name").Index?Это, кажется, метод, предложенный путем записи макроса действия.

Ответы [ 3 ]

0 голосов
/ 22 сентября 2018

Я упоминал об этом в другом комментарии, но когда я делал несколько тестовых страниц, при запуске я всегда перетасовывал страницы, потому что я так, как это реализовано, я не верю, что Exit For должно быть втам.

Я также поменял сравнение на StrCompare из-за личных предпочтений и порядка циклов for. 

Sub PageSort()

    Dim titlesColl As Collection
    Set titlesColl = New Collection

    Dim i As Long
    For i = 1 To ActiveDocument.Pages.Count
        titlesColl.Add ActiveDocument.Pages.Item(i).Name
    Next i

    Dim title As Variant
    For i = 1 To ActiveDocument.Pages.Count
        For Each title In titlesColl
            If StrComp(ActiveDocument.Pages.Item(i).Name, title, vbTextCompare) < 0 Then
                ActiveDocument.Pages.Item(title).index = i
            End If
        Next title
    Next i

    Set titlesColl = Nothing

End Sub
0 голосов
/ 26 сентября 2018

Private Sub reorderPages () 

Dim PageNameU() As String

Dim isBackgroundPage As Boolean
Dim vsoPage As Visio.Page
Dim vsoCellObj As Visio.Cell

'// Get All Pages
Dim i As Integer
For Each vsoPage In ActiveDocument.Pages

    i = i + 1
    ReDim Preserve PageNameU(i)
    PageNameU(i) = vsoPage.NameU

Next vsoPage

For i = 1 To UBound(PageNameU)

    Set vsoPage = vsoPages.ItemU(PageNameU(i))
    Set vsoCellObj = vsoPage.PageSheet.Cells("UIVisibility")

    isBackgroundPage = vsoPage.Background

    '// Make foreground page to set page index
    If isBackgroundPage = True Then
        vsoCellObj.FormulaU = visUIVNormal
        vsoPage.Background = False
    End If

    vsoPage.Index = NumNonAppSysPages + i

    '// Set to background page
    If isBackgroundPage = True Then
        vsoCellObj.FormulaU = visUIVHidden
        vsoPage.Background = True
    End If

Next i

End Sub

0 голосов
/ 21 сентября 2018

Так что это было не так больно, как ожидалось.С vzdVisioDocument в качестве уже определенного Visio.Document: 

' Make a collection of titles to iterate through
Dim colPageTitles As Collection
Set colPageTitles = New Collection

Dim intPageCounter As Integer
For intPageCounter = 1 To vzdVisioDocument.Pages.Count
    colPageTitles.Add vzdVisioDocument.Pages.Item(intPageCounter).Name
Next intPageCounter

' For each title in the collection, iterate through pages and find the appropriate new index
Dim intPageIndex As Integer
Dim varPageTitle As Variant
For Each varPageTitle In colPageTitles
    For intPageIndex = 1 To vzdVisioDocument.Pages.Count
        ' Check to see if the title comes before the index's current page title
        If StrComp(varPageTitle, vzdVisioDocument.Pages.Item(intPageIndex).Name) < 0 Then
            ' If so, set the new page index
            vzdVisioDocument.Pages.ItemU(varPageTitle).Index = intPageIndex
            Exit For
        End If
    Next intPageIndex
Next varPageTitle

' Clean up
Set colPageTitles = Nothing
...