[Iska]

AlexVong, в приложенном документе я просил только пометить строки, которые нужно заменять, не более.

Вот примерная болванка кода:

Код:

Option Explicit

Dim strMyText


strMyText = _
	"Мой текст 1" & vbCrLf & _
	"Мой текст 2" & vbCrLf & _
	"Мой текст 3" & vbCrLf

With WScript.CreateObject("Word.Application")
	With .Documents.Open("E:\Песочница\0053\kopiya.doc")
		.Range(.Paragraphs.Item(.Paragraphs.Count - 4).Range.Start, _
			.Paragraphs.Item(.Paragraphs.Count - 2).Range.End).Text = strMyText
		
		.Save
		.Close
	End With
	
	.Quit
End With

WScript.Quit 0