| |
質問とは少し違うかも知れませんが、勉強のつもりで、
自分でも使いそうなものを書いてみました。
まずは、りんさんの方法で。
Sub test()
Dim t As Table
Dim i As Long, j As Long
Dim tmp As String
For Each t In ActiveDocument.Tables
For i = 2 To t.Rows.Count
For j = 2 To t.Columns.Count
With t.Cell(i, j).Range
tmp = Replace(.Text, Chr(13) & Chr(7), "")
If IsNumeric(tmp) Then
If Val(tmp) > 100 Then
.Font.Color = wdColorRed
End If
Else
.Shading.BackgroundPatternColor = wdColorGray20
End If
End With
Next
Next
Next
End Sub
他板↓の、んなっとさんの方法で
ht tp://www.moug.net/faq/viewtopic.php?t=65965
今の自分では、こんなの無理。
はやく、いろいろな方法で書けるようになりたいものです。
Sub test2()
Dim t As Table
Dim c As Cell
Dim tmp As String
For Each t In ActiveDocument.Tables
Set c = t.Cell(1, 1)
Do Until c Is Nothing
If c.RowIndex > 1 And c.ColumnIndex > 1 Then
With c.Range
tmp = Replace(.Text, Chr(13) & Chr(7), "")
If IsNumeric(tmp) Then
If Val(tmp) > 100 Then
.Font.Color = wdColorRed
End If
Else
.Shading.BackgroundPatternColor = wdColorGray20
End If
End With
End If
Set c = c.Next
Loop
Next
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
- 06/10/30(月) 10:39 -
