[vbscript] cambiare titolo ad un documento Word

[Habanero]

sto cercando di realizzare uno script in VBscript per accedere alle proprietà di documenti word per modificarne il titolo.
Manualmente la cosa si puo' ottenere facendo doppio click sull'icona del documento selezionando proprietà e poi Riepilogo.
Da word allo stesso modo da File->Proprietà

Lo script che ho realizzato è questo:

Dim Word, Doc
Const wdPropertyTitle=1

Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Open("c:\documents and settings\user\desktop\documento.doc")

titolo=InputBox("Inserisci il titolo del file")

Doc.BuiltInDocumentProperties(wdPropertyTitle).Value=titolo

Doc.Save
Doc.Close 
Word.Quit

il problema è che le modifiche non vengono salvate!

Le modifiche vengono salvate solo se il salvataggio avviene su un nuovo file:

Dim Word, Doc
Const wdPropertyTitle=1


Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Open("c:\documents and settings\user\desktop\documento.doc")

titolo=InputBox("Inserisci il titolo del file")

Doc.BuiltInDocumentProperties(wdPropertyTitle).Value=titolo

Doc.SaveAs("c:\documents and settings\user\desktop\documento2.doc")
Doc.Close 
Word.Quit

Ne conoscete il motivo?
Siccome devo fare questa cosa in modo automatico su centinaia di file sarebbe più comodo non dover ricreare una copia modificata ma modificare l'originale.

Soluzioni?

[MauroD]

Prova con

Doc.Close(wdSaveChanges)

[Habanero]

niente...
Sembra che non venga rilevato che il documento è stato modificato.
Se oltre a modificare il titolo modifico anche il contenuto del testo allora il salvataggio avviene correttamente... mah misteri MS.

Mi rassegnerò.