Word Макросы: Как заменить несколько подряд символов с кодом?

Автор Petrovich, 18 декабря 2016, 15:24

Petrovich

Добрый день!
Разбираюсь с заменой символов.
Выяснил, что заменить несколько идущих в ряд пробелов можно с помощью операции замены:

.text = "([^32]{1;})"
.Replacement.text = "^32"

А как можно заменить несколько следующих друг за другом в ряд символов с кодировкой Chrw? Например, несколько Chrw(169), у меня в текстах встречается такое.

Администратор

При использовании подстановочных символов, в самом ворде нельзя указать код символа в кодировке Юникод (можно только скопировать откуда-нибудь символ и вставить его в поле "Найти"). А в VBA можно указывать код символа в кодировке Юникод:
.Text = ChrW(169) & "{1;}"
.Replacement.Text = ""
.MatchWildcards = True

Petrovich

Вот как, оказывается. Большое спасибо, буду знать!