vba - Word (2010) 日付を更新し、マクロを使用して書式を維持する

Question

ブックマークの場所にコードの形式で日付を挿入する次の VBA コードがあります。古いブックマークテキストを削除せずにファイルを開くたびに日付を挿入していたので、コードの上部に削除テキストを追加しましたが、フォーマットを削除してテキストを挿入しますフォーマットを維持する方法はありますか?

    Sub AutoOpen()
'
' AutoOpen Macro
'
'
 ActiveDocument.Bookmarks("MyDate").Range.Delete
 ActiveDocument.Bookmarks("MyDate1").Range.Delete
 ActiveDocument.Bookmarks("MyDate2").Range.Delete
 ActiveDocument.Bookmarks("MyDate3").Range.Delete
 ActiveDocument.Bookmarks("MyDate4").Range.Delete
 ActiveDocument.Bookmarks("MyDate5").Range.Delete
 ActiveDocument.Bookmarks("MyDate6").Range.Delete

      With ActiveDocument.Bookmarks("MyDate").Range
         .InsertBefore Format(Date + 1, "dddd dd mmmm yyyy")
      End With

    With ActiveDocument.Bookmarks("MyDate1").Range
        .InsertBefore Format(Date + 2, "dddd dd mmmm yyyy")
    End With

    With ActiveDocument.Bookmarks("MyDate2").Range
        .InsertBefore Format(Date + 3, "dddd dd mmmm yyyy")
    End With

    With ActiveDocument.Bookmarks("MyDate3").Range
        .InsertBefore Format(Date + 4, "dddd dd mmmm yyyy")
    End With

    With ActiveDocument.Bookmarks("MyDate4").Range
       .InsertBefore Format(Date + 5, "dddd dd mmmm yyyy")
     End With

    With ActiveDocument.Bookmarks("MyDate5").Range
       .InsertBefore Format(Date + 6, "dddd dd mmmm yyyy")
    End With

    With ActiveDocument.Bookmarks("MyDate6").Range
        .InsertBefore Format(Date + 7, "dddd dd mmmm yyyy")
    End With
End Sub