Periódicamente, reviso los archivos de mis directorios de Word para determinar si alguno de los documentos antiguos se puede eliminar de forma segura. Muchas veces, necesito abrir el archivo para examinarlo antes de poder decidir si debe eliminarse.

Por supuesto, Word le permitirá eliminar un archivo listado en los cuadros de diálogo Abrir o Guardar, pero no eliminará el documento activo, el que está abierto en ese momento. En lugar de cerrar el documento activo y luego eliminarlo abriendo los cuadros de diálogo Abrir o Guardar, utilizo la siguiente macro para eliminar un archivo que está abierto.

Sub DeleteThisFile()

Dim MyFile As String

MyFile = ActiveDocument.Path & "\" & ActiveDocument.Name     If MsgBox(MyFile & " will be deleted permanently", _       vbYesNo, "Delete this File?") = vbYes Then         ActiveDocument.Close (wdDoNotSaveChanges)

Kill MyFile     End If End Sub

La macro le solicita que se asegure de que desea eliminar el archivo y (si lo hace) cierra el documento sin guardar y luego lo elimina.

Debe tener en cuenta que el archivo no va a la Papelera de reciclaje, sino que se elimina inmediatamente.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1346) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Deleting_the_Open_Document_File [Eliminando el archivo de documento abierto].