Es wurde ein Verweis auf die Microsoft Word n.0 Object Library gesetzt
Das angegebene Dokument exisitiert
Es hat die Anzahl von Absätzen (?), ggf. Wordx.paragraphs.Count prüfen
 
Funktioniert bei mir dieser Code:
 
'Das hier gibt groß "CyberLord" im
'sechsten Absatz aus.
'Getestet mit Microsoft Word 8.0 Object Library (Verweis)
'und Word '97
Private Sub CmdSchreiben_Click()
   Dim WordX As New Word.Application
   Dim D As Word.Document
   Dim R As Range
   Dim Dateiname As String
   Zeile1$ = "CyberLord"
   Dateiname = "C:Eigene DateienTest.Doc"
   WordX.Documents.Open FileName:=Dateiname
   Set R = WordX.ActiveDocument.Paragraphs(6).Range
   With R
     .Delete 'löscht die 6.Zeile
     .InsertParagraphAfter ' fügt eine Leerzeile ein
     .Font.Size = 42 ' Schriftgröße
     .Font.Bold = False 'Normal, nicht fett
     .InsertBefore Zeile1$ 'fügt den String in die 6.Zeile ein
   End With
   WordX.Visible = True
End Sub