ファイル履歴（最近使ったアイテム）をリフレッシュする

「最近使ったアイテム」の一覧から、無効な項目を削除するマクロです。一覧には、移動や削除などによって現在は存在しないファイルもリストアップされています。

編集ログを残すより、クリックして実際に開けるものだけを表示させたい場合に使います。

マクロコード

ExcelとWordで仕組みは同じなのですが、プロパティなどが一部異なるので、それぞれ用のコードを掲載します。

Excel用ファイル履歴のリフレッシュ

Sub ブック履歴をリフレッシュ()

    Dim oRF As RecentFile
    Dim sPath As String
    
    For Each oRF In Application.RecentFiles
        sPath = oRF.Path
        If Left(sPath, 5) <> "https:" Then
            If Dir(oRF.Path, vbNormal) = "" Then
                oRF.Delete
            End If
        End If
    Next oRF
End Sub

Word用ファイル履歴のリフレッシュ

Sub 文書履歴をリフレッシュ()
    Dim oRF As RecentFile
    Dim sPath As String
    
    For Each oRF In Application.RecentFiles
        If InStr(oRF.Path, "https:\") = 0 Then
            sPath = oRF.Path & "\" & oRF.Name
            If Dir(sPath, vbNormal) = "" Then
                oRF.Delete
            End If
        End If
    Next oRF
End Sub