С Новым годом! Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/75: Рейтинг темы: голосов - 75, средняя оценка - 4.61
1 / 1 / 0
Регистрация: 06.06.2018
Сообщений: 16

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

11.02.2019, 23:26. Показов 15510. Ответов 10

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

Скажем есть некий текст, набранный 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
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.02.2019, 23:26
Ответы с готовыми решениями:

Оптимизировать макрос, поиска и замены
Добрый день! Подскажите можно ли как-нибудь ускорить работу макроса при большом количестве поиска и замен? ...

макрос замены стиля у буквы
Помогите, бьюсь уже не первый день! Хочу, чтобы при вставке символа макрос делал замену стиля этой вставленной буквы, а он делает всего...

Макрос замена случайных букв одного шрифта на другой
Здравствуйте камрады. Долго искал на просторах интернета макрос, но так и не смог найти. Мб найдутся знающие люди, кто подскажет или...

10
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
12.02.2019, 01:15
Цитата Сообщение от itwasrain Посмотреть сообщение
Это легко лечится заменой
А не легче ли выделить все, Шрифт - Times?
Visual Basic
1
  ActiveDocument.Range.Font.Name = "Times New Roman"
0
1 / 1 / 0
Регистрация: 06.06.2018
Сообщений: 16
12.02.2019, 07:15  [ТС]
Легче, но мне нужно именно то, что я прошу.
А именно макрос для замены текста написанного одним шрифтом на замену этого текста другим шрифтом.
Потому что по тексту могут, допустим встречаться списки или цитатки набранные каким-нибудь Calibri или Courier, и им не нужно превращаться в Таймс.
0
239 / 150 / 41
Регистрация: 26.01.2019
Сообщений: 545
12.02.2019, 11:46
itwasrain, думаю в этой теме все написано
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
12.02.2019, 13:27
Лучший ответ Сообщение было отмечено itwasrain как решение

Решение

Цитата Сообщение от 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
1
239 / 150 / 41
Регистрация: 26.01.2019
Сообщений: 545
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
0
 Аватар для Step_UA
1591 / 664 / 225
Регистрация: 09.06.2011
Сообщений: 1,334
12.02.2019, 18:56
Цитата Сообщение от GeoCod Посмотреть сообщение
Тогда и код почистить от лишнего можно
почистили даже нужное - если пользователь производил поиск какого либо значения, либо устанавливал формат искомого/заменяемого до выполнения макроса, то результат не будет соответствовать ожиданиям
0
239 / 150 / 41
Регистрация: 26.01.2019
Сообщений: 545
12.02.2019, 21:03
Цитата Сообщение от Step_UA Посмотреть сообщение
почистили даже нужное
Ну, только если совсем чуть-чуть
Цитата Сообщение от itwasrain Посмотреть сообщение
Надо бы чтобы Ариалы не отбивались от общего настроения и тоже стали Таймсами
Хотя, требуемая функция выполняется. Предполагается что замена шрифтов происходит по нажатию кнопки (вызову макроса), и пользователь не ищет конкретных слов/форматов.
0
 Аватар для Step_UA
1591 / 664 / 225
Регистрация: 09.06.2011
Сообщений: 1,334
12.02.2019, 21:09
Цитата Сообщение от GeoCod Посмотреть сообщение
и пользователь не ищет конкретных слов/форматов.
пользователь это такой зверь, который зачастую сам не знает, что делает/делал ))
... через время появляется тема: макрос работал, ничего не делал и фсе, не работает ))
0
239 / 150 / 41
Регистрация: 26.01.2019
Сообщений: 545
12.02.2019, 21:34
Step_UA, точнее и не скажешь
Что ж, ждем-с новой темы )))
0
1 / 1 / 0
Регистрация: 06.06.2018
Сообщений: 16
14.02.2019, 21:05  [ТС]
Всем спасибо) Все хорошие)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.02.2019, 21:05
Помогаю со студенческими работами здесь

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

Макрос замены картинок в word 2010
Нужно написать скрипт замены картинок на формулы, то есть есть картинка "НЕ X" и "X" нужно заменить на формулы, причем рядом с...

Макрос замены с именитольного на родительный падеж
Здравствуйте! А возможно ли написать макрос для Microsoft Word, который бы автоматически в тексте, заменял фамилии в именительном...

Макрос замены сокращений в MS Word 2003
Нужно написать макрос в ворде 2003! но никак не получается! Заменить сокращения: • <т.д. Знак абзаца> на <так далее. Знак...

Нужен макрос для замены обычного пробела на неразрывный
Доброго времени суток! Ребят, я долгое время давал советы и помогал студентам, осваивающим word, но теперь помощь нужна мне, и я очень...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru