1 Тема от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Тема: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

Приветствую господа.
Возможно я ни один такой и такая тема уже поднималась, возможно неправильно формулировал запрос.

Имеем документ со структурой:
Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.
написан 4-мя шрифтами
Подскажите пожалуйста, как применить форматирование и какое, чтоб получить так?
Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.
Задача не разовая. Возможно ли применение макроса?
Обязаnельно ли применять свой шаблон dot

Документ не креплю, так нужно еще шрифты устанавливать.
Заранее спасибо.
Буду рад любой помощи.

2 Ответ от alexan0308

  • alexan0308
  • Заблокирован
  • Неактивен
  • Зарегистрирован: 18.03.2013
  • Сообщений: 39
  • Поблагодарили: 7

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

Разве что написать 4 макроса. В каждом ищется определенный шрифт и найденное форматируется

3 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

можете подсобить?

4 Ответ от viter.alex

  • Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 1

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

Ну если действительно всё набрано четырьмя разными шрифтами, то это просто.
Код процедуры, выполняющей замену цвета указанного шрифта:

Sub FormatFont(FontName As String, FontColor As WdColor)
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Font.Name = FontName
        .Replacement.Text = ""
        .Replacement.Font.Color = FontColor
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Вызывать так (сделать шрифт Arial красным):

Call FormatFont("Arial", wdColorRed)
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

5 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

делаю регулярно
шрифт 1 --arial unicode

Post's attachments

port0407.gif 34.61 Кб, 2 скачиваний с 2013-04-07 

You don't have the permssions to download the attachments of this post.

6 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

А как ему прикрутить например различием между латиницей и кириллицей? 
то есть строка в arial-е вида:

 hello - привет

раскрашивалась в 2 цвета.
hello - привет
И возможно можно отдельно и знаки препинания разукрашивать.
Красим заборы по полной  smile , так сказать.
Спасибо ребят.

7 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

ххххх ansa m плечо

-----
ansa m плечо         ----вопросов не ставят
хххх----------------------у меня нет образца для проб

8 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

shanemac51 пишет:

ххххх ansa m плечо

-----
ansa m плечо         ----вопросов не ставят
хххх----------------------у меня нет образца для проб

и что Вы имели ввиду?

9 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

не знаю где взять кусочек с иероглифами  для пробы
---чтобы попробовать свою методу

10 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

шрифт с иероглифами) Установи и напиши на нем что-нить.
внешняя ссылка

11 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

Что-то я совсем затупил, подскажите как в vba написать регулярное выражение для всех знаков препинания (.,)123456789 :;-"⎷—!?
и разного рода спецсимволов?
ā ī ū ṛ ṝ ḷ ṅ  ñ ṭ ḍ ṇ ś ṣ ḥ ṁ / ă ĂĀ á à /    ␄ / í Í ì Ì ĭ /    / ú ù Ú Ù /  ␃   /    /  ,  /   / ␐ и ␑ / ṃ / ⎷ / ‐‒

12 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Как применить цвет(стиль) к 1(всем) из шрифтов во всем документе.

нашел ответ сам.

.Text = "[.|,|;|:|" & ChrW(7779) & "|" & Chr(34) & "]"

сбило с толку экранирование символов, присущее всем регуляркам.