怎样用VBA将全角α、β、π、•等批量变成半角Times New Roman字符？

ssq1109 · 发表于 2006-5-8 11:52

问题见附件。[em09]

P1ilPc0c.rar (3.88 KB, 下载次数: 12)

[此贴子已经被作者于2006-5-8 11:53:31编辑过]

鑫11 · 发表于 2006-5-8 15:27

手动改变字体后，新建个样式，把加入模板，然后运行以下宏

Selection.HomeKey Unit:=wdStory
Selection.WholeStory
Selection.Style = ActiveDocument.Styles("样式3")

我只有这种方法

[此贴子已经被作者于2006-5-8 15:38:01编辑过]

ssq1109 · 发表于 2006-5-8 17:17

这个思路可以呀！但我要试一试。

[此贴子已经被作者于2006-5-8 17:23:07编辑过]

守柔 · 发表于 2006-5-11 10:52

请参考：

Sub Example()
Dim myRange As Range
Set myRange = ActiveDocument.Content
myRange.CharacterWidth = wdWidthHalfWidth
myRange.Font.Name = "Times New Roman"
End Sub

十年磨一剑 · 发表于 2006-5-11 11:16

好像也不行。

守柔 · 发表于 2006-5-11 11:46

以下是引用[I]十年磨一剑[/I]在2006-5-11 11:16:45的发言：[BR]
好像也不行。

我试了一下，能通过。愿闻十年兄其详。

十年磨一剑 · 发表于 2006-5-11 14:05

守兄，虽然sina等变了，但

汉字与汉字之间的α､θ却没有变。

例如：

下列α､θ均为全角西腊字母,·为全角中圆点｡

中的α､θ却没有变？

why?

ssq1109 · 发表于 2006-5-11 16:00

其实守柔大侠的方法我用过,此法相当于WORD菜单中的“格式→更改大小写→半角”+将字体设为“Times New Roman”，前者我在VBA的帮助文件中找到并试过,最大的问题是将全角标点符号变成了半角,且像“、”显示为“□”,而将“。”变成了半角“.”，所以菜单中的方法和 myRange.CharacterWidth = wdWidthHalfWidth 相对于中文处理几乎无用。这就出现了像十兄说的那样。

鑫11 · 发表于 2006-5-11 20:00

用样式可以吗

ssq1109 · 发表于 2006-5-11 22:07

用式样我试过，运行代码后只是选中状态，版面没有变化。

		自动登录	找回密码
密码			免费注册

怎样用VBA将全角α、β、π、&#8226;等批量变成半角Times New Roman字符？

怎样用VBA将全角α、β、π、•等批量变成半角Times New Roman字符？