With wdDoc .Range.InsertBefore .BuiltInDocumentProperties("Title") & vbCr .Close SaveChanges:=True End With