Dim WordApp As Word.Application Set WordApp = New Word.Application WordApp.Quit Set WordApp = Nothing
y como lo cierro para poder guardarlo
Supeniendo que queres cerrar el Word y guardar todos los documentos seria algo asi Dim MSWord As Word.Application Set MSWord = New Word.Application Dim MiDoc As Word.Document For Each MiDoc In MSWord.Documents MiDoc.Save Next MSWord.Quit Set MSWord = Nothing Si podes darme mas datos sobre lo que queres hacer quizas te pueda dar una respuesta mas precisa... te doy otro ejemplo (te comento las lineas mas importantes) Dim MSWord As Word.Application Set MSWord = New Word.Application ' Creo un nuevo Word MSWord.Visible = True ' Hago la instancia de Word visible Dim MiDoc As Word.Document Set MiDoc = MSWord.Documents.Add() ' Creo un nuevo documento MiDoc.Content.Text = "hola mundo" ' Le escribo hola mundo al documento MiDoc. SaveAs "c:\test.doc" ' Salvo el doc en c:\test.doc MiDoc. Close ' Cierro el doc MSWord. Quit ' Salgo de Word Set MSWord = Nothing
Añade tu respuesta
Haz clic para
o
Añade tu respuesta sólo si conoces la solución a la pregunta.
No lo utilices para hacer una nueva pregunta.
Para pedir más datos de la pregunta utiliza "Pedir más información".
Para aportar más información a una respuesta, añade un comentario.
