Макрос для изменения цвета шрифта
2/9/2019

Ответы (10)

Dr. Cora Huel
2/9/2019

Привет, немного больше информации, пожалуйста. 1. Цвет большинства черных текстов, по сути, автоматически определяется цветом шрифта. Я полагаю, вы хотите оставить это в покое. 2. Вы хотите изменить цвет любого текста, который не является черным (или автоматическим), на красный? 3. Есть ли веская причина делать это с помощью макроса, а не с помощью стилей[http://www.addbalance.com/usersguide/styles.htm#Overview]? Прямое форматирование (которое вы предлагаете) значительно усложняет редактирование и обслуживание документов. Этот форум является форумом поддержки пользователей. Я такой же пользователь. Пожалуйста, дайте мне знать, если у вас возникнут еще какие-либо вопросы или вам потребуется дополнительная помощь. С уважением

Помогло 0 людям
Bennie Bruen
2/9/2019

Cross-posted at: https://social.msdn.microsoft.com/Forums/office/en-US/6d315bcb-398c-4b45-a022-3157889c70d5/macro-to-change-the-color-of-font?forum=worddev&prof=required [https://social.msdn.microsoft.com/Forums/office/en-US/6d315bcb-398c-4b45-a022-3157889c70d5/macro-to-change-the-color-of-font?forum=worddev&prof=required] For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184 [http://www.excelguru.ca/content.php?184]

Помогло 0 людям
Eloise Huels
2/9/2019

> Перекрестная публикация > по адресу: https://social.msdn.microsoft.com/Forums/office/en-US/6d315bcb-398c-4b45-a022-3157889c70d5/macro-to-change-the-color-of-font?forum=worddev&prof=required > [https://social.msdn.microsoft.com/Forums/office/en-US/6d315bcb-398c-4b45-a022-3157889c70d5/macro-to-change-the-color-of-font?forum=worddev&prof=required ]> Для ознакомления с этикетом кросс-постинга, пожалуйста, прочтите:> http://www.excelguru.ca/content.php?184 > [http://www.excelguru.ca/content.php?184 ] Извините, я думал, что это разные форумы, и я не знаком с правилами форума. Мне действительно нужен этот макрос. Я обещаю, что больше так не сделаю. Я так сожалею об этом. Пожалуйста, прости меня.

Помогло 0 людям
Eloise Huels
2/9/2019

Привет, Чарльз Кеньон ИА[https://answers.microsoft.com/en-us/profile/0f122c78-a980-4fe7-9d0f-f62c8b9b1408], Большое спасибо за ваш ответ и помощь. 1. Да, вы правы. 2. Да, вы правы. 3. На самом деле, мне нужно отредактировать тонны файлов word. Поскольку они редактируются многими людьми, в файлах есть много цветных шрифтов. Я должен изменить шрифт (не черный) на красный, а затем посчитать красный шрифт. Теперь я уже написал макрос для подсчета конкретного шрифта. Но я не знаю, как изменить цвет любого текста, который не является черным (или автоматическим), на красный. Мне действительно нужен этот макрос, чтобы сэкономить мое рабочее время, чтобы мне не нужно было работать сверхурочно, повторяя это. Пожалуйста, помогите мне!

Помогло 0 людям
Mr. Wendell Hyatt
2/9/2019

> > Перекрестная публикация > > по адресу: https://social.msdn.microsoft.com/Forums/office/en-US/6d315bcb-398c-4b45-a022-3157889c70d5/macro-to-change-the-color-of-font?forum=worddev&prof=required > > [https://social.msdn.microsoft.com/Forums/office/en-US/6d315bcb-398c-4b45-a022-3157889c70d5/macro-to-change-the-color-of-font?forum=worddev&prof=required ]>> Для ознакомления с этикетом кросс-постинга, пожалуйста, прочтите: >> http://www.excelguru.ca/content.php?184 > > [http://www.excelguru.ca/content.php?184 ]>> Извините, я думал, что это разные форумы, и я не знаком с > правилами форума. Мне действительно нужен этот макрос. Я обещаю, что больше так не сделаю. Я так> сожалею об этом. Пожалуйста, прости меня. Это ошибка, которую совершают многие люди. Просто будьте в курсе протокола.

Помогло 0 людям
Dr. Cora Huel
2/9/2019

Хорошо, я окажу вам некоторую помощь позже сегодня.

Помогло 0 людям
Bennie Bruen
2/9/2019

> Я думал, что это разные форумы. Они разные, и в этом вся проблема. Пожалуйста, прочтите материал по ссылке, которую я разместил, чтобы вы поняли, почему.

Помогло 0 людям
Mr. Wendell Hyatt
2/10/2019

Что ж, я в тупике. Вот код, который я придумал, и он не очень хорош. Он меняет все на черный цвет и требует много времени для запуска. Я надеюсь, что кто-то другой сможет направить нас в правильном направлении. Если кто-то другой не исправит это, я буду продолжать работать. Sub ColorFontAllRed() "Чарльз Кеньон" 9 Февраля 2019 "Изменяет все цвета шрифта, кроме черного или автоматического, на красный Dim i Как Целое число Dim j Как Целое Число Dim rngWord Как диапазон Dim RNGTEXT Как диапазон " Для i = 1 В ActiveDocument.Сюжетные диапазоны.Счетчик Устанавливает rngtext = ActiveDocument.Сюжетные Диапазоны(1) Для j = 1 До rngText.Слова.Счетчик Устанавливает rngWord = rngText.Слова(j), Если rngWord.Шрифт.ColorIndex < 2, Затем rngWord.Шрифт.ColorIndex = wdClassicRed Конец, если Следующий j Следующий я Установлю rngWord = Ничего, Установлю rngText = Ничего, Конец Примечания, я сам разместил это в гостиной Эйлин. http://www.eileenslounge.com/viewtopic.php?f=26&t=31799 [http://www.eileenslounge.com/viewtopic.php?f=26&t=31799]

Помогло 0 людям
Bennie Bruen
2/10/2019

Попробуйте: Приложение Sub Demo().Обновление экрана = False Затемняет BHID Как Логическое Значение С Помощью ActiveDocument.Активное окно.Просмотреть BHID = .Показать скрытый текст.ShowHiddenText = Истина Заканчивается На .Диапазон.Шрифт.Скрытый = Истина С Помощью .Диапазон.Найди.Четкое форматирование.Замена.Четкое форматирование.Текст = "" .Замена.Текст = "" .Формат = Истина.Вперед = Верно.Обертывание = wdfindконтинент.Замена.Шрифт.Скрытый = Ложный.Шрифт.Индекс цвета = wdAuto.Выполните замену:=wdReplaceAll .Шрифт.Индекс цвета = wdчерный.Выполните замену:=wdReplaceAll.Очистить форматирование .Шрифт.Скрытый = Истина.Замена.Шрифт.Индекс цвета = wdRed.Выполните Замену:=wdreplaceв Конце.Активное окно.Просмотр.ShowHiddenText = BHID Заканчивается Приложением.Обновление экрана = Истинный Конечный Суб

Помогло 0 людям
Anita Lind Jr.
2/10/2019

Пол, я попробовал твой макрос. Это работает правильно для меня в Word 2019, но только в том случае, если я отображаю скрытый текст в Word. Если я этого не сделаю, весь текст будет скрыт и останется неизменным по цвету. Изменить: текст, явно заданный для черного цвета темы с помощью раскрывающегося списка "цвет шрифта", изменен на красный. По-видимому, это связано с тем, что, хотя черный цвет темы имеет R=0, G= 0, B=0, его свойство цвета равно -587137025. Если я установлю цвет шрифта 0R = 0, G = 0, B=0, используя больше цветов..., текст останется черным.

Помогло 0 людям

Похожие вопросы