[VBA/WORD] Cambio estensione da .doc a .txt

[ipstatico]

salve,
ho eseguito varie prove di apertura e chiusura file. ho scritto la pagina in questo modo:

Sub esempio()
Dim wordapp As Object
Dim worddoc As Object

Set wordapp = CreateObject("word.application")
Set worddoc = wordapp.Documents.Open("c:\prova.doc", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto)

ActiveDocument.SaveAs FileName:="c:\prova.txt", FileFormat:=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=wdCRLF

worddoc.Close (wdDoNotSaveChanges)
wordapp.Quit

End Sub

ma quando si avvia la macro mi dice prova.doc bloccata e mi compare la finestra di scelta(solo lettura, ecc...). perchè?inoltre se scrivo la seconda istruzione come:

worddoc.Documents.SaveAs("c:\prova.txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF

non funziona. sicuramente ho sbagliato la sintassi ma non capisco dove. grazie.
ciao ciao

[oregon]

Devi scrivere

worddoc.SaveAs FileName:="c:\libri.txt", FileFormat:=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=wdCRLF

e non usare la forma con

ActiveDocument.SaveAs ...

Quest'ultima lascera' appesa una istanza di Word che ti creera' i problemi di cui parli.
Controlla con Task Manager che, dopo la fine del programma, non ci sia WinWord.exe attivo.

[ipstatico]

in effetti winword.exe restava aperto ma facendo come hai detto tu non mi funziona e non capisco perchè. restituisce tale errore:
errore di runtime 4198
errore definito dall'applicazione o dall'oggetto
puoi darmi una mano? grazie ciao ciao

[oregon]

A me non da' nessun errore ...

Quale riferimento hai aggiunto (quale versione di Word)?

In quale linea ti da' quell'errore?

Sei sicuro che venga generato da quel codice o da altri controlli/oggetti?

[ipstatico]

non capisco, facendo un debug mi da errore su questa riga:

Set worddoc = wordapp.Documents.Open("c:\prova.doc", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto)

...

[oregon]

Quale e' la versione di Word?

[ipstatico]

2002

[oregon]

Hai fatto tutti gli aggiornamenti di Word ?

Quell'errore era segnalato ...

[ipstatico]

non ho fatto gli aggiornamenti. ora ci provo. infatti ho notato che funziona a fasi alterne. appena l'ho fatto ti farò sapere. grazie per il momento. ciao ciao

[alka]

Il linguaggio va indicato nel titolo, come da Regolamento.

Qui l'ho aggiunto io.