Thread: [Solved] Form updating Bookmarks - writes to the bookmarks multiple times
View Single Post
 
Old 01-14-2015, 02:18 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,962
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
So which file are you having trouble with? I opened your MP2015.dotm & Normal.dotm files and can see nothing special about them - your Normal.dotm doesn't even contain any code. Indeed I can't even see how those files might be related to what's in this thread. I also opened your Brev.docm file and can see that, apart from your Document_New macro needing the same kind of changes made for the userform, it seems to work OK. Presumably, it too should be saved as a template; otherwise your Document_New macro will never run.
Code:
Private Sub Document_New()
    Call UpdateBookmark("DagsDato", Format(Date, " dd. mmmm yyyy"))
    UserForm1.Show
End Sub
 
Sub UpdateBookmark(StrBkMk As String, StrTxt As String)
Dim BkMkRng As Range
With ActiveDocument
  If .Bookmarks.Exists(StrBkMk) Then
    Set BkMkRng = .Bookmarks(StrBkMk).Range
    BkMkRng.Text = StrTxt
    .Bookmarks.Add StrBkMk, BkMkRng
  End If
End With
Set BkMkRng = Nothing
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote