Метод Application.CleanString (Word)

Удаляет из указанной строки непечатаемые символы (коды 1–29) и специальные символы Word или заменяет их пробелами (код символа 32). Возвращает результат в виде строки.

Синтаксис

выражение. CleanString( _String_ )

выражение: переменная, представляющая объект Application. Необязательный параметр.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
String	Обязательный	String	Исходная строка.

Примечания

Следующие символы преобразуются, как описано в этой таблице.

Код знака	Описание
7 (звуковой сигнал)	Удаляется, если ему не предшествует символ 13 (абзац), а затем преобразуется в символ 9 (табуляция).
10 (перевод линии)	Преобразуется в символ 13 (абзац), если ему не предшествует символ 13, а затем удаляется.
13 (абзац)	Без изменений.
31 (мягкий перенос)	Удаляются.
160 (неразрывный пробел)	Преобразовано в символ 32 (пробел).
172 (мягкий перенос)	Удаляются.
176 (неразрывный пробел)	Преобразовано в символ 32 (пробел).
182 (знак абзаца)	Удаляются.
183 (пуля)	Преобразовано в символ 32 (пробел).

Пример

В этом примере из выделенного текста удаляются непечатаемые символы и результат вставляется в новый документ.

Dim strClean As String 
Dim docNew As Document 
 
strClean = Application.CleanString(Selection.Text) 
Set docNew = Documents.Add 
docNew.Content.InsertAfter strClean

В этом примере из выделенного кода поля удаляются непечатаемые символы, а затем выводится результат.

ActiveDocument.ActiveWindow.View.ShowFieldCodes = True 
ActiveDocument.Fields(1).Select 
MsgBox Application.CleanString(Selection.Text)

См. также

Объект Application

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

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