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

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

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

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@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

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

Решение