Блог

Главная - Вопросы по программированию - Сортировка разделов в Powerpoint по алфавиту с помощью VBA

Сортировка разделов в Powerpoint по алфавиту с помощью VBA

#vba #sorting #powerpoint #sections

Вопрос:

У меня есть большой файл PowerPoint со множеством разделов, и я продолжаю добавлять некоторые из них.

Я ищу способ отсортировать свои разделы по алфавиту.

Я уверен, что это выполнимо с помощью VBA, но мои знания ограничены, и я не смог найти аналогичный код для адаптации.

Большое спасибо за вашу помощь!

Комментарии:

1. Пожалуйста, предоставьте достаточно кода, чтобы другие могли лучше понять или воспроизвести проблему.

Ответ №1:

Это основано на классической логике сортировки массивов, но применяется к разделам.

Понятия не имею, является ли это проблемой производительности, если у вас много разделов.

 Sub sortSections()

Dim sp As SectionProperties
Set sp = ActivePresentation.SectionProperties

Dim cntSections As Long
cntSections = sp.Count

Dim i As Long, j As Long
For i = 1 To cntSections - 1
    For j = i   1 To cntSections
        If UCase(sp.Name(i)) > UCase(sp.Name(j)) Then
            sp.Move j, i
        End If
    Next
Next

End Sub
Метки: