word书稿中的千分位问题，请大家帮忙

　　书稿中要求采用数字千分位形式，例如数字 123456789.123456789应写作:123 456 789.123 456 789。要求是以小数点为基准，前后分别以三个数字为单位，每三个数字间空半格。年份数字除外，如１９４７不用千分位。请问word中如何实现？

　　我认真地看了一些ＶＢＡ程序，但是一直没找到一个适合这个标准的程序。比如守柔的一个程序，强制把小数点后的数字保留四位。我不懂ＶＢＡ程序，这个问题困扰已久，请大家帮个忙！

　　拜谢！

记得前阵子写过一下，关键字记不全了，示例中好象有田鼠之类的，一时半会儿没找到。

参考测试：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-4-18 5:49:37
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0397^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub 设置千分位格式()
    Dim myRange As Range, myValue As Double, myString As String
    Application.ScreenUpdating = False    '关闭屏幕更新,加快程序运行
    Do    '进入一个循环
        '定义myRange为活动文档的主文字部分
        Set myRange = ActiveDocument.Content
        With myRange.Find  '查找设置
            .ClearFormatting    '清除格式
            .Text = "[0-9]{4,}[!年]"    '查找四个以上的数字且其后为不为年的内容
            .MatchWildcards = True    '使用通配符
            If .Execute = False Then Exit Do    '如果未找到则退出循环
            myValue = Val(myRange.Text)    '取得数字
            myRange.SetRange myRange.Start, myRange.End - 1    '重新定义myRange对象
            myRange.Text = VBA.Format$(myValue, "# ##0")     '写入千分位格式
        End With
    Loop
    Application.ScreenUpdating = True    '恢复屏幕更新
End Sub
'----------------------

非常感谢jty26和守柔，谢谢您们的帮助。

您们实在太热心了！

我将在实验后再回复您们。