軟體:
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
謝謝