VBA

Macro to save to shared file with original document name?

I have recorded a macro to save my files to a shared folder on my computer. Only issue being that when I use this on a new document it saves with the same file name and overwrites the document already saved. I want it to save the file with the original file name rather than the one used when recording the macro.

ChangeFileOpenDirectory "O:\Team NF CV's\"
ActiveDocument.SaveAs2 FileName:="O:\Team NF CV's\Jaumns.docx", FileFormat _
:=wdFormatXMLDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _

Macro to save a file with last Friday's date (yyyymmdd)

I'm new to VBA and am trying to save an .xls file I received today with last Friday's date in the file name (i.e. TGO_20090807). I receive many files all week and would like to use a macro to save them all as they arrive in this save folder. Once I receive all of the weekly files I want to create a macro that will zip all the text files and save them to a new zip file using the same file name (i.e. TGO_20090807.zip). I'll need to do this every week so I need the macro to be able to change the dates each week to last Friday's date.