Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 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
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Шаблон активен???
Чем мощнее и грандиознее та или иная программа, тем сложнее с ней разобраться. Взять Microsoft Word. На первый взгляд все просто, на второй тоже, на третий, вообще думать не надо, а на четвертый оказывается, что в редакторе уйма скрытых возможностей, о которых мы и не подозревали. На портале о Microsoft Office Word вы узнаете про: вставить текст вверху таблицы.
Вы убиваете целый вечер на работу, а коллега сделал ее за час-другой? Как ему это удалось? А легко: он оптимизировал и настроил свой Word. На портале о Microsoft Office Word вы узнаете про: как сделать фигурную скобку в word 2010. На сайте и форуме Ворд Эксперт очень много решений, как это сделать. Можно написать макрос для каждой операции, выбрать оптимальную настройку приложения или создать шаблон. Наш сайт о Microsoft Office Word даст ответ про: скачать книга биллиг основы офисного программирования и документы word.
Обсудить достоинства и недостатки их, различные методы работы с текстом, преимущества и изъяны версий вы можете на форуме. Наш сайт о Microsoft Office Word даст ответ про: как сделать в ворде надпить для бейджика?. Если вы никогда раньше не писали макросы, то не беда, все предельно ясно и доступно, а для пытливого ума ссылка на дополнительную литературу. Наш сайт о Microsoft Office Word даст ответ про: невозможно прочитать документ кодировка.
Конечно, можно взять чье-то готовое решение, такие тоже выкладывают на Ворд Эксперт в специальном подразделе, а можно просто озвучить проблему и попросить помощи у умельцев в разделе заявок. Наш сайт о Microsoft Office Word даст ответ про: офис 2007 подчеркивать неправильные слова.
В общем, у вас есть возможность, посетив форум, сделать свой Ворд еще более легким, приятным и быстрым. Наш сайт о Microsoft Office Word даст ответ про: rконвертация word в pdf. Не упускайте ее!