[VBA] vraag word

Status
Niet open voor verdere reacties.
Ik heb een kalender form gebruikt. En deze laten wegschrijven naar een bladwijzer. Nou verloopt dit niet helemaal soepel. Soms verwijderd hij de bladwijzer en zet hij de datum er 2x in.

mijn code;

Code: 
Private Sub Calendar1_Click()

Selection.Text = Format(Calendar1.Value, "dd mmmm yyyy")

UpdateBookmarkStr "Date_Ont_Trans", Selection.Text
End Sub

Code: 
Private Sub UpdateBookmarkStr(BookmarkToUpdate As String, TextToUse As String)



Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks(BookmarkToUpdate).Range
BMRange.Text = TextToUse
ActiveDocument.Bookmarks.Add BookmarkToUpdate, BMRange



End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan