At last the code works thanks for the help with the date formatting.
Sub Dairy2015()'' Dairy2015 Macro ChangeFileOpenDirectory "X:WORD Documents" Documents.Open FileName:="X:WORD DocumentsDiary 2015.docx", _ ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto, XMLTransform:="" DaysDate = Format(Now(), "Long Date")
Find: Selection.Find.ClearFormatting With Selection.Find .Text = DaysDate .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute End Sub