如何在 VBA 中将 Word 模板文件另存为 a.docx？ 或者从一张 excel 表创建多个特定文档？

Question

I am trying to copy a bunch of text data from an excel spreadsheet into multiple separate word documents (one excel row = one document, but each column's heading has to be included before the text from the respective field of the row). I also want these documents' names to be the text from specific fields in the spreadsheet (row headers).

Because I want fancy formatting, and a specific order of copying/pasting things (not all fields are included), I am using a word template with bookmarks that I can feed into VBA. It fills the template well, but I cannot save it as a standard word document before repeating the loop. I get the error 'Object doesn't support this property or method'. Is there a way to overcome it, or a more elegant method I've missed?

Here is the code:

Sub Primitive()

Dim objWord As Object
Dim ws As Worksheet
Dim i As Integer


   
    Set ws = ThisWorkbook.Sheets("Sheet1")
    i = 2 ' First row to process
    'Start of loop
    Do Until ws.Range("B" & i) = ""
         Set objWord = CreateObject("Word.Application")
         objWord.Visible = True
     'Change to local path of template file
     

         objWord.Documents.Open "C:path of template file.dotx"
         With objWord.ActiveDocument


              .Bookmarks("FirstBookmark").Range.Text = ws.Range("B" & i).Value & " " & ws.Range("C" & i)
              .Bookmarks("headlineZ").Range.Text = ws.Range("Z1").Value

lots of this^ here to arrange the data right in the document

           
              NewFileName = "C:\path of where I want the new file" & ws.Range("C" & i).Value & ".docx"

This is the line that gives the error 483:

    objWord.SaveAs2 Filename:="NewFileName"
    End With
    

    objWord.Close

 Set objWord = Nothing
        

              
        i = i + 1
        Loop
   


End Sub

Answer 1

You are trying to save Word, rather than the document. If you replace this

objWord.SaveAs2 Filename:="NewFileName"

with this

objWord.ActiveDocument.SaveAs2 Filename:="NewFileName"

it should work better. That said, you should not use ActiveDocument in your macros. Consider replacing

objWord.Documents.Open "C:path of template file.dotx"

with something like

Set TargetDocument = objWord.Documents.Open("C:path of template file.dotx")

and replace all ActiveDocument with TargetDocument .

Answer 2

Thanks everyone for the corrections - I'm completely new to VB so some issues were bound to happen. Eventually I managed to get this working via a mail merge, then splitting the merge into individual documents using an add-in ( http://www.gmayor.com/individual_merge_letters.htm ).

I will have a look at the code corrections when I have time and see if I can get this working via VB as well.