[[EID]-Mr.GiZMO]

Nativ für Word würde das so aussehen:

Sub Dates()
Dim TabellenNummer As Integer
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer
Dim Counter As Integer

' hier definieren
TabellenNummer = 1
Startzeile = 1
Startspalte = 1
AnzahlTage = 27
Counter = 0

For i = 0 To AnzahlTage
    heute = Date + i
    If DatePart("w", heute) <> vbSaturday And DatePart("w", heute) <> vbSunday Then
        ActiveDocument.Tables(TabellenNummer).Cell(Startzeile + Counter, Startspalte).Range.Text = heute
        If i <> AnzahlTage Then
            ActiveDocument.Tables(TabellenNummer).Rows.Add
        End If
        Counter = Counter + 1
    End If
Next i

End Sub

Beachten: Word braucht immer eine Tabellennummer, um eine Tabelle zu lokalisieren, daher musst du im define-Bereich die Nummer der Tabell angeben.
Einfach vom Dokumentenanfang abzählen.

Grüße.


PS: Das kostet mind. 10 Danke und 5 positive Bewertungen