[решено] Удаление/вставка строк в Word - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Удаление/вставка строк в Word (http://forum.oszone.net/showthread.php?t=206021)

AlexVong

02-05-2011 18:24 1669081

Удаление/вставка строк в Word

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

Iska	02-05-2011 18:39 1669097

AlexVong, можно.

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

Цитата:

Цитата AlexVong

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

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

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

AlexVong

03-05-2011 10:42 1669392

Вложений: 1

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

Iska	03-05-2011 17:20 1669613

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

Время: 16:56.