Есть ли способ массового создания документов Word

Question

Я пытаюсь массово создать отдельные документы Word из списка в Excel.

Пример списка:

  **Excel Column A**(Document Titles)
  **Row 1:** MAIN 08-30-18 - ECOM
  **Row 2:** SF 08-31-18 - DRM
  **Row 3:** MAIN 09-01-18 - SPONSORED 

Я пытаюсь пропустить шаг ручного создания и сохранения сотен новых файлов по отдельности.

У кого-нибудь есть креативное решение?

Answer 1

Предполагая, что ваши имена файлов начинаются с ячейки A1, A2, A3 ..... и приведенный ниже код создаст файлы слов с образцом текста

Sub TEST1()
    Dim lastrow As Variant
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim i, j As Integer
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To lastrow
        Set wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
        Set wrdDoc = wrdApp.Documents.Add
        With wrdDoc
            For i = 1 To 5
                .Content.InsertAfter "Sample Test Line #" & i
                .Content.InsertParagraphAfter
            Next i
            'change the below location
            If Dir("C:\work\MyNewWordDoc" & j & ".doc") <> "" Then ' Check if file exists already
                Kill "C:\work\MyNewWordDoc.doc"
            End If
            .SaveAs ("C:\work\MyNewWordDoc" & j & ".doc")
            .Close ' close the document
        End With
        wrdApp.Quit ' close the Word application
        Set wrdDoc = Nothing
        Set wrdApp = Nothing
    Next j
End Sub