怎样使用通配符替换把没有加引号的国家一次性加上引号？此题因wx486 解答而结题，谢谢

珏山居士

banjinjiu 发表于 2014-7-14 08:06
不要人云亦云，那是人家的方法。我按照别人的方法，试了n遍，都没行，才使用了程序。你有没复制内容，在w ...

这是本人亲自实践出来的方法，已经实现了楼主的要求，才发出来的。什么叫“人云亦云”？你按照我的方法试过了吗？大家都是来交流学习的，说话注意点态度好不好，你以为你是谁？

banjinjiu

虽然是以前的帖子，也想把自己学习所得发表出来，供后来者参考：
1、首先，把格式整理下，宋体，四号，英文标点“分号”改为中文。
2、分号前后的双引号全部删除，因为，有些混乱。
3、分号前加右双引号，分号后加左双引号。
4、段首加左双引号，段尾加右双引号。
两个代码，虽有点像，各有千秋！

1. Sub Macro8()
   
2.     Selection.WholeStory
   
3.     Selection.Font.Name = "宋体"
   
4.     'Selection.Font.Name = "楷体_GB2312"
   
5.     Selection.Font.Size = 14
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     With Selection.Find
   
9.     '使用中文标点符号替换掉英文标点符号
   
10.         .Text = ";"
    
11.         .Replacement.Text = "；"
    
12.     End With
    
13.     Selection.Find.Execute Replace:=wdReplaceAll
    
14.     With Selection.Find
    
15.     '删除分号前左双引号
    
16.         .Text = ChrW(8221) & "；"
    
17.         .Replacement.Text = "；"
    
18.     End With
    
19.     Selection.Find.Execute Replace:=wdReplaceAll
    
20.      With Selection.Find
    
21.     '删除分号前右双引号
    
22.         .Text = ChrW(8220) & "；"
    
23.         .Replacement.Text = "；"
    
24.     End With
    
25.     Selection.Find.Execute Replace:=wdReplaceAll
    
26.     With Selection.Find
    
27.     '删除分号后左双引号
    
28.         .Text = "；" & ChrW(8221)
    
29.         .Replacement.Text = "；"
    
30.     End With
    
31.     Selection.Find.Execute Replace:=wdReplaceAll
    
32.     With Selection.Find
    
33.     '删除分号后右双引号
    
34.         .Text = "；" & ChrW(8220)
    
35.         .Replacement.Text = "；"
    
36.     End With
    
37.     Selection.Find.Execute Replace:=wdReplaceAll
    
38.      With Selection.Find
    
39.     '分号前添加右双引号，分号后添加左双引号
    
40.         .Text = "；"
    
41.         .Replacement.Text = ChrW(8221) & "；" & ChrW(8220)
    
42.     End With
    
43.     Selection.Find.Execute Replace:=wdReplaceAll
    
44.     For Each i In ActiveDocument.Paragraphs
    
45.     '段首插入左双引号
    
46.     i.Range.InsertBefore ChrW(8220)
    
47.     Next
    
48.     With Selection.Find
    
49.     '删除段尾左双引号
    
50.         .Text = "；" & ChrW(8220) & "^13"
    
51.         .Replacement.Text = "；^p"
    
52.     End With
    
53. Selection.Find.Execute Replace:=wdReplaceAll
    
54. With Selection.Find
    
55.     '添加段尾右双引号
    
56.         .Text = "^p"
    
57.         .Replacement.Text = ChrW(8221) & "^p"
    
58.     End With
    
59. Selection.Find.Execute Replace:=wdReplaceAll
    
60. End Sub

复制代码

1. Sub Macro12()
   
2.     Selection.WholeStory
   
3.     Selection.Font.Name = "宋体"
   
4.     'Selection.Font.Name = "楷体_GB2312"
   
5.     Selection.Font.Size = 14
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     With Selection.Find
   
9.     '使用中文标点符号替换掉英文标点符号
   
10.         .Text = ";"
    
11.         .Replacement.Text = "；"
    
12.     End With
    
13.     Selection.Find.Execute Replace:=wdReplaceAll
    
14.     With Selection.Find
    
15.     '删除左双引号
    
16.         .Text = ChrW(8220)
    
17.         .Replacement.Text = ""
    
18.     End With
    
19.     Selection.Find.Execute Replace:=wdReplaceAll
    
20.      With Selection.Find
    
21.      '删除右双引号
    
22.         .Text = ChrW(8221)
    
23.     End With
    
24.     Selection.Find.Execute Replace:=wdReplaceAll
    
25.     With Selection.Find
    
26.     '分号前添加右双引号，分号后添加左双引号
    
27.         .Text = "；"
    
28.         .Replacement.Text = ChrW(8220) & "；" & ChrW(8220)
    
29.     End With
    
30.     Selection.Find.Execute Replace:=wdReplaceAll
    
31.     For Each i In ActiveDocument.Paragraphs
    
32.     '段首插入左双引号
    
33.     i.Range.InsertBefore ChrW(8220)
    
34.     Next
    
35.     With Selection.Find
    
36.     '删除段尾左双引号
    
37.         .Text = "；" & ChrW(8220) & "^13"
    
38.         .Replacement.Text = "；^p"
    
39.     End With
    
40. Selection.Find.Execute Replace:=wdReplaceAll
    
41. With Selection.Find
    
42.     '添加段尾右双引号
    
43.         .Text = "^p"
    
44.         .Replacement.Text = ChrW(8221) & "^p"
    
45.     End With
    
46. Selection.Find.Execute Replace:=wdReplaceAll
    
47. End Sub

复制代码

banjinjiu

我不想打口水仗，也许我技术差，反正，我使用你的代码，使用楼主的例题，没有实现需要的结果。

banjinjiu

珏山居士 发表于 2014-7-16 07:36
这是本人亲自实践出来的方法，已经实现了楼主的要求，才发出来的。什么叫“人云亦云”？你按照我的方法试 ...

我不想打口水仗，也许我技术差，反正，我使用你的代码，使用楼主的例题，没有实现需要的结果。

zjgwzj

11楼和12楼不用争吵，大家都是来学习、探讨的，其实针对双引号的问题，我们可以再进行一次替换：
取消“使用通配符”复选框，查找“;'”（这里的双引号是右双引号），替换为“;'”（这里的双引号是左双引号），注意无论是左双引号、右双引号，请从原文复制，替换之后就可以了。