使用Excel表

时间:2016-10-27 15:28:28

标签: vba excel-vba ms-word excel

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

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工作表中指定的范围中的第一个值并替换它,但不会继续使用其余值。为了解决这个问题,我需要添加/更改什么?

0 个答案:

没有答案