将西文双引号替换成中文双引号的Word宏

把这个宏做成菜单上的快捷方式才好用，一次只替换一对西文的双引号。

Sub 替换中文双引号()

Selection.Find.ClearFormatting

With Selection.Find

.Text = """"

.Replacement.Text = ChrW(8220) & ChrW(8221)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:=ChrW(8220)

Selection.Find.ClearFormatting

With Selection.Find

.Text = """"

.Replacement.Text = ChrW(8220) & ChrW(8221)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:=ChrW(8221)

End Sub

• ·重定向控制台程序的输入输出
• ·点穴减肥原理和效果详解 减肥_美丽顾问
• ·桌面办公自动化系统(DOA)测试版发布(htm
• ·关于析构函数在stack-unwinding中
• ·不使用 标签创建两栏页面布局
• ·使用makefile和不使用makefile时
• ·On the Way to Mastering
• ·懒女人效果最佳的减肥瘦身方案 减肥_美丽顾问
• ·什么样的人能做拍打按摩减肥 减肥_美丽顾问
• ·有关jive论坛搜索中文化的支持详解!