Метод Application.CleanString (Word)

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

Синтаксис

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

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

Параметры

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

Замечания

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

Код символа	Описание
7 (звуковой сигнал)	Удаляется, если перед символом 13 (абзац), а затем преобразуется в символ 9 (табуляция).
10 (канал строки)	Преобразуется в символ 13 (абзац), если перед символом 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 и обратная связь.