Word VBA教程:CleanString方法

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

VBA示例

本示例删除选定文本的非打印字符,并将结果插入新文档中。


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)

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号