Войти

Показать полную графическую версию : [решено] Удаление/вставка строк в Word


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

Iska
02-05-2011, 18:39
AlexVong, можно.

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

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

AlexVong
03-05-2011, 10:42
Вчера не было возможности ответить, отключился интернет. Вот предоставляю фрагмент файла.

Iska
03-05-2011, 17:20
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




© OSzone.net 2001-2012