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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .

@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

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

Решение