I’ve adjusted the code for my purpose, I have to retrieve the last row of an excel and fill the template word, then save with another name.
I’ve figured that word file is opened every two times, not always
first click –> open word
then I close word
click again on the macro button –> open word, open file, filling text, save file renamed, everything ok
then I close everything
next time the same…
first click –> …

this is my code, any tips & tricks??

Sub UpdateDoc()
‘Requires a reference to the Word object library
Dim oApp As Object ‘Word.Application
Dim oDoc As Object ‘Word.Document
Dim sDocName As String

On Error Resume Next
Set oApp = GetObject(, “Word.Application”) ‘See if word is already running
If Err.Number 0 Then ‘Word isn’t running so start it
Set oApp = CreateObject(“Word.Application”)
End If

On Error GoTo Error_Handler_Exit

sDocName = (ThisWorkbook.Path & “/modello_offerta.dotx”)
Set oDoc = oApp.Documents.Add(sDocName)
oApp.Visible = True

LastRow = ThisWorkbook.Sheets(“Offerte”).Cells.SpecialCells(xlCellTypeLastCell).Row

oDoc.FormFields(“Numero_Offerta”).Result = ThisWorkbook.Sheets(“Offerte”).Range(“A” & LastRow).Value ‘Textbox
oDoc.FormFields(“Name”).Result = ThisWorkbook.Sheets(“Offerte”).Range(“B” & LastRow).Value ‘Textbox
‘oDoc.FormFields(“CheckboxName”).CheckBox.Value = True ‘Checkbox

With oDoc

oDoc.SaveAs FileName:=(ThisWorkbook.Path & “/offerte/” & oDoc.FormFields(“Numero_Offerta”).Result & “_” & oDoc.FormFields(“Name”).Result & “.docx”)

End With

Error_Handler_Exit:
On Error Resume Next
‘oDoc.Close True
‘oApp.Quit
Set oDoc = Nothing
Set oApp = Nothing
Exit Sub

Error_Handler:
If Err.Number = 5174 Then
MsgBox “The specified file ‘” & sDocName & “‘ could not be found.”, _
vbCritical
Else
MsgBox “The following error has occured.” & vbCrLf & vbCrLf & _
“Error Number: ” & Err.Number & vbCrLf & _
“Error Source: UpdateDoc” & vbCrLf & _
“Error Description: ” & Err.Description, _
vbCritical, “An Error has Occured!”
End If
Resume Error_Handler_Exit
End Sub

My tests all worked fine with Access and Word 2010 so I suspect something else is going on.

Also, to get the count your synthax should be: oDoc.FormFields.count

Debug.Print ActiveDocument.FormFields.Count

Is there a way to use VBA to update and manipulate form fields in Word 2010 or has Microsoft abandoned us?

You have just save my life.

Best regards,

Esther