急！！！怎么要下面的代码实现循环


 Set ddrane = wd.Selection.Range
    With dd.Tables.Add(ddRange, 2, 2)
        If .Style <> "网格型" Then
            .Style = "网格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
        .Rows.WrapAroundText = True '设置表格环绕
        .Rows.HeightRule = wdRowHeightExactly
        .Rows.Height = CentimetersToPoints(1)
        .Columns.PreferredWidthType = wdPreferredWidthPoints
        .Columns(1).PreferredWidth = CentimetersToPoints(1)
        .Columns(2).PreferredWidth = CentimetersToPoints(2)
        .Cell(1, 1).Range.InsertAfter ("得分")
        .Cell(1, 2).Range.InsertAfter ("评卷人")
        .Rows.AllowBreakAcrossPages = False
    End With
    ddSel.MoveRight unit:=wdCharacter, Count:=11