Pues todo depende de cómo hayas abierto el documento. Si utilizas una componente TWordDocument será tan sencillo como:
Código Delphi
[-]
var
OleFileName: OleVariant;
begin
OleFileName := 'archivo.doc';
WordDocument1.SaveAs(OleFileName);
end;
// Saludos