title: How to Jump to a Bookmark in Word-VBA and insert text?
body: <p>I am trying to create a Word document with a very simple word macro. The macro searches for a bookmark that I have placed in the text and then adds a date, 2 weeks into the future, at that location.</p>
  
  <p>But when I create a new document from the template I keep getting bookmark not found. I have been through it loads of times and sometimes the bookmark is there, sometimes its there but not allowing you to click "Go to".</p>
  
  <p>How can I get it to work? I have added a little piece of code to the <code>Document_New()</code> event but that keeps reporting <em>Bookmark not found</em>.</p>
  
  <p>I have the document in a rar-file since my webserver can't handle .dotm extensions.
  <a href="http://pafo.net/Garageplats.rar" rel="noreferrer">Document</a></p>
  
  <p>How can I make it so that when a new document is produced from this template, the new document has the date, 2 weeks ahead, placed between the 2 bold sections?</p>
  
  <pre><code>Sub Two_Weeks_Ahead()
  ''# Two_Weeks_Ahead Makro
      Selection.GoTo What:=wdGoToBookmark, Name:="TwoWeeks"
      With ActiveDocument.Bookmarks
          .DefaultSorting = wdSortByName
          .ShowHidden = False
      End With
  
      Dim dt As Date
      dt = DateAdd("d", 14, DateTime.Now)
  
      Selection.TypeText Text:=Format(dt, "yyyy-MM-dd")
  End Sub
  
  Private Sub Document_New()
      Selection.GoTo What:=wdGoToBookmark, Name:="TwoWeeks"
      With ActiveDocument.Bookmarks
          .DefaultSorting = wdSortByName
          .ShowHidden = False
      End With
  
      Dim dt As Date
      dt = DateAdd("d", 14, DateTime.Now)
  
      Selection.TypeText Text:=Format(dt, "yyyy-MM-dd")
  End Sub
  </code></pre>