日付ブックマークに日付に置換

Sub 日付ブックマークに日付に置換()

    Dim objRange As Word.Range
    
    Set objRange = Me.Bookmarks("日付ブックマーク").Range
    
    objRange = Date
    
End Sub

　　Word文章のブックマーク機能で”日付ブックマーク”を設定した文があった場合、”日付ブックマーク”を日付で置換する。