求教，如何加入循环到表格为空时停止循环？

丨一叶知秋

   For i = 1 To 20

      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
        '填写文字数据
           Str1 = "数据" & Format(i + 1, "000")
           str2 = Sheets("全年日报表").Cells(j, i)
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
           If .Selection.Find.Execute(Str1) Then '查找到指定字符串
              .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
              .Selection.Text = str2   '替换字符串
           End If

      End With
    Next i

    With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
        '填写文字数据
           Str1 = "数据" & Format(j - 2, "000")
           str2 = Format(Date, "yyyy年m月d日")
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
           If .Selection.Find.Execute(Str1) Then '查找到指定字符串
              .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
              .Selection.Text = str2 '替换字符串
           End If

      End With

      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing

   If 判断 = 0 Then
      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If


    Else
    End If