WORD中批量转换中英文标点符号文档格式.doc

WORD中批量转换中英文标点符号文档格式.doc

《WORD中批量转换中英文标点符号文档格式.doc》由会员分享，可在线阅读，更多相关《WORD中批量转换中英文标点符号文档格式.doc（2页珍藏版）》请在冰豆网上搜索。

,在主窗体复制以下内容后粘贴,保存.关闭编辑器,在"

里调用.

SubToggleInterpunction（）'

中英文标点互换

DimChineseInterpunction（）AsVariant,EnglishInterpunction（）AsVariant

DimmyArray1（）AsVariant,myArray2（）AsVariant,strFindAsString,strRepAsString

DimmsgResultAsVbMsgBoxResult,NAsByte

'

定义一个中文标点的数组对象

ChineseInterpunction=Array（"

、"

"

。

"

"

，"

；

：

？

！

……"

—"

～"

（"

）"

《"

》"

）

定义一个英文标点的数组对象

EnglishInterpunction=Array（"

."

;

:

?

!

…"

-"

~"

<

>

提示用户交互的MSGBOX对话框

msgResult=MsgBox（"

您想中英标点互换吗?

按Y将中文标点转为英文标点,按N将英文标点转为中文标点!

vbYesNoCancel）

SelectCasemsgResult

CasevbCancel

ExitSub'

如果用户选择了取消按钮,则退出程序运行

CasevbYes'

如果用户选择了YES,则将中文标点转换为英文标点

myArray1=ChineseInterpunction

myArray2=EnglishInterpunction

strFind="

“（*）”"

strRep="

\1"

CasevbNo'

如果用户选择了NO,则将英文标点转换为中文标点

myArray1=EnglishInterpunction

myArray2=ChineseInterpunction

（*）"

“\1”"

EndSelect

Application.ScreenUpdating=False'

关闭屏幕更新

ForN=0ToUBound（ChineseInterpunction）'

从数组的下标到上标间作一个循环

WithActiveDocument.Content.Find

.ClearFormatting'

不限定查找格式

.MatchWildcards=False'

不使用通配符

查找相应的英文标点,替换为对应的中文标点

.Executefindtext:

=myArray1（N）,replacewith:

=myArray2（N）,Replace:

=wdReplaceAll

EndWith

Next

.MatchWildcards=True'

使用通配符

=strFind,replacewith:

=strRep,Replace:

Application.ScreenUpdating=True'

恢复屏幕更新

EndSub