Question

从指定字符串中删除非打印字符（字符代码为 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)