All Forums
 Категория Visio
 Форум Вопросы и ответы
 Сортировка и переименование страниц
Author Previous Topic Topic Next Topic  

zhuravsky

Russia
115 Posts
Posted - 05/21/2010 :  16:09:39
Возникла такая задача:
Есть многостраничный документ, в котором требуется отсортировать страницы по некоторому признаку, а затем переименовать их, чтобы имена шли как обычно - "Page-1", "Page-2","Page-3" и т.д.
Задача сортировки решена. А вот как бы по-изящнее их переименовать?
В принципе, можно вызвать окошко "Reorder Pages" и нажать Ок, а вот нельзя ли то же самое программно?

Visio-2003 Eng

Tumanov

Russia
1198 Posts
Posted - 05/22/2010 :  06:52:30
Можно попробовать вот так:
Sub ttt()
    For i = 1 To ActiveDocument.Pages.Count
        ActiveDocument.Pages(i).Name = "Page-" & i
    Next
End Sub
Go to Top of Page

zhuravsky

Russia
115 Posts
Posted - 05/23/2010 :  05:52:31
Я тоже думал, что так можно, однако это не так. Такой алгоритм уже на первом цикле может выдать ошибку, из-за того, что "Page-1" уже существует и находится где-то в конце списка. Кроме того, в не английских версиях Визио Page не есть Page (а "Страница", "Seite" и т.п)
Ну, если с Reorder Page не прокатывает, то придется делать в цикле...
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)