使用Excel表

Question

现在这就是我对这个项目所拥有的：

Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open (fileDirectory & "\" & "SingleTable.docx")
wordApp.Visible = True

Set wordDoc = wordApp.ActiveDocument

wordApp.Selection.Find.ClearFormatting
wordApp.Selection.Find.Replacement.ClearFormatting

For Each Cell In Worksheets("OldRates").Range("A1:I41")
    With wordApp.Selection.Find
        .Forward = True
        .Text = Cell.Text
        .Replacement.Text = "0000"
        .Execute Replace:=wdReplaceOne 'Replace:=wdReplaceAll
    End With
Next Cell

它应该做的是从Excel中的表中获取信息并将其放入Word中已存在的表中。我使用vba而不是复制/粘贴的原因是因为我想维护表格的格式。发生的事情是，在工作中，我在excel文件中接收信息以更新Word表。在工作中，解决方案是复制和粘贴，它会破坏表格的对齐，然后手动重新排列格式画家或缩进等。

我的问题是此代码仅获取Excel工作表中指定的范围中的第一个值并替换它，但不会继续使用其余值。为了解决这个问题，我需要添加/更改什么？