Excell и Word

[женя2010]

Добрый день

Конструктор выдает файл экселевский(приложен = St-L1)
Менеджер (руководство настаивает, что он глупый и заполнять самостоятельно он не может) просто выбирает файл в Ворде и получает табличку в Ворде.

высота таблицы в Экселе может меняться-поетому для определенности мы заставим конструктора выделять всю таблицу цветом-желтым)

Я понимаю, что весь код мне никто не даст, но я знаю что если начать с малого то можна прийти к результату!
Как такое реализовать?

[женя2010]

Нужно получить соответственную табличку в Ворде

[Казанский]

А конструктор может выдавать таблицу в Ворде, или он тоже глупый?

[женя2010]

Конструктор не любит людей))я бы сказал,что он "особенны"))

[Казанский]

Макрос для Ворда, в первом приближении.
Поместите его в Normal.dot менеджеру и создайте кнопку на тулбаре для вызова макроса.

Sub OpenExcel()
Dim v
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Add "Файлы Excel", "*.xl*"
    .AllowMultiSelect = False
    If Not .Show Then Exit Sub
    v = .SelectedItems(1)
End With
With CreateObject("excel.application")
    .DisplayAlerts = False
    .workbooks.Open(v, ReadOnly:=True).activesheet.usedrange.Copy
    Documents.Add.Range.Paste
    .Quit
End With
End Sub

[женя2010]

Ухты! Работает!
НО!!

А как сделать так что бы эта табличка "влетела" не в новый Ворд, а в сторого определенный Ворд(C:\Users\Desktop\word.doc), да еще и в точное место (5 странца, 3 строчка) ....?

[женя2010]

помогите люди добрые

[Ципихович Эндрю]

читать надо также и чужие топики, проще там где надо закладку поставить, потом перейти, а то у Вас вычурно (5 странца, 3 строчка)
Еще бы 6 знак в строке до полудня придумали
А по файлу

    Dim oDocument As Word.Document
    'в пошаговом режиме нажимаем Шифт + Эф 8
    'открываем документ
    Set oDocument = Documents.Open(D:\Адрес\00.doc")