chiudere word da excel

Question

Ciao a tutti! da excel vado a compilare un file word, tuttavia non riesco a chiudere l'istanza word ma non l'applicazione. Se ci sono aperti contemporaneamente altri word è tutto ok (chiude solo il word che compilo), altrimenti (nessun word aperto) chiude l'istanza ma lascia aperto word (applicativo vuoto con schermata grigia). Grazie per l'aiuto!

Dim ObjWord As Word.Application<br> Dim wmodulo As Word.Document<br> Dim filepath As String<br> <br> filepath = "Q:\Comune" & Sheets("QUOTAZIONE").Range("h4").value & ".doc"<br> Set ObjWord = CreateObject("Word.Application")<br> Set wmodulo = ObjWord.Documents.Open(filepath)<br> <br> wmodulo.bookmarks("rct").Select<br> ObjWord.Selection.TypeText Format(Range("e18"), "###,####,###.00")<br> <br> wmodulo.Close<br> ObjWord.Quit<br> <br> Set wmodulo = Nothing<br> Set ObjWord = Nothing

Answer 1

Ciao SalvatoreMarchese18,

il tuo codice dovrebbe effettivamente comportarsi come ti attendi. Se non lo fa probabilmente c'è qualcos'altro che interviene.

Qualche domanda.

Perché scrivi:

wmodulo.Close

invece di:

wmodulo.Close SaveChanges:=True

In quanto suppongo tu voglia salvare il documento Word dopo la modifica. Sì, lo so che viene salvato egualmente... Ma non si sa mai.

Il file doc contiene macro?

Answer 2

risolto! usavo Set oWord = GetObject(, "Word.Application") invece di Set oWord = CreateObject("Word.Application"). non ho capito perchè ma ora funziona. Il doc non contiene macro. il wmodulo.close savechanges:=true effettivamente è più sicuro grazie per il supporto