Синхронизация WORD и EXCEL.

[Klim Bassenger]

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

Вот код для копирования таблиц вместе с картинками
далее анализируйте и в коде принимайте решения

Private Sub CommandButton1_Click()
 ActiveSheet.Rows("1:100").RowHeight = 90
Dim WD, W_doc, Tbl
Set WD = CreateObject("Word.Application")
WD.Visible = True
Set W_doc = WD.Documents.Open(Filename:=Application.ThisWorkbook.Path & "\ShanWORD.doc")
 W_doc.Tables(1).Select
WD.Selection.Copy
  Range("A1").Select
  ActiveSheet.Paste
 W_doc.Tables(2).Select
WD.Selection.Copy
  Range("A4").Select
  ActiveSheet.Paste
W_doc.Close (False)
Set W_doc = Nothing
WD.Quit
Set WD = Nothing

End Sub

Спасибо.

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

PS:
А макросы вы писать будете?

Ну если тут не помогут, то буду пробовать... Точнее я уже попробовал... Пока глухо.

[алекс250699]

как сделать так чтобы текст синхронизовался из одного файла экселя в другой такой же файл экселя например в одном файле изменяешь данные и в другом файле они тоже изменялись