Внести изменения в объект Excel, внедренный в шаблон Word

Пользователь

Сообщений: 12 Регистрация: 23.02.2014

04.09.2015 15:10:36

Доброго времени суток! Уважаемые ГУРУ, возможно ли ..??
Макрос excel создает документ word из шаблона (решённый вопрос). Шаблон в свою очередь имеет вставленный объект excel. Вопрос, возможно ли макросом excel внести изменения в документе word т.е. в объекте excel, а именно внести данные в определенные ячейки объекта excel.
Спасибо!

Прикрепленные файлы

пример.docx (23.15 КБ)

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

04.09.2015 15:54:32

Это вполне возможно, если запущен только один экземпляр приложения Excel, чтобы внедренный объект открылся в нем же.

Код

Dim wdDoc, xlEmbBk, nBooks

'wdDoc - ссылка на документ Ворд
nBooks = Workbooks.Count
wdDoc.Shapes(1).OLEFormat.DoVerb
If Workbooks.Count = nBooks + 1 Then
  Set xlEmbBk = Workbooks(Workbooks.Count)
Else
  MsgBox "Не удалось подключиться к внедренной книге", vbCritical
  Exit Sub
End If
'xlEmbBk - ссылка на внедренную книгу, ниже пример работы с ней
xlEmbBk.Sheets(1).Range("A1") = "hello world"
xlEmbBk.Sheets(1).Range("A2") = Time
'xlEmbBk.Close True 'не работает!
'для выхода из редактирования внедренной книги можно закрыть документ Word
wdDoc.Save
wdDoc.Close

tgg

Пользователь

Сообщений: 12 Регистрация: 23.02.2014

04.09.2015 17:11:05

Спасибо.
Это часть кода по созданию файла word.
Где мне применить Ваш код??

Код

Dim wd As Object, wdFormatDocument As Variant 
   Set wd = CreateObject("Word.Application")  
        wd.Visible = False 
    wd.documents.Open Filename:=Application.ThisWorkbook.Path & "\ИмяШаблона.dotx"             
        Sheets("Данные").Range("I29").Copy
        wd.ActiveDocument.Bookmarks.Item("A1").Range.Paste
        wd.ActiveDocument.Bookmarks.Item("A6").Range.Paste
        .....
        .....
        wd.ActiveDocument.Bookmarks.Item("A100").Range = Период 
        wd.ActiveDocument.Bookmarks.Item("A102").Range = ДатаПлюс 
      wd.Visible = True 
      wd.ActiveDocument.SaveAs Filename:=Application.ThisWorkbook.Path & "\ИмяФайла.docx", FileFormat:=wdFormatDocument          
      Application.StatusBar = "Всё готово!"

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#4 04.09.2015 17:51:11 tgg, мой wdDoc - это Ваш wd.Activedocument

tgg Пользователь Сообщений: 12 Регистрация: 23.02.2014	#5 07.09.2015 11:46:42 Спасибо! Что доктор прописал!

Читают тему