ActiveDocument.Save saves the current document (under it's original filename including the original folder). To see how to save it to another folder, record the Save As.
But if you want it to keep it's current name, you will have to to some string processing in your macro to find out the current filename (might be something like ActiveDocument.name, have a look in the help) and concatenate it to the path pointing to the folder as the name to be used in the Save As.
Hope this helps.
Kees
I need to save my word documents to a folder on our network. Currently we have a macro called HMSSave.
Im not sure what code I need to save this info to a folder (ORYX) on our network.
Macro
Public Sub HMSSave(Optional informUser As Boolean = True)
shouldBeMoved = True
'Make sure to update all built in document properties.
ActiveDocument.ComputeStatistics wdStatisticCharacters
ActiveDocument.ComputeStatistics wdStatisticCharactersWithSpaces
ActiveDocument.ComputeStatistics wdStatisticLines
ActiveDocument.ComputeStatistics wdStatisticPages
ActiveDocument.ComputeStatistics wdStatisticWords
ActiveDocument.save
If informUser = True Then
If getType() = TYPE_DOCUMENT Then
VBA.MsgBox "Transcription document saved.", vbOKOnly + vbInformation, "HMS Transcription"
Else
VBA.MsgBox "Transcription template saved.", vbOKOnly + vbInformation, "HMS Transcription"
End If
End If
End Sub

Chowhound
Comic Vine
GameFAQs
GameSpot
Giant Bomb
TechRepublic