Classe RecentFile (Word VBA)

La classe RecentFile représente un fichier récemment utilisé.

Les procédures principales de la classe RecentFile sont Delete, Open et RecentFiles.Add

Set

Pour utiliser une variable de classe RecentFile, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe RecentFile : RecentFiles.Add, RecentFiles.Item et Application.RecentFiles

For Each

Voici un exemple de traitement des éléments RecentFile dans une collection

Dim rcnfl As RecentFile
For Each rcnfl In RecentFiles
	
Next rcnfl

Méthodes

Les méthodes principales de la classe RecentFile sont

Delete - Supprime le fichier spécifié sur la liste des fichiers récents.

RecentFiles(1).Delete

Open - Ouvre l'objet spécifié.

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

RecentFiles.Add - Renvoie un objet RecentFile qui représente un fichier ajouté à la liste des derniers fichiers utilisés.

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

Propriétés

Index Renvoie un type long qui représente la position d’un élément dans une collection.

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

Name Renvoie le nom de l'objet spécifié.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet RecentFile spécifié.

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

Path Renvoie le disque ou le chemin d'accès au Web à l'objet spécifié.

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

ReadOnly True si les modifications apportées au document ne peuvent pas être enregistrées dans le document d'origine.

RecentFiles(1).ReadOnly = True

RecentFiles.Count Renvoie un type long qui représente le nombre de fichiers récents dans la collection.

Dim lngCount As Long
lngCount = RecentFiles.Count

RecentFiles.Maximum Cette propriété renvoie ou définit le nombre maximal de fichiers récemment utilisés pouvant figurer dans le menu fichier.

RecentFiles.Maximum =

RecentFiles.Parent Renvoie un Object qui représente l'objet parent de l'objet RecentFiles spécifié.

Dim objParent As Object
Set objParent = RecentFiles.Parent