Свойство FindReplace.MatchWidth (издатель)

Устанавливает или возвращает логическое значение , определяющее, будет ли операция поиска соответствовать ширине символа искомого текста. Для чтения и записи.

Синтаксис

выражение. MatchWidth

выражение Переменная, представляющая объект FindReplace .

Возвращаемое значение

Boolean

Примечания

Это свойство может быть недоступно в зависимости от языка, включенного в вашей операционной системе. Значение по умолчанию — False.

Возвращает "Отказано в доступе", если не включен восточноазиатский язык.

Пример

В следующем примере найдены все вхождения слова "ширина" в активном документе и применено полужирное форматирование. Свойству MatchWidth присвоено значение False , так что можно находить как полные, так и половинные символы. Например, этот поиск применит полужирный шрифт к слову "width" (полуширинные символы) и слову "w i d t h" (полноширинные символы).

Dim objDocument As Document 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "width" 
 .MatchWidth = False 
 Do While .Execute = True 
 .FoundTextRange.Font.Bold = msoTrue 
 Loop 
End With

В следующем примере найдены все вхождения слова "ширина" в активном документе и применено полужирное форматирование. Свойству MatchWidth присвоено значение True , что позволяет находить символы полной или половинной ширины. Например, этот поиск применит полужирный шрифт к слову "ширина". Она не будет применять форматирование к слову "w i d t h".

Dim objDocument As Document 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "width" 
 .MatchWidth = True 
 Do While .Execute = True 
 .FoundTextRange.Font.Bold = msoTrue 
 Loop 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.