Удалить заливку текста (по возможности, макросом)

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

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

Удалить заливку текста (по возможности, макросом) (Не могу удалить заливку)

Roman777

Дата: Суббота, 25.06.2016, 00:00 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

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

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

Excel 2007, Excel 2013

Добрый всем вечер!
Столкнулся с непонятным для меня форматированием. Имеется текст, который в некоторых диапазонах отмечен (похоже) заливкой текста. Пробывал выставить нет заливки, почему-то не убирается, причем назначить любой другой цвет могу, а когда его пытаюсь убрать, возвращает исходный цвет заливки, который был.
Макрос тоже не помогает:
[vba]

Код

Sub Макрос1()
Selection.WholeStory
Selection.Range.Select
'Selection.Range.HighlightColorIndex = wdGreen
Selection.Range.HighlightColorIndex = wdNoHighlight 'удаляю заливку
End Sub

[/vba]

К сообщению приложен файл: 1497032.docx (15.2 Kb)

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Суббота, 25.06.2016, 00:01

Ответить

SLAVICK

Дата: Суббота, 25.06.2016, 00:39 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

как такое сделали не знаю, но вот убрать - запросто:

К сообщению приложен файл: 6564378.jpg (28.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Roman777

Дата: Суббота, 25.06.2016, 10:59 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

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

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

Excel 2007, Excel 2013

SLAVICK, Спасибо. Данная кнопочка действительно помогает. Помимо этого, заметил, что формат по образцу помогает. Но текст большой и выделения отрывками (много разных диопазонов). Кнопочка снимает все форматы, в том числе и параметры шрифтов. Мне бы хотелось как-то снять только заливку, не затрагивая остальные параметры форматирования.
Как это сделали - не знаю, мне таким файл дали. И совсем не понимаю, почему заливка сама не помогает. Такое чувство, что существует ещё какое-то аналогичное заливке свойство, либо на 1 и тот же диапазон может действовать несколько заливок сразу, не понимаю, я это очень плохо знаю.
Возможно ли оперативно снять только заливку такую со всего текста (без формата по образцу, ибо в некоторых участках тексты разные форматы шрифтов имеют) интерфейсом ворда или макросом (макросом интересует в любом случае)...?

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Суббота, 25.06.2016, 11:02

Ответить

RAN

Дата: Суббота, 25.06.2016, 12:39 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Как сделали, так и убрать

К сообщению приложен файл: 4389891.jpg (8.5 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 25.06.2016, 12:40

Ответить

SLAVICK

Дата: Суббота, 25.06.2016, 14:38 | Сообщение № 5

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

RAN, может у мну офис кривой, но на этом файле не работает. Это было вторым что я попробовал

Иногда все проще чем кажется с первого взгляда.

Ответить

RAN

Дата: Суббота, 25.06.2016, 15:12 | Сообщение № 6

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Интересное кино.
Если выделять вместе со знаком абзаца, не работает, без него - на урЯ!
Тады ой!
[vba]

Код

Sub Макрос2()
    For Each wd In ActiveDocument.Words
        wd.Shading.Texture = wdTextureNone
        wd.Shading.ForegroundPatternColor = wdColorAutomatic
        wd.Shading.BackgroundPatternColor = wdColorAutomatic
    Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Roman777

Дата: Суббота, 25.06.2016, 17:07 | Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

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

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

Excel 2007, Excel 2013

RAN, не знаю как выделять со знаком абзаца, я и контрл+А жамкал - всё одно, кнопка не работает... А вот Ваш макрос всё чётко убрал. Спасибо большое!!!

Не понимаю, а зачем нужен цикл?
~~Поясните, пожалуйста, что такое "ActiveDocument.Words"~~
всё, разобрался, я так понял это слова в тексте. Не пойму только, почему данный метод срабатывает только так, а когда пытаюсь например:
[vba]

Код

ActiveDocument.Range(0, 1005).Shading.BackgroundPatternColor = wdColorAutomatic

[/vba]
не получается. Тут выходит свойство ".BackgroundPatternColor" у Диапазона (Range) своё, а у буквы (Characters) или слова (words) будет своё?

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Суббота, 25.06.2016, 17:39

Ответить

RAN

Дата: Суббота, 25.06.2016, 17:49 | Сообщение № 8

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата RAN, 25.06.2016 в 15:12, в сообщении № 6

Если выделять вместе со знаком абзаца, не работает, без него - на урЯ!

Быть или не быть, вот в чем загвоздка!

Ответить

Roman777

Дата: Суббота, 25.06.2016, 18:11 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

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

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

Excel 2007, Excel 2013

RAN, не так прочёл, каюсь. Но у меня не работает даже если я выделяю внутренние буквы слова, ну и слово в целом, без посторонних символов.

Много чего не знаю!!!!

Ответить

krosav4ig

Дата: Понедельник, 27.06.2016, 04:01 | Сообщение № 10

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Roman777, а если так?
[vba]

Код

Sub Макрос3()
    With ActiveDocument.Range.Font.Shading
        .Texture = wdTextureNone
        .ForegroundPatternColor = wdColorAutomatic
        .BackgroundPatternColor = wdColorAutomatic
    End With
End Sub

[/vba]

Цитата RAN, 25.06.2016 в 15:12, в сообщении № 6

Интересное кино.
Если выделять вместе со знаком абзаца, не работает, без него - на урЯ!

ибо