This is my code from Access:

Dim myfilename As String
myfilename = ReportDir & LabNumber & "_" & ItemNumber & "_" & CATEGORY & ".doc"
Dim mypassword As String
mypassword = DecryptPIN(DLookup("PIN_NUMBER", "ANALYST", "FULL_NAME='" & ana_txt & "'"))
'save to temp directory
wordapp.ActiveDocument.SaveAs filename:=myfilename, WritePassword:=mypassword
wordapp.ActiveDocument.Close