' **********************************************************************
' * Original name: RefreshTemplateInAllSheet
' **********************************************************************
' * Макрос служит для перезагрузки форматки основной надписи на всех листах
' * и переименовании листов по порядку (Лист1, Лист2, и т.д.).
' *
' * Имя старой и новой форматки должно совпадать или дописано в процедуру:
' *
' *
' * Private Sub loadDict()
' * Set dicListReplace = CreateObject("Scripting.Dictionary")
' * 'Элементы
' * dicListReplace.Add "Имя старого шаблона1.slddrt", "Имя нового шаблона1.slddrt"
' * dicListReplace.Add "Имя старого шаблона2.slddrt", "Имя нового шаблона2.slddrt"
' * '...
' * 'и т.д.
' * End Sub
' *
' * ВНИМАНИЕ!
' * Все заметки и премечания сделаные в режими основной надписи
' * будут удалены без предупреждения.
' *
' **********************************************************************'
|