Auto udfyld tomme felter i en tabel

Her er noget at eksperimentere med:

Sub checkTabel()
Dim række, celle As Cell
    With ActiveDocument.Tables(1)
    For række = 1 To .Rows.Count
        For Each celle In .Rows(række).Cells
            If Len(celle.Range.Text) = 2 Then
                celle.Range.Text = "-"
            End If
        Next celle
    Next række
    End With
End Sub