[Iska]

Примерно так:

читать дальше »

Код:

Option Explicit

Dim strPath2Document
Dim strText


strPath2Document = "E:\Песочница\0163\Hello World.doc"
strText          = _
	"Мама мыла раму" & vbCrLf & _
	"Рабы не мы. Мы не рабы." & vbCrLf

If WScript.CreateObject("Scripting.FileSystemObject").FileExists(strPath2Document) Then
	With WScript.CreateObject("Word.Application")
		With .Documents.Open(strPath2Document)
			.Content.InsertAfter(strText)
			.Save
			.Close
		End With
		
		.Quit
	End With
Else
	WScript.Echo "Document [" & strPath2Document & "] not found"
	WScript.Quit 1
End If

WScript.Quit 0