из Word d Excel

[Olik]

как из Excel открыть определенный вордовский файл, где находится таблица, и из одной из колонок этой таблицы перекинуть данные в Excel???

[Алексей++]

Olik, скопируй из ворда через буфер обмена и вставь в ексель

при чём лучше не отдельную колонку выделять, а всю таблицу сразу копирнуть , а в екселе уже править.

И ещё обрати внимание - если в ячейках встречается "перевод каретки" (включи в ворде показ непечатных символов) , то их надо удалить ещё в ворде, иначе будут появляться ненужные "переводы ячеек" - появятсся дополнительные ячейки

[Olik]

скопировать-то скопировала .а макросом никак?

[Алексей++]

Olik, ой... не знаю ) А зачем макросом - так много всего надо копировать?

[Olik]

...это только часть задачки которую мне надо сделать, и задача вся построена на макросах

[Алексей++]

Olik, я тут не подскажу... не знаю , никогда не занимался

[Olik]

все равно спасибки

[HandKot]

как один из вариантов

Код:

Public Sub Test()
    Dim w As New Word.Application
    Dim d As Word.Document
    Dim i As Integer
        
    On Error GoTo eh
    
    w.Visible = True
    Set d = w.Documents.Open("d:\test.doc")
    
    For i = 1 To d.Tables(1).Rows.Count
        ThisWorkbook.Worksheets(1).Cells(i, 1) = d.Tables(1).Columns(1).Cells(i)
    Next i

eh:
    d.Close
    w.Quit
    
    Set d = Nothing
    Set w = Nothing
End Sub

[Olik]

Работает!
Спасибо огромное!! !