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

Вход

Регистрация

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

 

= Мир MS Excel/Закраска разделов документа word, с учетом текста строки - Мир MS Excel

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

Excel 2016
Здравствуйте.
У меня возник вопрос по ворду.

В документе - много текста.
Этот текст разделен строками, которые начинаются так : Число, точка, число, пробел, заглавная буква.

Как макросом закрасить текстовые разделы разделенные такими строками - в желтый и синий цвета ?
К сообщению приложен файл: 7372480.doc(31.5 Kb)
 
Ответить
СообщениеЗдравствуйте.
У меня возник вопрос по ворду.

В документе - много текста.
Этот текст разделен строками, которые начинаются так : Число, точка, число, пробел, заглавная буква.

Как макросом закрасить текстовые разделы разделенные такими строками - в желтый и синий цвета ?

Автор - Lizard
Дата добавления - 17.05.2019 в 08:47
krosav4ig Дата: Пятница, 17.05.2019, 11:38 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2053
Репутация: 854 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
[vba]
Код
Sub colorize()
    Dim p As Paragraph, prev&, b As Boolean
    Application.ScreenUpdating = 0
    With CreateObject("vbscript.regexp")
        .Global = False: .Pattern = "^\d+\.\d+\s"
        For Each p In ThisDocument.Paragraphs
            If .test(p.Range.Text) Then
                If prev > 0 Then
                    p.Parent.Range(prev - 1, p.Previous.Range.End).HighlightColorIndex = IIf(b, 3, 7)
                End If
                prev = p.Range.Start + 1
                b = Not b
            ElseIf p.Next Is Nothing Then
                p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
            End If
        Next
    End With
    Application.ScreenUpdating = 1
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте.
[vba]
Код
Sub colorize()
    Dim p As Paragraph, prev&, b As Boolean
    Application.ScreenUpdating = 0
    With CreateObject("vbscript.regexp")
        .Global = False: .Pattern = "^\d+\.\d+\s"
        For Each p In ThisDocument.Paragraphs
            If .test(p.Range.Text) Then
                If prev > 0 Then
                    p.Parent.Range(prev - 1, p.Previous.Range.End).HighlightColorIndex = IIf(b, 3, 7)
                End If
                prev = p.Range.Start + 1
                b = Not b
            ElseIf p.Next Is Nothing Then
                p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
            End If
        Next
    End With
    Application.ScreenUpdating = 1
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 17.05.2019 в 11:38
Lizard Дата: Пятница, 17.05.2019, 21:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, почему-то не работает.
Выдает ошибку:
Run-time error 4608: Значение лежит вне допустимого диапазона.

И подсвечивает строку:
[vba]
Код
p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
[/vba]

Как устранить эту ошибку ?
 
Ответить
Сообщениеkrosav4ig, почему-то не работает.
Выдает ошибку:
Run-time error 4608: Значение лежит вне допустимого диапазона.

И подсвечивает строку:
[vba]
Код
p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
[/vba]

Как устранить эту ошибку ?

Автор - Lizard
Дата добавления - 17.05.2019 в 21:20
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Закраска разделов документа word, с учетом текста строки
  • Страница 1 из 1
  • 1
Поиск:

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