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

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

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

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@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

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

Решение