gtfox

Sub CopySAPage()
'------------------------------------------------------------------------------------------------------------
' Sub           : CopySAPage - Копирует страницу САПР-АСУ за текущей, копируя ее свойства и содержимое
                'Переименовывает страницы раздела идущие за вставляемой страницей
'------------------------------------------------------------------------------------------------------------
    Dim vsoPage As Visio.Page
    Dim vsoPageNew As Visio.Page
    Dim vsoPageSource As Visio.Page
    Dim colPagesAll As Collection
    Dim colPagesAfter As Collection

gtfox

'------------------------------------------------------------------------------------------------------------
' Module        : Specifikaciya - Спецификация
' Author        : gtfox
' Date          : 2019.09.22
' Description   : spDEL - Удаляет листы спецификации
                ' spADD_Excel_Razbienie - Добавляет листы спецификации из Excel из листа SP_2_Visio (после разбиения на ячейки)
                ' spADD_Visio_Perenos - Добавляет листы спецификации из Excel из листа SP (перенос длинных строк делает визио)
                ' spEXP_2_XLS – Экспортирует спецификацию из Visio в Excel
                ' SP_2_Visio.xls -Спецификация
                ' Лист SP содержит исходную спецификацию, с многострочным текстом в одной ячейке.

gtfox

'------------------------------------------------------------------------------------------------------------
' Module        : AutoNumber - Автонумерация
' Author        : gtfox
' Date          : 2020.05.11
' Description   : Автонумерация/Перенумерация элементов схемы
' Link          : https://visio.getbb.ru/viewtopic.php?f=44&t=1491, https://github.com/gtfox/SAPR_ASU, https://yadi.sk/d/24V8ngEM_8KXyg
'------------------------------------------------------------------------------------------------------------

gtfox

'------------------------------------------------------------------------------------------------------------
' Module        : WireNet - Провода на схеме электрической принципиальной
' Author        : gtfox
' Date          : 2020.06.03
' Description   : Соединение/отсоединение проводов, нумерация, удаление, стрелки/точки на концах, взаимодействие с элементами
' Link          : https://visio.getbb.ru/viewtopic.php?f=44&t=1491, https://github.com/gtfox/SAPR_ASU, https://yadi.sk/d/24V8ngEM_8KXyg
'------------------------------------------------------------------------------------------------------------
Option Explicit
Public bUnGlue As Boolean 'Запрет обработки события ConnectionsDeleted

gtfox

Function AddSAPage(PageName As String) As Visio.Page
'------------------------------------------------------------------------------------------------------------
' Function        : AddSAPage - Добавляет страницу САПР-АСУ если ее нет, добавляет еще, если подобные уже есть
                  'В строке передается имя страницы, возвращаем что создали
'------------------------------------------------------------------------------------------------------------
    Dim vsoPage As Visio.Page
    Dim colPages As Collection
    Dim Ramka As Visio.Master
    Dim shpRamka As Visio.Shape
    Dim Npage As Integer