Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Назначение заголовков макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Назначение заголовков макросом
Назначение заголовков макросом
odeon16 Дата: Среда, 14.11.2018, 18:40 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 0 ±
Замечаний: 0% ±

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

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

Как макросом - если такие слова будут встречены в тексте, назначить их как заголовки?
Таким образом, после срабатывания этого макроса - если нажать на вкладку "Вид" -> "Схема документа" - то в этом окне - будут представлены эти слова: Текст1,ТекстМ2,Текст3К - как заголовки.
К сообщению приложен файл: 5249351.doc(26.0 Kb)
 
Ответить
СообщениеДоброго вечера, господа программисты.

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

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

Автор - odeon16
Дата добавления - 14.11.2018 в 18:40
krosav4ig Дата: Среда, 14.11.2018, 19:43 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1734
Репутация: 728 ±
Замечаний: 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-УровеньЗаголовка
К сообщению приложен файл: 9819401.doc(43.0 Kb)


(_)Õvõ(_)
 
Ответить
СообщениеДобрый вечер.
[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-УровеньЗаголовка

Автор - krosav4ig
Дата добавления - 14.11.2018 в 19:43
odeon16 Дата: Среда, 14.11.2018, 23:33 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
krosav4ig, Да - вот именно об этом я и спрашивал.

Спасибо большое.


Сообщение отредактировал odeon16 - Четверг, 15.11.2018, 13:15
 
Ответить
Сообщениеkrosav4ig, Да - вот именно об этом я и спрашивал.

Спасибо большое.

Автор - odeon16
Дата добавления - 14.11.2018 в 23:33
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Назначение заголовков макросом
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!