【排版必备】全角数字转换成半角VBA

phenix3344

功能很简单，也没有什么技术难度，自己用着方便，发上来与大家共享

Sub 全角数字转换成半角() ' ' 全角数字转换成半角 Macro ' 宏在 2004-4-20 由 王吉敏 录制 Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "１" .Replacement.Text = "1" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "２" .Replacement.Text = "2" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "３" .Replacement.Text = "3" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "４" .Replacement.Text = "4" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "５" .Replacement.Text = "5" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "６" .Replacement.Text = "6" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "７" .Replacement.Text = "7" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "８" .Replacement.Text = "8" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "９" .Replacement.Text = "9" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "０" .Replacement.Text = "0" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

End Sub

[此贴子已经被守柔于2005-6-15 17:14:31编辑过]

sdbbsdbb

楼主，你的热情我们能够感觉到，但也请关注一下昨天的那个贴子“ 如何恢复字间距？ ”，你看看，是哪一个更方便。

phenix3344

呵呵，注册会员后很久没来了

也没看高手们的帖子，不好意思啊[em04]

我的方法比“ 如何恢复字间距？”中的方法土的太多了

办公之星

能够原创，无论如何应当支持。不好意思的话，还是别讲的好，呵呵。

注册两年才发6个帖子，要么太忙，要么兴趣点不在这儿，对吗？

如果换一种思维优化一下转换程序，还是非常不错的，全角/半角转换功能的不足是连带了标点符号。

守柔

我本当鼓励一下，可惜这样的贴子，挂以原创，无论如何，有些说不过去了。

如果楼主这样的程序，被冠以[原创]而流之于世时，我不知道会出现什么情况，至少，方家会质问WORD版是无人啊。

且不论有无更好方面（查找任意数字[0123456789]或者^#,突出显示所有找到项目,然后转换大小写/全半角），录一个宏，就可以了）

做一个循环，也比楼主这段代码好吧？我也没有看到楼主原创在哪里，只是一些宏粗糙的组合嘛 。

也不想多说什么了。

phenix3344

也不想多说什么，我一向都是以实用为主

请斑竹删除此帖。

回：注册两年才发6个帖子

以前发过不少帖子，论坛肯定是清理过数据库了，不然再怎么样也不至于我回来时竟然时0分