VBA spg

Det kan der, for det er indbygget i word

Indsæt > dato og klokkeslet vælg januar 09, og sæt flueben ud for Opdater automatisk.

Så vil den indsatte dato altid reflektere aktuelle måned og år.

det havde jeg tænkt på, men den skal tage nåneden før den akutelle dato. Jeg har pt løst det selv.
Tak for svaret ellers :-)

Lukker denne da problemet er køst via en "dårlig" programmeret macro ;-)
mvh LArs
Til andre som måske kan få brug for det er den her:

Sub dato2()
Dim dato_old As String
dato_old = Format(Date, "mm") - 1
  If dato_old = 0 Then
  dato_old = 12
  End If
  Dim rngStory As Range
  For Each rngStory In ActiveDocument.StoryRanges
    With rngStory.Find
      .Text = "*" & dato_old & "-2008"
      .Replacement.Text = "*" & Format(Date, "mm") & "-2009"
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
    End With
  Next rngStory
End Sub