Макрос замены шрифта

@itwasrain · Регистрация: 06.06.2018

Студворк — интернет-сервис помощи студентам

Доброй ночи, адепты)
Вы не раз меня выручали, уповаю на вашу помощь и теперь!

Скажем есть некий текст, набранный Times New Roman-ом, и среди него встречаются слова которые почему то решили быть набраны Arial-ом. (такой документик я прилепил к сообщению)

Надо бы чтобы Ариалы не отбивались от общего настроения и тоже стали Таймсами
Это легко лечится заменой, но хотелось бы делать это нажатием одной кнопки.

Однако, когда я записываю макрос, который должен повторить мои действия по замене всех Ариалов на Таймсы, то он выглядит следующим образом и не работает. В чем же дело? помогите пожалуйста (( желательно детсадовским языком, ибо я не программист.

Спасибо)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub testing()
'
' testing Macros
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@Казанский · 12.02.2019, 01:15

Сообщение от itwasrain

Это легко лечится заменой

А не легче ли выделить все, Шрифт - Times?

Visual Basic
1
  ActiveDocument.Range.Font.Name = "Times New Roman"

@itwasrain · 12.02.2019, 07:15 **[ТС]**

Легче, но мне нужно именно то, что я прошу.
А именно макрос для замены текста написанного одним шрифтом на замену этого текста другим шрифтом.
Потому что по тексту могут, допустим встречаться списки или цитатки набранные каким-нибудь Calibri или Courier, и им не нужно превращаться в Таймс.

@GeoCod · 12.02.2019, 11:46

itwasrain, думаю в этой теме все написано

@Казанский · 12.02.2019, 13:27

Сообщение от itwasrain

В чем же дело?

Как видите, в записанном коде нет упоминания об "Arial" и "Times New Roman". Надо добавить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub testing()
'
' testing Macros
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Font.Name = "Arial"
    Selection.Find.Replacement.Font.Name = "Times New Roman"
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@GeoCod · 12.02.2019, 13:58

Тогда и код почистить от лишнего можно

Visual Basic
1
2
3
4
5
6
7
8
Sub ReplaceFont()
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Font.Name = "Arial"
        .Replacement.Font.Name = "Times New Roman"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

@Step_UA · 12.02.2019, 18:56

Сообщение от GeoCod

Тогда и код почистить от лишнего можно

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

@GeoCod · 12.02.2019, 21:03

Сообщение от Step_UA

почистили даже нужное

Ну, только если совсем чуть-чуть

Сообщение от itwasrain

Надо бы чтобы Ариалы не отбивались от общего настроения и тоже стали Таймсами

Хотя, требуемая функция выполняется. Предполагается что замена шрифтов происходит по нажатию кнопки (вызову макроса), и пользователь не ищет конкретных слов/форматов.

@Step_UA · 12.02.2019, 21:09

Сообщение от GeoCod

и пользователь не ищет конкретных слов/форматов.

пользователь это такой зверь, который зачастую сам не знает, что делает/делал ))
... через время появляется тема: макрос работал, ничего не делал и фсе, не работает ))

@GeoCod · 12.02.2019, 21:34

Step_UA,

точнее и не скажешь

Что ж, ждем-с новой темы )))

@itwasrain · 14.02.2019, 21:05 **[ТС]**

Всем спасибо) Все хорошие)

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@itwasrain 1 / 1 / 0 Регистрация: 06.06.2018 Сообщений: 16
	12.02.2019, 07:15 [ТС]
	Легче, но мне нужно именно то, что я прошу. А именно макрос для замены текста написанного одним шрифтом на замену этого текста другим шрифтом. Потому что по тексту могут, допустим встречаться списки или цитатки набранные каким-нибудь Calibri или Courier, и им не нужно превращаться в Таймс. 0

@GeoCod 239 / 150 / 41 Регистрация: 26.01.2019 Сообщений: 545
	12.02.2019, 11:46
	itwasrain, думаю в этой теме все написано 0

@GeoCod 239 / 150 / 41 Регистрация: 26.01.2019 Сообщений: 545
	12.02.2019, 21:34
	Step_UA, точнее и не скажешь Что ж, ждем-с новой темы ))) 0

@itwasrain 1 / 1 / 0 Регистрация: 06.06.2018 Сообщений: 16
	14.02.2019, 21:05 [ТС]
	Всем спасибо) Все хорошие) 0

Макрос замены шрифта

Решение