1

Тема: Определение существования абзаца, выполненного определенным стилем

Для задания первоначальных условий необходимо узнать, существует ли в документе, до текущего положения курсора (или вообще в документе) хотя бы один абзац выполненный предопределенным стилем, мне, в частности, нужно узнать про абзац выделенный стилем "Заголовок 1". Заранее спасибо!

2

Re: Определение существования абзаца, выполненного определенным стилем

Поиском пробовал?

Лучше день потерять — потом за пять минут долететь!

3

Re: Определение существования абзаца, выполненного определенным стилем

smile Все гениальное просто.. smile  Если поиск вернет истину, значит есть.. smile

вот такая вот функция универсальная получилась:

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

Спасибо за наводку! smile

Отредактировано andrkar (07.05.2010 18:01:01)