1

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

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

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

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

2

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

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

3

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

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

4

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)
Лучше день потерять — потом за пять минут долететь!

5

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

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

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

 hello - привет 

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

7

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

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

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

8

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

shanemac51 пишет:

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

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

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

9

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

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

10

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

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

11

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

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

12

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

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

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

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