VBS/WSH/JS - [решено] Удаление/вставка строк в Word

[AlexVong]

Подскажите, можно ли средствами vbs, в выбраном файле *.doc удалить 3,4 и 5 предпоследние строки, а на их место вставить 3 строки с определенным текстом?

[AlexVong]

AlexVong, можно.



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

2. Написано не по-русски:


Цитата AlexVong:



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

VBS/WSH/JS - [решено] Удаление/вставка строк в Word

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



Лучше всего будет, если Вы выложите образец документа, где цветом фона пометите эти самые «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