Forums Últimos mensajes - Powered by IBM
 

macro cerrar documento

16/04/2007 - 17:18 por macro cerrar documento | Informe spam
hola amigos, a ver si me podeis ayudar.

Necesito terminar una macro de word para que me cierre 2 documentos que
tengo abiertos. Seguro que son las instrucciones mas tontas, pero no lo
consigo, se me cierra un documento y el otro se me queda abierto.

Este es el codigo que he puesto en la macro:

-Primero hago un combinar correspondencia desde un archivo de word, que se
queda abierto.
-Luego imprimo el documento donde se ha combinado los datos del otro archivo
con el combinar.
-Intento cerrar los documentos (2 documentos) y solo se me cierra uno. ¡y
quiero cerrar los dos!


Sub macro

ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"c:\datos.doc", ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False,
PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="",
WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:="",
SQLStatement _
:="", SQLStatement1:="", SubType:=wdMergeSubTypeOther
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

ActivePrinter = "\\hp 1100"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Windows("datos.doc").Activate <<<<este me lo cierra bien
ActiveDocument.Close

ActiveDocument.Close savechanges:=wdDoNotSaveChanges <<<<este no
funciona
End Sub
 

Preguntas similares