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

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

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

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

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

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

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

Спасибо)

Visual Basic

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

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

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

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

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

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

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

@Step_UA 1590 / 663 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	12.02.2019, 18:56	7
	Сообщение от GeoCod Тогда и код почистить от лишнего можно почистили даже нужное - если пользователь производил поиск какого либо значения, либо устанавливал формат искомого/заменяемого до выполнения макроса, то результат не будет соответствовать ожиданиям 0

@GeoCod 237 / 148 / 41 Регистрация: 26.01.2019 Сообщений: 545
	12.02.2019, 21:03	8
	Сообщение от Step_UA почистили даже нужное Ну, только если совсем чуть-чуть Сообщение от itwasrain Надо бы чтобы Ариалы не отбивались от общего настроения и тоже стали Таймсами Хотя, требуемая функция выполняется. Предполагается что замена шрифтов происходит по нажатию кнопки (вызову макроса), и пользователь не ищет конкретных слов/форматов. 0

@Step_UA 1590 / 663 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	12.02.2019, 21:09	9
	Сообщение от GeoCod и пользователь не ищет конкретных слов/форматов. пользователь это такой зверь, который зачастую сам не знает, что делает/делал )) ... через время появляется тема: макрос работал, ничего не делал и фсе, не работает )) 0

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

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

Решение