Application.RecentFiles (Word)

Returns a RecentFiles collection that represents the most recently accessed files.

For information about returning a single member of a collection, see Returning an object from a collection.

If RecentFiles.Count >= 1 Then RecentFiles(1).Open