word如何实现英文引号转为中文双引号并自动配对

xwawa

管理员

Rank: 9 Rank: 9 Rank: 9

帖子: 33
精华: 0
积分: 0
阅读权限: 200
在线时间: 172 小时
注册时间: 2008-7-23
最后登录: 2009-1-6

发短消息
加为好友
当前离线

1楼大中小发表于 2008-8-16 23:11 只看该作者

word如何实现英文引号转为中文双引号并自动配对

您是本帖第216个阅读者

以下是实现该功能的宏代码,运行即可

复制内容到剪贴板

代码:

Selection.Find.Replacement.Clearformatting

With Selection.Find

.Text = """"

.Forward = True

.Wrap = wdStop

.MatchByte = True

End With

With Selection

While .Find.Execute

.Text = ChrW(8220)

.Find.Execute

.Text = ChrW(8221)

Wend

End With

TOP

‹‹ 上一主题 | 下一主题 ››