Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как проверить, является ли шаблон активным документом? Для документов все организовано удобно:
Dim myDocument as Document
if myDocument is ActiveDocument Then ...Имеется ли такой же простой способ узнать, что myTemplate as Template это ActiveDocument. Сравнение свойств FullName не предлагать.
Самостоятельно придумал оригинальное решение:
Public Function Doc_IsActive(ByRef iaDocumentOrTemplate As Object) As Boolean
' возвращает True, если докумнт или шаблон является активным
' iaDocumentOrTemplate - вход: проверяемый шаблон или документ
Doc_IsActive = False
' тип
Select Case ActiveDocument.Type
' документ
Case Word.wdTypeDocument
If (iaDocumentOrTemplate Is ActiveDocument) <> True Then Exit Function
' шаблон
Case Word.wdTypeTemplate
If (ActiveDocument.AttachedTemplate Is iaDocumentOrTemplate) <> True Then Exit Function
Case Else: Exit Function
End Select
' успех
Doc_IsActive = True
End FunctionПодскажите код Subа для выполнении представленной Вами процедуры: Function Doc_IsActive?
А также подскажите практическое применение данной проверки?
Спасибо
...Подскажите код Subа...
Что за каламбур?
...практическое применение...
Пример. Открываем шаблон через Ctrl+O. Макрос Doc_IsActive поможет определить, какой из шаблонов Application.Templates - это открытый документ.
Макрос Doc_IsActive где он?
У ВАс же функция Макрос Doc_IsActive и я же спрашиваю как её запустить??
Открываем шаблон через Ctrl+O-это как??
...Doc_IsActive где он?...запустить??
Здесь. Как макрос.
...через Ctrl+O-это как...
Открываем Word и жмем 
то есть Вы нажимаете Ctrl+O потом выбираете примерно такой путь C:\Documents and Settings\user1\Application Data\Microsoft\Шаблоны к папке, потом имя файла Нормал.дот и паретесь, что же открыто??
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться