Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Document_Open()
Application.OnTime DateAdd("s", 5, Now), "aanhef"
End Sub
Sub aanhef()
With ActiveDocument
.Variables("naam") = StrConv(Trim(Split(Bookmarks("naam").Range, ".")(UBound(Split(Bookmarks("naam").Range, ".")))), 3)
.Fields.Update
End With
End Sub
Private Sub Document_New()
Application.OnTime DateAdd("s", 5, Now), "aanhef"
End Sub
Sub aanhef()
With ActiveDocument
.Variables("naam") = StrConv(Trim(Split(Bookmarks("naam").Range, ".")(UBound(Split(Bookmarks("naam").Range, ".")))), 3)
.Fields.Update
End With
End Sub
Private Sub Document_New()
stop
Application.OnTime DateAdd("s", 5, Now), "M_aanhef"
End Sub
Sub M_aanhef()
With ActiveDocument
.Variables("naam") = StrConv(Trim(Split(Bookmarks("naam").Range, ".")(UBound(Split(Bookmarks("naam").Range, ".")))), 3)
.Fields.Update
End With
End Sub
Private Sub Document_New()
Application.OnTime DateAdd("s", 5, Now), "M_aanhef"
End Sub
Sub M_aanhef()
Stop
With ActiveDocument
.Variables("naam") = StrConv(Trim(Split(Bookmarks("naam").Range, ".")(UBound(Split(Bookmarks("naam").Range, ".")))), 3)
.Fields.Update
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.