Excel VBA遍历单元格列并粘贴到单词中

Question

我到目前为止所做的是：-
1.使用VBA脚本打开模板Word文档。复制列（A1）中的值，并使用查找功能将其粘贴到Word文档中。
2.为此，我在Word文档中的两个不同位置使用了两列。
3.然后，我使用列（A1）中的值保存了文档。

我想做什么：-
1.目前，此操作仅适用于一个Word文档。
2.我希望运行一个循环，以便可以将每一行复制到一个Word文档中，然后将其保存并移至下一行，并以唯一的名称（即，从A列中）保存该模板Word文档
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")