Application.CleanString 方法 (Word)
从指定的字符串中删除非打印字符 (字符代码 1-29) 和特殊 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)
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。