[求助]在word中如何把数字设置成象excel那样每隔三位加一个分隔号？

rzz8118

在word中如何把数字设置成象excel那样每隔三位加一个分隔号？

例如：12345.65 456421.12 789456 45897 78923.54

变为

12，345.65 456，421.12 798，456 458，97 78，923.54

.

守柔

其实你搜索一下，满世界都是。这也是学习的一种快捷方式。

另外对一些基本术语也得讲究“规范”用语是吧？

请参此贴：http://club.excelhome.net/viewthread.php?tid=70707

rzz8118

感谢2楼楼主的回答。其实，前面我也看到了，只不过我的操作系统为win98+office 2000，请教在此系统如何实现？

办公之星

如果实在困难，可以考虑用查找替换功能实现。这是指已经手动输入全角逗号而言的。

如果是现录入，可以直接录入半角逗号。

rzz8118

非常谢谢办公之星，有谁知道在win98+office2000中，实现上述功能？路漫漫其修远兮，吾将上下而求索?

守柔

有两种方法，一是上传你的附件我来帮你完成，另一种方法是我将宏代码粘贴上来，你自己将它粘贴到你的VBE中，你说呢？（有关VBE中的操作，你可以搜索一下“F11”关键字，如http://club.excelhome.net/viewthread.php?tid=67526&replyID=326887&skin=1）

代码如下：

Sub StandardNumber()

Dim i As Range, Acell As Cell, CR As Range, YN As String

On Error Resume Next

Application.ScreenUpdating = False

If Selection.Type = 2 Then

For Each i In Selection.Words

If i Like "####*" = True Then

If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then

i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End

i = Format(i, "Standard")

Else

i = Format(i, "Standard")

End If

End If

Next i

ElseIf Selection.Type = 5 Then

For Each Acell In Selection.Cells

Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)

If CR Like "####*" = True Then

If CR Like "####.#*" = True Then

YN = Format(CR, "Standard")

CR.Text = YN

Else

YN = Format(CR, "Standard")

CR.Text = YN

End If

End If

Next Acell

Else

MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation

End If

Application.ScreenUpdating = True

End Sub

运行此宏即可，相关操作在二楼贴子的链接中已经讲过了。