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

13907933959

413191246se 发表于 2015-11-8 20:38
我一上午也没进来，后来，很久才进来，昨晚我也是很难进。——你说这句话令人不明白。给谁加宋体？如果你 ...

师傅好！

本帖您原36楼上的代码在下面附件4上运行，有些我后加的标点还删不了。另外、请师傅在36楼的代码中加一个字体＝宋体的代码，也就是加的是宋体顿号。

   

413191246se

139：你加的符号只有一种：齐线墨点（．），它是全角的中文标点，要用软键盘才能输入，现在去除了；顿号也变为宋体。

1. Sub 黑圈123加顿号()
   
2.     Dim i As Long
   
3.     i = 9312
   
4.     Do
   
5.         Selection.HomeKey Unit:=wdStory
   
6.         Selection.Find.ClearFormatting
   
7.         Do While Selection.Find.Execute(findtext:=ChrW(i), Forward:=True)
   
8.             Do
   
9.                 Selection.MoveEnd Unit:=wdCharacter, Count:=1
   
10.                 If Selection.Characters.Last.text = vbCr Then Exit Do
    
11.             Loop Until Selection.Characters.Last.text <> ChrW(160) And Asc(Selection.Characters.Last) <> 9 And _
    
12.                 Selection.Characters.Last Like "[! 　,.．，。]"
    
13.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
14.             Selection = Replace(Selection, ChrW(160), "")
    
15.             Selection = Replace(Selection, " ", "")
    
16.             Selection = Replace(Selection, "　", "")
    
17.             Selection = Replace(Selection, Chr(9), "")
    
18.             Selection = Replace(Selection, ",", "")
    
19.             Selection = Replace(Selection, ".", "")
    
20.             Selection = Replace(Selection, "．", "")
    
21.             Selection = Replace(Selection, "，", "")
    
22.             Selection = Replace(Selection, "。", "")
    
23.             Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
24.             If Selection.Characters.Last.text = "、" Then
    
25.                 Selection.Characters.Last.Delete
    
26.             Else
    
27.                 Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
28.             End If
    
29.             Selection.InsertAfter text:="、"
    
30.             Selection.Characters.Last.Font.Name = "宋体"
    
31.             Selection.MoveRight Unit:=wdCharacter, Count:=1
    
32.         Loop
    
33.         i = i + 1
    
34.         If i = 9352 Then i = 9450
    
35.         If i = 9451 Then i = 10102
    
36.         If i = 10132 Then i = 12832
    
37.         If i = 12842 Then i = 12928
    
38.         If i = 12938 Then End
    
39.     Loop
    
40. End Sub

复制代码

13907933959

413191246se 发表于 2015-11-9 20:41
139：你加的符号只有一种：齐线墨点（．），它是全角的中文标点，要用软键盘才能输入，现在去除了；顿号也 ...

师傅好！
这个宏现在是蓝波湾，徒弟拜谢师傅！

heartsoar

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

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

厉害，谢谢