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

13907933959

shenghua8 发表于 2015-11-2 14:06
上附件。

前辈好！
请查看附件！

shenghua8

查找

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

复制代码

勾上使用通配符，
替换为

1. \1。\2

复制代码

再查找

1. 。([\.\．])

复制代码

勾上使用通配符，
替换为

1. \1\1

复制代码

13907933959

shenghua8 发表于 2015-11-2 15:51
查找

勾上使用通配符，

前辈好！
您是蓝波湾！不但技术好，回帖还快，让晚辈佩服！以后有难题再来向前辈求教！谢谢前辈的多次帮忙！谢谢！

13907933959

shenghua8 发表于 2015-11-2 15:51
查找

勾上使用通配符，

前辈好！
又有问题向您求教，请前辈查看附件！

shenghua8

13907933959 发表于 2015-11-3 17:26
前辈好！
又有问题向您求教，请前辈查看附件！

有问题应该另起帖子提问。
跟在别人帖子后面，老是要我点击【回复】按钮，回复与主题不相干的问题，算什么！

想要实现你在14楼的目的，
除开 VBA 实现外，
必须使用 Microsoft Office Word 2010 及其上版本，
【审阅】→【简繁转换】→【自定义词典】→【导出】→用 Excel 编辑后→再【导入】，
然后使用【简繁转换】转一下就是了。
你想怎么替换都行。

13907933959

shenghua8 发表于 2015-11-3 18:08
有问题应该另起帖子提问。
跟在别人帖子后面，老是要我点击【回复】按钮，回复与主题不相干的问题，算什 ...

前辈好！
抱歉！
我的电脑上还在使用 Microsoft Office Word 2003的版本，因本人在电脑方面的水平还处在菜鸟级，2003版本的都不是很熟。前辈、我的第一、第二个要求能否在2003版本上用查找替换实现？

shenghua8

13907933959 发表于 2015-11-3 18:45
前辈好！
抱歉！
我的电脑上还在使用 Microsoft Office Word 2003的版本，因本人在电脑方面的水平还处 ...

第3个问题，可以一次替换。
查找内容

1. ([㊀㊁㊂❶❷❸]@)

复制代码

勾上“使用通配符”，
替换为

1. \1、

复制代码

第1、第2个问题，无法一次性替换，
一遍一遍的替换就是了，且无需使用通配符。

13907933959

shenghua8 发表于 2015-11-4 09:40
第3个问题，可以一次替换。
查找内容

前辈好！
按照您的指教，第3个问题是可以一次替换，再假如：这些MS Gothic字体标题符号后面有的还有一个空格、二个空格的，有的没有，可否一次性替换？劳请前辈再出手相助！谢谢！

413191246se

139：不好意思，我只是你的初级（小学）VBA老师，和论坛高人无法比！——请试试下面的宏（黑圈123和白圈一二三后加顿号）：

1. Sub test()
   
2. 'MS Gothic字体：黑圈1/2/3后加顿号
   
3.     Selection.HomeKey unit:=wdStory
   
4.     Do
   
5.         Selection.Find.ClearFormatting
   
6.         Selection.Find.Execute findtext:=ChrW(10102)
   
7.         If Selection.Find.Found = True Then
   
8.             Selection.MoveEnd unit:=wdCharacter, Count:=1
   
9.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
   
10.             If Selection.Characters.Last.Text <> "、" Then Selection.InsertAfter Text:="、"
    
11.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
12.         End If
    
13.     Loop Until Selection.Find.Found = False
    
14. '
    
15.     Selection.HomeKey unit:=wdStory
    
16.     Do
    
17.         Selection.Find.ClearFormatting
    
18.         Selection.Find.Execute findtext:=ChrW(10103)
    
19.         If Selection.Find.Found = True Then
    
20.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
21.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
22.             If Selection.Characters.Last.Text <> "、" Then Selection.InsertAfter Text:="、"
    
23.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
24.         End If
    
25.     Loop Until Selection.Find.Found = False
    
26. '
    
27.     Selection.HomeKey unit:=wdStory
    
28.     Do
    
29.         Selection.Find.ClearFormatting
    
30.         Selection.Find.Execute findtext:=ChrW(10104)
    
31.         If Selection.Find.Found = True Then
    
32.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
33.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
34.             If Selection.Characters.Last.Text <> "、" Then Selection.InsertAfter Text:="、"
    
35.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
36.         End If
    
37.     Loop Until Selection.Find.Found = False
    
38. 
    
39. 'MS Gothic字体：白圈一/二/三后加顿号
    
40.     Selection.HomeKey unit:=wdStory
    
41.     Do
    
42.         Selection.Find.ClearFormatting
    
43.         Selection.Find.Execute findtext:=ChrW(12928)
    
44.         If Selection.Find.Found = True Then
    
45.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
46.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
47.             If Selection.Characters.Last.Text <> "、" Then Selection.InsertAfter Text:="、"
    
48.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
49.         End If
    
50.     Loop Until Selection.Find.Found = False
    
51. 
    
52.     Selection.HomeKey unit:=wdStory
    
53.     Do
    
54.         Selection.Find.ClearFormatting
    
55.         Selection.Find.Execute findtext:=ChrW(12929)
    
56.         If Selection.Find.Found = True Then
    
57.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
58.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
59.             If Selection.Characters.Last.Text <> "、" Then Selection.InsertAfter Text:="、"
    
60.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
61.         End If
    
62.     Loop Until Selection.Find.Found = False
    
63. 
    
64.     Selection.HomeKey unit:=wdStory
    
65.     Do
    
66.         Selection.Find.ClearFormatting
    
67.         Selection.Find.Execute findtext:=ChrW(12930)
    
68.         If Selection.Find.Found = True Then
    
69.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
70.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
71.             If Selection.Characters.Last.Text <> "、" Then Selection.InsertAfter Text:="、"
    
72.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
73.         End If
    
74.     Loop Until Selection.Find.Found = False
    
75. End Sub

复制代码

413191246se

全文A全部替换为B的语句还是：（139你的第一、二个问题）
    ActiveDocument.Content.Find.Execute findtext:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll