Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
        (ByVal uFlags As Long, ByVal pv As String)

Public Sub Main()
    Dim strPathName As String
    SHAddToRecentDocs 2, ActiveDocument.FullName
End Sub