Что я сделал до сих пор: -
1. VBA-скрипт для открытия документа шаблона слова.скопируйте значение из столбца (A1) и вставьте его в текстовый документ с помощью функции поиска.
2. Я сделал это с двумя столбцами для двух разных мест в текстовом документе.
3. Затем яЯ сохранил документ, используя значение из столбца (A1).
Что я хочу сделать: -
1. Сейчас это выполняется только для одного документа слова.
2. Я хочу запустить цикл так, чтобы я мог скопировать каждую строку в текстовый документ, сохранить его и перейти к следующей строке и сохранить шаблонный документ слова с уникальным именем (т. Е. Из столбца 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")