ник: час
типа вот что то так...
надо будет разобраться с этим
тут перенос строк в текстовый документ, но это видимо мелочи...
как то так наверное.
Dim notepadID
Private Sub Command1_Click()
'Чтение первого файла 1.DOC
Set appWrd = CreateObject("Word.Application")
'appWrd.Visible = True
Set oDoc1 = appWrd.Documents.open("c:\1.doc")
Set Param = oDoc1.Content.Paragraphs
notepadID = Shell("NOTEPAD.EXE " & "c:\txt", 1) ' Открытие Notepad.
'Построчное чтение строк из первого файла
With oDoc1
.Parent.Visible = True
For I = 1 To 100
On Error GoTo m1
Param = .Paragraphs(I)
AppActivate notepadID
SendKeys "^" & Param, True 'Посылка строки в Notepad.
Next
End With
m1:
oDoc1.Close
appWrd.Quit
'notepadID.Quit
End Sub
|
но тут похоже целыми параграфами читает..
а мне то построчно нуна....