毕业论文英文引号互换

可以直接替换的，查找 ",替换值“ ，即可

同意二楼的------------------按二楼给出的方法做就是了---------------------------------一、三楼根本没看清楚人家的问题

1、在输入中文时，默认为宋体，其引号如示意图。

2、但在输入英文时，默认为Calibri(西文正文)，其引号是这样的。

3、首先按快捷键Ctrl+F，弹出查找可替换菜单。在查找内容栏填写[""]，勾选阅读突出显示-全部突出显示。

4、接着勾选使用通配符。

5、然后点击“在以下项中查找”右边的小三角，选择“主文档”。

6、现在所有的双引号都选中，最好在字体栏选择“宋体”即可。

如果这种方法搜索不到，说明文中的引号不是英文引号，其实是中文引号经过网页转换后形成的。把word另存为TXT文档就可还原为中文引号了

如果是完全配对的引号，很容易解决：1、工具-自动更正选项-镶入时自动套用格式-直引号替换为弯引号，去掉方框里的勾，否则在自动替换后必然全是右引号；2、使用通配符，查找栏输入 [“”]，中括号里是汉字双引号对，中括号连同双引号一起输入，然后全部替换为英文双引号，即直引号；3、查找栏输入 "(*)"，即两个英文双引号，里面是小括号（必须是半角）加星号，全部替换为：“\1”，即汉字双引号里面反斜杠和数字1，搞定。注意：执行前光标必须在引号对之外，否则替换错误； .Wrap = wdFindStop‘表示光标前的引号不替换； .Wrap = wdFindContinue‘表示替换全文引号。如果是不完全配对的引号，再用这招就会频繁出错了。例如引用长段讲话，引号内分段，段首有引号，段尾却不一定有，引号不是成对出现的，处理就比较麻烦。给你一段宏代码，用故意弄出来的多篇复杂引号文章测试过多次，全部正确替换。代码不长，但运行时稍微有点卡，可能会耽搁几秒时间，word会假死无反应。注意：执行前光标必须在错误引号之前，光标前的引号不会被替换，执行完成后光标无法在原处停留；默认循环99次，如果文档太长，超过了99个段落，则99后面的段落不完全成对的引号配对可能不正确，可自己修改循环次数，或继续执行。循环次数越多，卡顿越严重。注意，此段代码只能单独使用，如镶嵌在其它宏代码中就会出错。Sub 引号() = False For N = 1 To 99 With .Text = "[" & ChrW(8220) & ChrW(8221) & "]" . = """" .Forward = True .Wrap = wdFindStop .MatchWildcards = True End With Replace:=wdReplaceAll With .Text = """(*)""" . = ChrW(8220) & "\1" & ChrW(8221) End With Replace:=wdReplaceAll unit:=wdParagraph Next NEnd Sub

如果不需保留word排版的话，建议存成文本文件，然后采用：==================第一种方案请参看这个问题：第二种方案Replace Pioneer解决问题十分灵活，这里再提供第二种解决方案:1. 用ctrl-o打开txt文件。 2. ctrl-h打开replace窗口，设置如下： search for pattern=".*?"replace with pattern=“chars($match,2,-2)” 3. 点击Replace完成替换以上表示把所有"......"替换成“......”Replace Pioneer 下载地址：，

如果取消了“直引号替换为弯引号”前面的勾仍然出错，那大概就是字体问题了。

这个页面看到的雅黑字体就是这样，看起来都是差不多的斜双杠。其实放大了看还是有区别的，前引号上小下大，后引号上大下小。

给你一段 word 宏代码，不考虑“直引号替换为弯引号”前面的勾是否取消。可以用在不太长的文档中，自动处理全文单双引号，跨段的双引号也能正确处理。

注意：本段代码中，英文单引号是不处理的，单引号跨段也不处理。如果是处理太长的文档会比较卡，需要另写代码，只在框选区域内执行。

此外，把代码粘贴到宏编辑器中时，系统可能会把单引号部分的中文单引号换成英文单引号，导致单引号处理出错，需要在编辑器中手动修改几处单引号。在编辑器里代码中有淡绿色文本提示，提示文本可以删除。

Sub 引号()

= False

With

.Execute FindText:="‘", replacewith:="’", Replace:=wdReplaceAll

.Execute FindText:=ChrW(8221), replacewith:=ChrW(8220), Replace:=wdReplaceAll' 本行FindText:="‘"中的单引号换成中文前单引号，replacewith:="’"中的单引号换成中文后单引号

End With

Dim P&

With Selection

P = .

End With

Text = ChrW(8220)

With

Do While .Execute(FindText:=Text) = True

Y = Y + 1

Loop

End With

With

.Text = "’(*)’"'两处都换成中文后单引号

. = "‘\1’"'配对中文单引号

.MatchWildcards = True

End With

Replace:=wdReplaceAll

unit:=wdStory

For N = 1 To P

wdParagraph

With

.Text = ChrW(8220) & "(*)" & ChrW(8220)

. = ChrW(8220) & "\1" & ChrW(8221)

End With

Replace:=wdReplaceAll,Wrap:=wdFindStop

unit:=wdParagraph

Next N

unit:=wdStory

For S = 1 To Y

With

.Text = "[" & ChrW(8220) & ChrW(8221) & "]"

. = "^&"

.Forward = True

.MatchWildcards = True

End With

= wdWidthFullWidth

Next S

unit:=wdStory

End Sub

输入法旁有个小键盘半角（” ”）或者全角（“ ”）

很简单，用编辑菜单里的查找替换就行，一个一个自动替换。你先替换“，然后再替换”啊。