ник: Дядя Федор
И делай с ним что хош!
Public Sub ttt()
Dim varmas
'Чтение первого файла 1.DOC
Set appWrd = CreateObject("Word.Application")
'appWrd.Visible = True
Set oDoc1 = appWrd.Documents.Open("c:\test.doc")
Set param = oDoc1.Content '.Paragraphs
Debug.Print "" & param
'Построчно в массив
varmas = Split(param, Chr(13))
m1:
oDoc1.Close
appWrd.Quit
End Sub
|
забавно если есть таблицы...