Назначение заголовков макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

odeon16

Дата: Среда, 14.11.2018, 18:40 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 85

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго вечера, господа программисты.

В документе ворда есть много текста и ряд ключевых слов: Текст1,ТекстМ2,Текст3К и т.д.

Как макросом - если такие слова будут встречены в тексте, назначить их как заголовки?
Таким образом, после срабатывания этого макроса - если нажать на вкладку "Вид" -> "Схема документа" - то в этом окне - будут представлены эти слова: Текст1,ТекстМ2,Текст3К - как заголовки.

К сообщению приложен файл: 5249351.doc (26.0 Kb)

Ответить

krosav4ig

Дата: Среда, 14.11.2018, 19:43 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Добрый вечер.
[vba]

Код

Private Sub CommandButton1_Click()
    Dim var As Variant, sel As Range, s%
    Set sel = Selection.Range
    Application.ScreenUpdating = False
    s = ActiveDocument.Windows(1).VerticalPercentScrolled
    For Each var In Array("Текст1", "ТекстМ2", "Текст3К")
        With Selection.Find
            .ClearFormatting
            .Wrap = wdFindContinue
            .Text = var
            .Execute
            Do
                Selection.Collapse wdCollapseEnd
                Selection.Range.Paragraphs(1).Style = ActiveDocument.Styles(-2)
                .Execute
            Loop Until Not .Found
        End With
    Next
    sel.Select
    ActiveDocument.Windows(1).VerticalPercentScrolled = s
    Application.ScreenUpdating = True
End Sub

[/vba]
в части кода [vba]

Код

ActiveDocument.Styles(-2)

[/vba] -2=-1-УровеньЗаголовка