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