1

Тема: из excel сохранить в word и запустить в word макрос

Доброго времени суток.
Форумчане.
Есть вопрос следующего характера.
Возможно ли из excel сохранить нужный текст в word документе (например файл.dotm).  При этом запустить макрос в word на выполнение.
Скорее всего раздел фантастики, но на всякий случай.
И да, если это вопрос относится сугубо к excel форумам? просьба не особо ругать.
Если возможно, буду признателен за код.

2

Re: из excel сохранить в word и запустить в word макрос

Уважаемый Kreol2013!
Нет ничего невозможного! Нужно знать только параметры сохраняемого текста.
А по общему доступу к Excel код в приложенном файле Word.

Post's attachments

Доступ к Excel.doc 34.5 Кб, 9 скачиваний с 2013-09-03 

You don't have the permssions to download the attachments of this post.

3

Re: из excel сохранить в word и запустить в word макрос

Странно, ничего я не увидел в вашем файле, просто пустой файл с обрывом конца документа.
Проблема на самом деле была в не подключённых References, после включения все заработало.

4

Re: из excel сохранить в word и запустить в word макрос

Чтоб не плодить тем.
А как быть при копировании диапазона в новый лист worda?
Оригинал статьи внешняя ссылка

Dim t As Word.Range
Set t = wdDoc.Content 'set the range in Word
    t.Paste 'paste in the table

Если я правильно понимаю тут опять используется буфер?
Возможно ли применить

Public Sub www()
    With Workbooks("Книга1.xlsx").Worksheets(Sheets.Count)
        .Range("a1:a" & .Cells(.Rows.Count, 1).End(xlUp).Row).Copy _
                  t.Paste 'paste in the table
    End With
End Sub