Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форум Microsoft Word » Автоматизация » Определение существования абзаца, выполненного определенным стилем
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Для задания первоначальных условий необходимо узнать, существует ли в документе, до текущего положения курсора (или вообще в документе) хотя бы один абзац выполненный предопределенным стилем, мне, в частности, нужно узнать про абзац выделенный стилем "Заголовок 1". Заранее спасибо!
Поиском пробовал?
Все гениальное просто.. Если поиск вернет истину, значит есть..
вот такая вот функция универсальная получилась:
Function FindDocumentStyle(StlName As String) As Boolean
'
' Функция проверки существования текста, оформленного заданным стилем
' Возвращает TRUE, если такой текст найден, FALSE в противном случае
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="ВременнаяПоиск"
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Style = ActiveDocument.Styles(StlName)
.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
End With
.Find.Execute
If .Find.Found = True Then
FindDocumentStyle = True
Else
FindDocumentStyle = False
End If
End With
Selection.GoTo What:=wdGoToBookmark, Name:="ВременнаяПоиск"
ActiveDocument.Bookmarks("ВременнаяПоиск").Delete
End FunctionСпасибо за наводку!
Отредактировано andrkar (07.05.2010 18:01:01)
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум Microsoft Word » Автоматизация » Определение существования абзаца, выполненного определенным стилем
Определение существования абзаца, выполненного определенным стилем
Если вы ищите информацию по самому мощному редактору в мире Microsoft Word в сети, жаловаться на недостаток документов, литературы, различных ссылок и советов придется вряд ли. Наш сайт о Microsoft Office Word даст ответ про: как вырезать из worda картинки. Только в разбросанном виде все это жутко неудобно. Гораздо результативнее общаться на специальных форумах. На портале о Microsoft Office Word вы узнаете про: убрать рамку в ворде. Это удобнее еще и тем, что на свою проблему вы получите отклики так сказать в развитии, можно будет обсудить, что не получается, что именно не устраивает. На портале о Microsoft Office Word вы узнаете про: как в ворде распечатать на одной странице два одинаковых документа. Для русскоязычных пользователей Microsoft Word можно посоветовать форум Ворд Эксперт.
На нем представлены как готовые ответы на вопросы и наработки опытных пользователей в разделах «часто задаваемые вопросы» и «готовые решения», так и обсуждения работы с документами и настройками программы в разных версиях нашего любимого Microsoft Word. На портале о Microsoft Office Word вы узнаете про: как добавить словарь в word 2007. Это разделы «Настройка и Форматирование», а также «Автоматизация», где вас научат, как сделать работу с программой максимально оптимальной и быстрой, написав соответствующие макросы. На портале о Microsoft Office Word вы узнаете про: как сделать поля в ворд.
Если вы не хотите сами разбираться с макросами или ломать голову над той, либо иной, возникшей в работе проблемой, то в «Заявках на разработку» можете оставить заказ, форумчане вам помогут. Наш сайт о Microsoft Office Word даст ответ про: как создавать список использованной литературы.
Форум Ворд Эксперт - это страничка, которую стоит запомнить, потому что она может пригодиться в любой момент. Наш сайт о Microsoft Office Word даст ответ про: антоним слову реофил. Форум и сайт очень разумно устроены, а все пожелания вы можете высказать в соответствующем разделе.