Clase RecentFile (Word VBA)

La clase RecentFile representa un archivo utilizado recientemente.

Los principales procedimientos de la clase RecentFile son Delete, Open y RecentFiles.Add

Set

Para usar una variable de clase RecentFile, primero debe ser instanciado, por ejemplo

Dim rcnfl as RecentFile
Set rcnfl = RecentFiles(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase RecentFile : RecentFiles.Add, RecentFiles.Item y Application.RecentFiles

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos RecentFile en una colección.

Dim rcnfl As RecentFile
For Each rcnfl In RecentFiles
	
Next rcnfl

Métodos

Los principales métodos de la clase RecentFile son

Delete - Elimina el archivo especificado de la lista de archivos recientes.

RecentFiles(1).Delete

Open - Abre el objeto especificado.

Dim doc As Document
Set doc = RecentFiles(1).Open()

RecentFiles.Add - Devuelve un objeto RecentFile que representa un archivo agregado a la lista de archivos usados recientemente.

Dim rcnfl As RecentFile
Set rcnfl = RecentFiles.Add(Document:=)

Propiedades

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = RecentFiles(1).Index

Name Devuelve el nombre del objeto especificado.

Dim strName As String
strName = RecentFiles(1).Name

Parent Devuelve un objeto Object que representa el objeto primario del objeto RecentFile especificado.

Dim objParent As Object
Set objParent = RecentFiles(1).Parent

Path Devuelve el disco o la ruta de acceso Web al objeto especificado.

Dim strPath As String
strPath = RecentFiles(1).Path

ReadOnly True si los cambios realizados en el documento no pueden guardarse en el documento original.

RecentFiles(1).ReadOnly = True

RecentFiles.Count Devuelve un Long que representa el número de archivos recientes de la colección.

Dim lngCount As Long
lngCount = RecentFiles.Count

RecentFiles.Maximum Devuelve o establece el número máximo de archivos usados recientemente que pueden aparecer en el menú archivo.

RecentFiles.Maximum =

RecentFiles.Parent Devuelve un objeto Object que representa el objeto primario del objeto RecentFiles especificado.

Dim objParent As Object
Set objParent = RecentFiles.Parent