значение ячейки из Excel в Word

[klimov0512]

Доброго времени суток!
Следующая ситуация: Открыт Excel. В ячейку листа введено значение. На листе расположена командная кнопка.
При нажатии на эту кнопку открываю файл *.doc в Worde в котором, допустим, создана таблица(2,2). Как, при нажатии на кнопку значение ячейки из Excel записалось в ячейке таблицы Word?

[doober]

Где Doc-документ Ворд
Tables(1)-первая таблица
Cell(1, 2)-ячейка таблицы первая строка ,второй столбец

Doc.Tables(1).Cell(1, 1).Range.Text = 1
Doc.Tables(1).Cell(1, 2).Range.Text = 2
Doc.Tables(1).Cell(2, 1).Range.Text = 11
Doc.Tables(1).Cell(2, 2).Range.Text = 12

[klimov0512]

Не понимаю каким образом значение в ячейке из открытого Excel перенесется в открываемый Word. Такое вообще возможно?

[doober]

Sub test()

      Dim WA As Object
       Dim DOK As Object


    Dim f As String
    f = "C:\Документ ваш.doc"
    
    Set x = ThisWorkbook.Sheets(1)
   
    Set WA = CreateObject("word.application")
   Set DOK = WA.Documents.Open(f)
        WA.Visible = True
     
 Doc.Tables(1).Cell(1, 1).Range.Text = x.Range("A1")
Doc.Tables(1).Cell(1, 2).Range.Text = x.Range("B1")
Doc.Tables(1).Cell(2, 1).Range.Text = x.Range("A2")
Doc.Tables(1).Cell(2, 2).Range.Text = x.Range("B2")

             DOK.Save
       
         WA.Quit
  
End Sub

[klimov0512]

Выдает ошибку 424 при выполнении кода на строке
Doc.Tables(1).Cell(1, 1).Range.Text = x.Range("A1")
Что не так?

[EducatedFool]

Что не так?

После того, как вы создали документ "C:\Документ ваш.doc",
Вы не забыли добавить в него таблицу размерами не менее 2*2?

PS: Внимательно изучив код, вы сможете исправить в нем пару опечаток, - и всё заработает.


------------------ добавлено позже --------------------------

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

[klimov0512]

Разобрался!!! Большое СПАСИБО всем за то что откликнулись и помогли новичку.

[klimov0512]

Еще возникла небольшая проблема.
В коде убрал Save для сохранения под другим именем. Открываю Word из Excel. Значения ячеек переносятся в таблицу Word. Всплывает окно с вопросом сохранить документ. Отмена. Сохраняю под другим именем. Закрываю Word.
Снова из Excel открываю Word, но в открывшемся документе значения ячеек не отображаются в таблице.
В редакторе VBA вплывает ошибка: 462 the remove server does not exist or is unavaible.
Останавливаю макрос, закрываю Word.
Снова запускаю Word из Excel, но теперь все в порядке и значения из ячеек записываются в таблице Word. И так через раз. Где что упущено?

[doober]

Сообщение от EducatedFool

После того, как вы создали документ "C:\Документ ваш.doc",
Вы не забыли добавить в него таблицу размерами не менее 2*2?

PS: Внимательно изучив код, вы сможете исправить в нем пару опечаток, - и всё заработает.

Спасибо Игорь.Сначала не понял о опечатках.

Смотрите вложение,работает как вам надо

[Jaroslav]

doober! А какой тип переменной x?