如何用VBA把WORD中的指定表格数字进行格式化

yiyaozjk

如何用VBA把WORD中的指定表格数字进行格式化？例如：前2个表格有N行，除了表头外全部都格式化会计格式。。。

ming0018

复制到excel中，改完格式再复制回来。

yiyaozjk

表格内容里有很多数据的 ，，，通过这个方法我也想了解一下VBA如何控制WORD的表格

ming0018

1. Sub 数字转货币格式test()
   
2.     Dim doc As Document, myNum, myT As table, myC As Cell
   
3.     Set doc = ActiveDocument
   
4.     For Each myT In doc.Tables
   
5.         For Each myC In myT.Range.Cells
   
6.             myNum = Split(myC.Range.Text, Chr(13) & Chr(7))(0)
   
7.             If IsNumeric(myNum) Then
   
8.                 myC.Range.Text = Format$(myNum, "Currency")
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

ming0018

等着吧  代码还在审核

wdpfox

学习一下，谢谢分享！