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

[Seryoga204]

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

[Iska]

Например, так:
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]

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

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

[Iska]

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

[Georgio]

в Блокноте — только средствами 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:.