Метод Application.CleanString (Word)
Удаляет непечатаемые символы (коды символов 1–29) и специальные символы Word из указанной строки или изменяет их на пробелы (код символа 32). Возвращает результат в виде строки.
Синтаксис
выражение. CleanString( _String_ )
выражение: переменная, представляющая объект Application. Необязательный параметр.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| String | Обязательный | String | Исходная строка. |
Замечания
Следующие символы преобразуются, как описано в этой таблице.
| Код символа | Description |
|---|---|
| 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)
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.