[Iska]

Например, так:

Код:

Option Explicit

Dim objDocument


With WScript.CreateObject("Word.Application")
    .Visible = True
    
    Set objDocument = .Documents.Open("C:\MyDoc.doc")
    
    With objDocument
        .Range(.Paragraphs(.Paragraphs.Count - 1).Range.Start, .Paragraphs(.Paragraphs.Count).Range.End).Text = "Some Text"
    End With
    
    '...
    
    Set objDocument = Nothing
End With

WScript.Quit 0