导出表格数据到Word中发生的问题!!!!!!!????????????????

导出表格数据到Word中发生的问题：我是用如下代码把数据导入到Word中的：Sub OutPutLineTabData()    Dim i
    Dim j
    
    '显示信息
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
    Selection.TypeText Text:="计算的表格结果如下："
    Selection.TypeParagraph
    Selection.TypeParagraph
    
    '在Word中创建一个表格
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    ActiveDocument.Tables.Add Range:= _
                 Selection.Range, _
                 NumRows:=100 + 1 + 1, _
                 NumColumns:=3 + 1, _
                 DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed    '填写表格
    For i = 0 To 100 + 1 '外面对行进行循环
       For j = 0 To 3 '里面对列进行循环
          Selection.TypeText Text:=555
          Selection.MoveRight Unit:=wdCharacter, Count:=1
       Next
       Selection.MoveDown Unit:=wdLine, Count:=1
       Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Next    '填写文本
    Selection.TypeText Text:="数据输入完毕"
    Selection.TypeParagraph
    Selection.TypeParagraphEnd Sub我的期望是在Word中先生成一个表格，有4列，102行。然后把内容全部填充为555。可是发现第二页的（第一页完好）第一个单元格没有填写，
同样的问题页发生在第三页。好像只要有开始另一页的地方都会有问题。请教一下大家这应该怎样解决呀？
    望得到大家的帮助，谢谢！