word表格自动取得excel数据和使word表格里的数字自动添加千分位分隔符

word表格自动取得excel数据和使word表格里的数字自动添加千分位分隔符
1、想问问看word表格能不能自动从excel相对应的表格中批量取的数据（既有文字也有数字）
2、使的word表格里面的数字自动居右中靠右对齐，并字体为Arial Narrow  小五号字体，并且自动添加千分位分隔符。

你没有例子，我只好试试说了：
1、数据一一对应可以看看我前几天编的一个宏：http://club.excelhome.net/viewth ... p;page=1#pid4646707
2、在word中规范你要的格式，可：
Sub Macro1()
dim,i,ii,s
For i = 1 To ActiveDocument.Tables.Count
For ii = 1 To ActiveDocument.Tables(i).Range.Cells.Count
s = ActiveDocument.Tables(i).Range.Cells(ii).Range.Text
If Len(s) > 2 And IsNumeric(Left(s, Len(s) - 2)) And Left(s, 1) <> "￥" Then
With ActiveDocument.Tables(i).Range.Cells(ii).Range
.Text = Format(Val(s), "Currency")
.Font.Size = 9
.Font.Name = ArialNarrow
.ParagraphFormat.Alignment = wdAlignParagraphRight
End With
End If
Next
Next
End Sub