急。Word中数学如何实现千分符？

tao80412

同上，谢谢！

tangqingfu

守版的代码:
Sub 千分位格式()
    Dim i As Range, Acell As Cell, CR As Range, YN As String
    On Error Resume Next
    Application.ScreenUpdating = False
    With Selection
        If .Type = 2 Then
            If .Words(1) Like "#" = False Then .Words(1).InsertBefore "辅助"
            For Each i In .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
            .Words(1).Delete
        ElseIf .Type = 5 Then
            For Each Acell In .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
    End With
    Application.ScreenUpdating = True
End Sub

xiwenshizu

哇,这么复杂啊...符号里不是有千分号的啊."‰"是这个东东吗?

[ 本帖最后由 xiwenshizu 于 2009-2-12 21:12 编辑 ]

zhoulon

真是牛人呀，收藏了。

千禾茉莉

2楼的真正“牛”，我只知道在工具栏里点击右键添加“符号栏”，在符号栏中就有千分符号。

冰风萧萧

同上

beyond008

这个代码还是很便捷的额

szqhb

安装一个搜狗拼音输入法，然后输入“qfh”（千分号）即可选择