[Iska]

AlexVong, можно.

1. Что Вы понимаете под «строкой»? В WinWord есть понятие «абзац», а «строка», как правило, относится к таблицам.
2. Написано не по-русски:

удалить 3,4 и 5 предпоследние строки »

Поясните. В моём понимании предпоследняя строка — вторая с конца.

Лучше всего будет, если Вы выложите образец документа, где цветом фона пометите эти самые «3,4 и 5 предпоследние строки».

[AlexVong]

Вчера не было возможности ответить, отключился интернет. Вот предоставляю фрагмент файла.

[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