[求助]如何用宏一次性将所有全角数字替换为半角数字?!

91019

如题

[此贴子已经被作者于2006-6-13 13:02:12编辑过]

konggs

这个行否？

Sub 这个()
Dim a As Range
Set a = ActiveDocument.Range
a.CharacterWidth = wdWidthHalfWidth
End Sub

konggs

Sub 或者这个()
Dim a As Range
Application.ScreenUpdating = False
For Each a In ActiveDocument.Range.Characters
If a Like "[０-９]" Then
a.CharacterWidth = wdWidthHalfWidth
End If
Next
Application.ScreenUpdating = True
End Sub

yuyvtul

版主的代码好用，但第二个太慢，大文档麻烦

liujy

学习了!多谢孔兄.

以前大多在EXCEL版块驻留,现在把更多的目光投入到WORD版块中,还真学到不少东西.

91019

谢谢斑竹！

方法1，很好，速度很快，基本满足要求！

在斑竹代码基础上，增加、。的恢复功能，最好能利用循环恢复()（）等功能，

请斑竹指教！

Sub 这个()
Dim a As Range
Set a = ActiveDocument.Range
a.CharacterWidth = wdWidthHalfWidth

Selection.WholeStory
With Selection.Find
.Text = ChrW(65380)
.Replacement.Text = "、"
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(65377)
.Replacement.Text = "。"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

这样也行：

Sub Macro2()
Selection.WholeStory
Selection.Range.CharacterWidth = wdWidthHalfWidth

With Selection.Find
.Text = ChrW(65380)
.Replacement.Text = "、"
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(65377)
.Replacement.Text = "。"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub