word文档怎么给数字加千分符_怎么将WORD中的数字批量加上千位分隔符（注意：保留0位小数）。...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

例：123456变成123,456，而不是将123456变成123,456.00。

找到了一段宏代码，但运行后将123456变成123,456.00了，而不是我要的123,456。

Sub CurrencyNumber()

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

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)

MsgBox CR

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

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

Yn = Format(CR, "Standard")

CR.Text = Nn

Else

Yn = Format(CR, "Standard")

CR.Text = Nn

End If

End If

Next Acell

Else

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

End If

Application.ScreenUpdating = True

End Sub