如何将半角双引号替换成全角双引号？

tigersin25 · 发表于 2009-12-23 21:13

从网上下载的有些文档资料中采用的是半角双引号""，看起来非常别扭，尝试着利用WORD提供的查找、替换功能
无法达成，希望能得到各位的解答，在此先谢了。

junt7 · 发表于 2009-12-23 21:20

上附件或你自己去摸索用find函数和substitute函数

guzhen9315 · 发表于 2009-12-23 21:56

请看20楼的VBA代码：

http://club.excelhome.net/viewth ... p;extra=&page=2

tanghaibing0430 · 发表于 2009-12-24 11:55

请看下面的图片
2种方法
具体操作如下：
1、按Ctrl+H
2、查找处填：(")(*)(")或者"(*)"
3、替换处填：“\2”或者“\1”
4、勾选“使用通配符”
5、点击确定

[ 本帖最后由 tanghaibing0430 于 2009-12-24 11:56 编辑 ]

tigersin25 · 发表于 2009-12-26 22:39

感谢各位的热心回复，问题已经解决了，没想到查找与替换学问这么大，以前从来没有注意过，昨天到书店买了本本论坛出版的《WORD实战技巧精萃》，里边有关于此的解答，WORD不容小觑，我需要更深入地学习，本论坛里边的学习氛围挺好，而且版主们也很敬业，再一次谢谢各位的分享！！！

ailue · 发表于 2009-12-26 22:40

用正则表达式

yepulu · 发表于 2012-4-30 20:50

如何将半角双引号替换成全角双引号，好用

sscylh · 发表于 2012-4-30 23:10

tanghaibing0430 发表于 2009-12-24 11:55
请看下面的图片
2种方法
具体操作如下：

不错哦!

yepulu · 发表于 2012-5-17 11:35

如何将半角双引号替换成全角双引号

413191246se · 发表于 2012-5-17 15:35

Sub 替换英文双引号为中文()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = """"
   .Forward = True
   .Wrap = wdFindStop
   .MatchByte = True
End With
With Selection
   While .Find.Execute
      .Text = ChrW(8220)
      .Find.Execute
      .Text = ChrW(8221)
   Wend
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何将半角双引号替换成全角双引号？

请看下面的图片

感谢