Ugenummer i Word skabelon

Her er en VBA-funktion, der ud fra en dato kan give ugenummeret:

Function UDFWeekNumISO(InputDate As Date)
    UDFWeekNumISO = DatePart("ww", InputDate, vbMonday, vbFirstFourDays)
End Function

Her er en anden VBA-funktion, der kan gøre det:
http://www.beisland.net/usefulpages/scripts.html

Jeg har aldrig selv arbejdet med VBA sammen med word, men jeg ved det kan lade sig gøre.