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

Тема в разделе "Visual Basic", создана пользователем Jullap, 29 окт 2010.

Статус темы:
Закрыта.
  1. Jullap

    Jullap Гость

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

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Ворд такая капризная штука(как по мне) что я бы сделал всё в Екселе:
    На отдельном листе сделал бы договор, а при выборе клинта вызывал бы макрос заполнения шаблона
     
  3. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Наврное не оптимально, но можно сделать через надписи(я делал в 2003 Офисе)
    Код (LotusScript):
    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
    Должна быть поключена ссылка на Ворд. И надо знать имена(или индексы) полей
    Ну, естественно вместо Васяся вставлять значение из нужной ячейки
     
  4. Jullap

    Jullap Гость

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

    а как вставить текст именно в закладку?
    пробую сделать так, в ответ пишет, что 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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей