Excel VBA invokes Word

[JonPeltier]

Why do you need "wrdApp.Application.PrintOut"? Isn't wrdApp the Word Application?

From the bottom of the Object Browser:
Sub SaveAs([FileName], [FileFormat], [LockComments], [Password], [AddToRecentFiles], [WritePassword], [ReadOnlyRecommended], [EmbedTrueTypeFonts], [SaveNativePictureFormat], [SaveFormsData], [SaveAsAOCELetter], [Encoding], [InsertLineBreaks], [AllowSubstitutions], [LineEnding], [AddBiDiMarks])

It's pretty much optional, so replace

ChangeFileOpenDirectory (docPath) 
ActiveDocument.SaveAs FileName:=docName, FileFormat:= wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ 
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
SaveAsAOCELetter:=False

with this

wrdApp.ActiveDocument.SaveAs FullName

where FullName is the path and file name where the document is to be saved.