excel - Excel VBA循环遍历单元格列并粘贴到word

Question

到目前为止我所做的：-
1. VBA 脚本打开模板 word 文档。从 column(A1) 复制值并使用 find 函数将其粘贴到 word 文档中。
2. 我在一个word文档中的两个不同位置的两列中做到了这一点。
3. 然后，我使用列（A1）中的值保存了文档。

我希望做什么：-
1. 现在，这仅适用于一个 word 文档。
2.我希望运行一个循环，这样我可以将每一行复制到一个word文档中，保存并移动到下一行，并使用唯一的名称保存模板word文档（即，来自A列）
3.基于下面的代码，我猜我需要两个循环，我只是想不通，希望得到一些帮助。

到目前为止我编写的代码：- 1. 其中一些返回函数调用并且认为它没有用，因此我没有粘贴它。

Set appWd = CreateObject("Word.Application")
appWd.Visible = True
Set docWD = appWd.Documents.Open("C:\Users\Draft.docx")

'Select Sheet where copying from in excel
Set sheet1 = Sheets("Sheet1")
Set wdFind = appWd.Selection.Find
ClipT = "  "
ClipEmpty.SetText ClipT

sheet1.Range("A1").Copy
wdFind.Text = "DateHere"
Call FormatPaste

sheet1.Range("B1").Copy
wdFind.Text = "EntryHere"
Call FormatPaste

saveCell1 = sheet1.Range("B1").Text
dir2 = "C:\Users\" & saveCell1
docWD.SaveAs (dir2 & ".docx")

标签： excelvbams-word