3 простых способа заменить шрифт в документе Word

В этой статье мы хотим показать вам 3 простых и эффективных метода замены определенного шрифта в документе Word.

Для обработки документа в Word часто требуется нечто большее, чем редактирование. Например, мы также должны учитывать такие элементы, как стиль, макет страницы и т. д. И одним из них является использование шрифта. Учитывая, что мы, вероятно, довольно часто меняем шрифт на другой, здесь у нас есть 3 способа, которые помогут нам легко справиться с задачей.

Способ 1: используйте функцию «Найти и заменить»

1. Первый и первыйost, щелкните вкладку «Главная».
2. Затем нажмите «Заменить» в группе «Редактирование».
3. Затем в диалоговом окне «Найти и заменить» убедитесь, что вы находитесь на вкладке «Заменить». Поместите указатель вставки в поле «Найти что» и убедитесь, что оно пустое.
4. Нажмите кнопку «Дополнительно» в левом нижнем углу, чтобы расширить дополнительные параметры.
5. Теперь сначала нажмите «Формат».
6. Затем выберите «Шрифт», чтобы открыть окно «Найти шрифт».
7. Выберите тип «Шрифт», который вы хотите заменить.
8. Далее нажмите «ОК».
9. Затем поместите указатель вставки в текстовое поле «Заменить на» и убедитесь, что в нем нет ни одного символа.
10. Повторите шаги 5 и 6. Только на этот раз в поле «Найти шрифт» вы должны выбрать шрифт, который вы хотите заменить. Затем нажмите «ОК».
11. Наконец, нажмите «Заменить все» в поле «Найти и заменить».

Способ 2: используйте макрос для замены шрифта в одном документе

1. Прежде всего, нажмите «Alt + F11», чтобы запустить редактор Word VBA.
2. Затем нажмите «Обычный», а затем «Вставить».
3. Выберите «Модуль», чтобы вставить новый модуль в «Обычный» проект.
4. Затем дважды щелкните по нему, чтобы открыть пространство редактирования.
5. Вставьте туда следующие коды:

Sub ReplaceFontForOneDocument()
  Dim objSingleWord As Range
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objSingleWord In .Words
      If objSingleWord.Font.Name = "Calibri" Then
        objSingleWord.Font.Name = "Times New Roman"
      End If
    Next
  End With
End Sub

6. Наконец, не забудьте нажать кнопку «Выполнить».

Примечание:

1. В строке кода «Если objSingleWord.Font.Name = "Calibri" Тогда", заменять "манометры” с типом шрифта в документе, который вам больше не нужен.
2. В строке кода «Font.Name = «Times New Roman»", изменять "Times New Roman” со шрифтом, который вы хотите применить к файлу.

Способ 3: запустить макрос для замены шрифта в нескольких документах

Вышеупомянутые 2 метода говорят об инструкциях по замене шрифта в одном документе. Теперь давайте посмотрим, как заменить шрифт в нескольких документах. Решением здесь, конечно же, является запуск макроса Word.

1. Для начала расставьте все tarполучить документы в одну папку.
2. Затем откройте Word и запустите редактор VBA, а также пространство для редактирования кода, используя шаги, описанные в методе 2.
3. Затем вставьте следующие коды:

Sub BatchReplaceFont()
  Dim objDoc As Document
  Dim objSingleWord As Range
  Dim strFile As String, strFolder As String
 
  'Initialization
  strFolder = "C:\Users\Test\Desktop\test files\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  'Replace a specific font with another in all files under the same folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  For Each objSingleWord In objDoc.Words
    If objSingleWord.Font.Name = "Calibri" Then
      objSingleWord.Font.Name = "Time New Roman"
    End If
  Next objSingleWord
 
  objDoc.Save
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

4. Наконец нажмите кнопку «Выполнить».

Заметки:

1. «Calibri» — это шрифт, который вам не нужен, а «Time New Roman» — тот, который вам нужен.
2. В строке кода «strFolder = "C:\Users\Test\Desktop\тестовые файлы\"", То"C:\Пользователи\Тест\Рабочий стол\тестовые файлы\” представляет путь к папке. И не забудьте последнее "\” по пути.

Исправить неожиданные ошибки в словах

Ошибки могут время от времени появляться в Word. И последствие смертельно для наших файлов Word. Один из способов справиться с неожиданными сбоями в Word — часто выполнять резервное копирование. Тогда нечего бояться. Другой способ — отозвать файлы после того, как они были повреждены. Продукт для исправления ошибок Word docx.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный инструмент восстановления xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com