word用宏将英文标点转换为中文标点，但不转换小数点

多久多少

请教各位高手，想录制宏用替换将word文档中所有英文标点"."转换为中文标点"。"，但不转换小数点。请问如何实现？谢谢

其实文档很长，手动的办法实现太慢了。

shenghua8

1. Sub 宏1()
   
2. Selection.Find.ClearFormatting
   
3. Selection.Find.Replacement.ClearFormatting
   
4. With Selection.Find
   
5. .Text = "([!0-9])\.([!0-9])"
   
6. .Replacement.Text = "\1。\2"
   
7. .Forward = True
   
8. .Wrap = wdFindContinue
   
9. .Format = False
   
10. .MatchCase = False
    
11. .MatchWholeWord = False
    
12. .MatchByte = False
    
13. .MatchAllWordForms = False
    
14. .MatchSoundsLike = False
    
15. .MatchWildcards = True
    
16. End With
    
17. Selection.Find.Execute Replace:=wdReplaceAll
    
18. End Sub
    

复制代码

多久多少

问题解决了，非常非常感谢。

13907933959

shenghua8 发表于 2015-9-16 17:35

前辈好！
如文档正文中，各小标题符号有：
1. 2. 3.……10. 11. 12.……100. 101. 102.……1000. 1001. 1002……10001. 10002. 10003……，如何把各小标题符号后面的点号改为顿号，不改正文中数字中的点号，如：0.X   0.XX   0.XXX   0.XXXX   X.XXX  XX.X   XX.XX  XX.XXX  XXX.X   XXX.XX XXX.XXX   XXXX.X  XXXX.XX  XXXX.XXX（其中X为0 — 9不同的数字）。
望能得到前辈的赐教，万分感谢！！！

shenghua8

13907933959 发表于 2015-10-29 10:13
前辈好！
如文档正文中，各小标题符号有：
1. 2. 3.……10. 11. 12.……100. 101. 102.……1000. 1001. ...

没见到附件，猜一个。
Ctrl+H，打开【替换】对话框
查找内容：

1. ([0-9]@)[.．]([!0-9)])

复制代码

替换为：

1. \1、\2

复制代码

勾选【使用通配符】
全部替换。

13907933959

shenghua8 发表于 2015-10-29 11:27
没见到附件，猜一个。
Ctrl+H，打开【替换】对话框
查找内容：

前辈好！
感谢出手相助！您的水平真是高！不佩服都不行！
能否再劳请前辈把它组合进2楼，您编写的代码中，成为一个宏、具备两者的功能，这样更能方便使用？
晚辈先谢过前辈！

shenghua8

13907933959 发表于 2015-10-29 12:42
前辈好！
感谢出手相助！您的水平真是高！不佩服都不行！
能否再劳请前辈把它组合进2楼，您编写的代码 ...

写 VBA 我不是高手。
你可以别起新贴，请 413191246se 这样的高手来写。
说清楚你想要同时实现的两个问题。即：

1. 在不影响数字小数点的前提下：
   
2. 1．将英文句点“.”替换成中文句号“。”
   
3. 2．将手动数字编号后面的全半角句点“.”或“．”替换成顿号“、”

复制代码

　　（其实，标准公文中第三层序号，即数字编号后面，按国家标准，要求是全角句点“．”
　　　所以，现实中，与你的要求其实相反，常常需要将顿号“、”或半角句点“.”都替换成全角句点“．”）。


.

13907933959

shenghua8 发表于 2015-10-29 14:14
写 VBA 我不是高手。
你可以别起新贴，请 413191246se 这样的高手来写。
说清楚你想要同时实现的两个问 ...

前辈好！
好的，感谢前辈！

13907933959

shenghua8 发表于 2015-10-29 11:27
没见到附件，猜一个。
Ctrl+H，打开【替换】对话框
查找内容：

前辈好！
用您教的上面两方法查找替换时，我又到一个问题，如文档中有英文...或......省略号的，省略号的第1个或第4个点会被替换成句号，请前辈再出手，在确保前面2种效果的前题下，英文省略号不会被替换掉。谢谢！

shenghua8

13907933959 发表于 2015-11-2 12:34
前辈好！
用您教的上面两方法查找替换时，我又到一个问题，如文档中有英文...或......省略号的，省略号 ...

上附件。