在WORD中，如何实现数字会计专用格式？

hongjian

在WORD中，如何实现数字会计专用格式？ 我想：在WORD中，当选中对象如：12345678时，(调用宏按钮)就会自动转换成会计专用格式：12,345,678 这个宏如何设计？多谢! 我录制这个宏，只对第一行有用，如何实现选定对象呢后再进行会计格式转换呢？？
Selection.MoveDown Unit:=wdLine, Count:=1
'Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.TypeText Text:=","
Selection.MoveLeft Unit:=wdCharacter, Count:=4
Selection.TypeText Text:=","
Selection.MoveLeft Unit:=wdCharacter, Count:=3
xxqhj
win95@163.net

hongjian

然后在出现的工具条中选 文字型窗体域 （有ab图标的那个），
这时出现一个域，鼠标单击它， 类型设数字
格式设 #，##0.00
退出时计算 选上
然后按 保护窗体（有锁 的那个） 做两个这样的东东，当输入数字就能看到效果了 以上的方法能否用VBA实现？=>通过VBA 选择定义的内容=>再按确定=>OK？ Selection.Find.Replacement.Text = Format(Val(Selection.Text), "#,##0.00")
Selection.Collapse Direction:=wdCollapseStart
Selection.Find.Execute Replace:=wdReplaceOne 上面的好似不行，哪位朋友帮一帮我？多谢!

hongjian

下面的方法不可行： 比方在工具栏中选 窗体，
然后在出现的工具条中选 文字型窗体域 （有ab图标的那个），
这时出现一个域，鼠标单击它， 类型设数字
格式设 #，##0.00
退出时计算 选上
然后按 保护窗体（有锁 的那个） 做两个这样的东东，当输入数字就能看到效果了 如果解锁后就不可见了，如果不解锁却不能编辑数字!难？？？？

hongjian

能否利用以下代码，修改一下？ Sub 人民币大写()
Dim seltxt As String
Dim zx As Double, xx As Double
Dim selcase As String

seltxt = Selection.Text
zx = Int(Val(seltxt))
If zx < 0 Then
zx = Abs(Int(Val(seltxt)))
selcase = "红书"
Else
selcase = ""
End If
xx = (Round(Val(seltxt), 2) - zx) * 100
Selection.MoveRight Unit:=wdCharacter, Count:=1
If zx <> 0 Then
gxs = "= " + Str(zx) + " \* CHINESENUM2"
Set ym = Selection.Fields.Add(Range:=Selection.Range, Text:=gxs)
selcase = selcase + ym.Result + "元"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.TypeBackspace
Selection.Delete
End If
gxs = "= " + Str(xx) + " \* CHINESENUM2"
Set ym = Selection.Fields.Add(Range:=Selection.Range, Text:=gxs)
xxcase = ym.Result
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.TypeBackspace
Selection.Delete Select Case xx
Case 0
selcase = selcase + "整"
Case 1 To 9
selcase = selcase + "零" + xxcase + "分"
Case 10 To 99
If (xx Mod 10) = 0 Then
selcase = selcase + Left(xxcase, 1) + "角整"
Else
selcase = selcase + Left(xxcase, 1) + "角" + Right(xxcase, 1) + "分"
End If
End Select
Selection.Text = selcase
End Sub 让它变成：把数字自动加上千分号？多谢!等!

办公之星

　 　　好，收藏了：）

bkshui

最后还是没有解决啊

办公之星

　 　　我的做法是先收藏，下线了再调试，通不过的删除。