Связать договор в Word C таблицей Excel

  • Автор темы Jullap
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

Jullap

Гость
#1
Добрый день, форумчане
Пожалуйста, помогите сделать следующее:
Есть таблица, в ней номер договора, ФИО клиента, его паспортные данные. И есть договор в вордовском файле. Нужно сделать макрос в excel. С его помощью: открывается договор в ворде и туда вставляются все эти данные.
Оптимально как я поняла использовать для определения мест куда нужно вставлять данные с помощью Закладок (у меня Word2010),
Не хватает опыта чтобы самой написать. Очень прошу кому это не сложно напишите как это сделать. Как открыть из excel нужный файл word. А для вставки нужных данных наверное макрос должен быть прикручен и к самому договору. Как через него получить данные из ячеек excelя? И вставить их в закладки?
До сих пор мучаюсь и переношу все договора в excel и печатаю их из excelя, что доставляет массу неудобств.((
 

alex77755

Well-Known Member
15.02.2009
128
0
62
Украина Павлоград
#2
Ворд такая капризная штука(как по мне) что я бы сделал всё в Екселе:
На отдельном листе сделал бы договор, а при выборе клинта вызывал бы макрос заполнения шаблона
 

alex77755

Well-Known Member
15.02.2009
128
0
62
Украина Павлоград
#3
Добрый день, форумчане
Пожалуйста, помогите сделать следующее:
Есть таблица, в ней номер договора, ФИО клиента, его паспортные данные. И есть договор в вордовском файле. Нужно сделать макрос в excel. С его помощью: открывается договор в ворде и туда вставляются все эти данные.
Оптимально как я поняла использовать для определения мест куда нужно вставлять данные с помощью Закладок (у меня Word2010),
Не хватает опыта чтобы самой написать. Очень прошу кому это не сложно напишите как это сделать. Как открыть из excel нужный файл word. А для вставки нужных данных наверное макрос должен быть прикручен и к самому договору. Как через него получить данные из ячеек excelя? И вставить их в закладки?
До сих пор мучаюсь и переношу все договора в excel и печатаю их из excelя, что доставляет массу неудобств.((
Наврное не оптимально, но можно сделать через надписи(я делал в 2003 Офисе)
Код:
Option Explicit
Dim objWord As New Word.Application
Dim objDoc As Word.Document
Public Sub ШАблон()
Set objDoc = objWord.Documents.Open("C:\test.doc")
objDoc.Shapes("Text Box 10").TextFrame.TextRange.Text = "ВАСЯСЯСЯ"
objDoc.Save
objDoc.Close
objWord.Quit
End Sub
Должна быть поключена ссылка на Ворд. И надо знать имена(или индексы) полей
Ну, естественно вместо Васяся вставлять значение из нужной ячейки
 
J

Jullap

Гость
#4
спасибо, немного проясняется тьма незнания.

а как вставить текст именно в закладку?
пробую сделать так, в ответ пишет, что object doesn't support this property or method:(


Option Explicit
Dim objWord As New Word.Application
Dim objDoc As Word.Document
Dim wdBm As Word.Bookmark

Public Sub PD()
Set objDoc = objWord.Documents.Open("C:\Users\ly\Desktop\PD.docx")
objDoc.wdBm("ФИО").Range.Text = "ВАСЯСЯСЯ"
objDoc.Save
objDoc.Close
objWord.Quit
End Sub
 
Статус
Закрыто для дальнейших ответов.