软件:
Word
版本:
2010
想了解以下VBA在word应用的问题
一、我有一张栏列数不等的表格，
我想区分每个储存格内容是文字或数字，并给予不同的格式，
问题是，我想用isnumeric判断每个储存格的属性，
却发现每个储存格都被判断为false而无法成功变更格式
范例如下，不晓得是哪里写错了
Dim lastcolumn As Integer, lastrow As Integer
lastcolumn = ActiveDocument.Tables(1).Columns.Count
lastrow = ActiveDocument.Tables(1).Rows.Count
For i = 1 To lastcolumn
For j = 1 To lastrow
If IsNumeric(ActiveDocument.Tables(1).Cell(j, i).Range) Then
ActiveDocument.Tables(1).Cell(j, i).Range.Select
selection.font.size = 10
Else
selection.font.size = 12
End If
Next
Next
谢谢