从指定字符串中删除非打印字符（字符代码为 129）及 Word 的特殊字符，或将它们替换为空格（字符代码为 32）。这些在“说明”部分有详细描述。以字符串类型返回结果。
expression.CleanString(String)
expression 可选。该表达式返回一个 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)