Access - pasar a word

Dim objWord As Object

Dim objDoc As Object

Set objWord = CreateObject("Word.Application")

objWord.Visible = True 'Opcional, si quieres que se muestre el documento en Word

Set objDoc = objWord.Documents.Add()

' Aquí iría el código para crear el contenido del documento

' Guardamos el documento con contraseña

objDoc.SaveAs "C:\Ruta\del\Archivo.docx", Password:="TuContraseña"

' Cerramos el documento y Word

objDoc.Close

objWord.Quit