[решено] Удаление/добавление строки в документе word

Компьютерный форум 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=184121)

Seryoga204

29-08-2010 01:32 1483876

Удаление/добавление строки в документе word

Подскажите пожалуйста как с помощью vbs в документе word можно удалить две последние строки и в конце добавить одну строку с определенным текстом?

Iska	29-08-2010 03:09 1483920

Например, так:

Код:

Option Explicit



Dim objDocument





With WScript.CreateObject("Word.Application")

    .Visible = True

    

    Set objDocument = .Documents.Open("C:\MyDoc.doc")

    

    With objDocument

        .Range(.Paragraphs(.Paragraphs.Count - 1).Range.Start, .Paragraphs(.Paragraphs.Count).Range.End).Text = "Some Text"

    End With

    

    '...

    

    Set objDocument = Nothing

End With



WScript.Quit 0

Lenovo-1

02-02-2015 16:03 2465274

Как можно добавить

А что-бы сделать то же в блокноте. Как?

Iska	02-02-2015 16:39 2465294

Lenovo-1, в Блокноте — только средствами AutoIt.

Georgio

02-02-2015 20:13 2465403

Цитата:

Цитата Iska

в Блокноте — только средствами AutoIt. »

Как вариант на VBS:

Код:

With CreateObject("WScript.Shell")

 Set x = .Exec("notepad.exe")

 WScript.Sleep 1000

 .AppActivate(x.ProcessID)

 .SendKeys "9876543210~0123456789~9876543210"

 WScript.Sleep 1000

 .SendKeys "{BS 21}New line!"

End With

:wink:.

Время: 02:54.