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

用头走路

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

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

　　拜谢！

jty26

可以参照守柔版主的这个贴http://club.excelhome.net/viewthread.php?tid=138106&replyID=&skin=0

守柔

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

参考测试：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* 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和守柔，谢谢您们的帮助。

您们实在太热心了！

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

wangsp

如何更改代码让其只对用户选定文本替换为千分位？

wangsp

     '如果没有选定区域，则对全文档进行处理
    If Selection.Type = wdSelectionIP Then
        Set myRange = ActiveDocument.Content '定义myRange为活动文档的主文字部分
    Else
        Set myRange = Selection.Range
    End If

守柔

原帖由 用头走路 于 2008-4-16 10:05 发表
　　书稿中要求采用数字千分位形式，例如数字 123456789.123456789应写作:123 456 789.123 456 789。要求是以小数点为基准，前后分别以三个数字为单位，每三个数字间空半格。年份数字除外，如１９４７不用千分位。请 ...

请精确的处理请参考《守柔Word数字通》！
欢迎来样测试。该作品可针对所选内容或者全文档。
按默认“,"分隔符生成的千分位格式:


按空格(支持自定义符号)生成千分位格式：




[ 本帖最后由 守柔 于 2009-4-11 12:36 编辑 ]

tangqingfu

原帖由 wangsp 于 2008-8-7 11:10 发表
     '如果没有选定区域，则对全文档进行处理    If Selection.Type = wdSelectionIP Then        Set myRange = ActiveDocument.Content ' ...

学习,谢谢!

shammer

留个记号以后用

qjyanglihai

很实用，谢谢！