[решено] Вставить строки в конце файла WORD

[AlexVong]

Как при помощи vbs вставить текст (несколько строк) в конце существующего текста в файле MS WORD?

[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