最近无聊做文档，跟领导建议不要用word做，没被采纳，无奈文档给洋人看，全角符号要改半角，于是仿照现成例子写个macro:

Sub 字母数字符号全角转半角()

‘

‘ 字母数字符号全角转半角 Macro

‘ 宏在 2005-10-14 由 ZhengRC 创建

‘

Dim qjsz, bjsz As String, i As Integer ‘定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型

qjsz =

０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ，．／＜＞？；＇：

［］｛｝＼｜＝－＋＿）（＊％＄＃＠！｀～＆　

bjsz =

0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./

?;’:

[]{}\|=-+_)(*%$#@!`~

Selection.WholeStory

For i = 1 To 95 ‘循环10次

    With Selection.Find

        .Text = Mid(qjsz, i, 1) ‘mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字

        .Replacement.Text = Mid(bjsz, i, 1) ‘将用于替换的相应位置的半角数字

        .Format = False ‘保留替换前的字符格式

        .Execute Replace:=wdReplaceAll ‘用半角符号替换全角符号

    End With

Next i

End Sub

昨天发现东方卫视的新闻其实做得不错，在播报的同时，下方打印之前或者之后的重要新闻。

浏览了一下世界各大新闻社对神六的报道。其他都是一般，美联社的视点比较独特，中国开放如此多的内外媒体，让他们同步报道神六的发射，昭示中国对自己升天技术的强大信心。

不过我想，信心归信心，跟100%的成功率是永远不能划上等号的，至于可能失败之后的危机公关，如何平息公众的各种指责与声音，政府估计也做足的准备。

昨天看一篇文章，说为何致力发展航天而非航母，说的话也不无道理，按照战列舰被淘汰的趋势，航母将来亦并非战争主角，航天技术的提升还是很有必要的。虽然文章有点御笔性质，但观点还是可以的。

没什么感觉，正如两年前神5那样，没有什么大喜的感觉。

应该是顺理成章的事情，无论成败。

快两年没联系了，不知道你过得如何。

Happy birthday to you!