Дереку нужен способ найти в документе, когда в следующий раз изменится гарнитура (название шрифта). Например, если точка вставки находится в середине документа, он хотел бы, чтобы Word сообщал ему, начиная с этой точки, где происходит следующее изменение. Дерек задается вопросом, есть ли способ выполнить такую ​​задачу.

Нет встроенного способа выполнить эту задачу, хотя вы можете визуально определить, когда шрифт изменился. Я часто могу сказать это, просто увеличивая коэффициент масштабирования документа (скажем, до 200% или 250%), а затем визуально просматривая документ, чтобы найти изменения во внешнем виде. Конечно, это будет зависеть от визуального несоответствия между двумя соседними шрифтами.

Если вы предпочитаете решение на основе макросов, вы можете создать такое, которое сохранит имя гарнитуры в текущем местоположении точки вставки, а затем пошагово перебирает каждый оставшийся символ документа. Если шрифт отличается от оригинального, вы можете уведомить пользователя. Вот пример такого макроса:

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

Большая часть работы выполняется в цикле Do, где шрифт каждого символа проверяется на предмет изменений. Обратите внимание, что цикл также проверяет, достигнут ли конец документа, и в этот момент вы хотите, чтобы макрос остановился.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (5131) относится к Microsoft Word 2007, 2010, 2013 и 2016.