VPF::Где можно посмотреть ссылку на источник данных.

Валк

Дата 25.8.2006, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.5.2006

Репутация: нет
Всего: нет

ИгнатьевАлексей
опиши задачку - дам тебе код(если смогу , конечно).
В том-то и дело, что все мои вопросы касаются "всяких мелочей, которые мне не будут подсказывать каждый раз" smile

Вот, например, сегодня я весь день "убил" на то, чтобы создавать папку с определённым именем в определём месте и сохранять в неё файл получаемый из шаблона.
Сейчас буду биться над тем как в эту папку записать документ Word и затем его из этой папки открыть.
Как всё это сделаю (методом научного тыка) стану о5 пытаться связать книгу и документ.

Валк

Дата 31.8.2006, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.5.2006

Репутация: нет
Всего: нет

Проект сделан и сдан. Единственная корявизна в том, что договор страхования должен открываться через процедуру открытия документа в Word (Ctrl + O -> поиск документа в сети -> открытие документа). Связано это с тем, что источник данных ищется в дефолтовой папке (Мои документы).
В данный момент в документе Word у меня прописан следующий макрос в автозагрузке:

Код

Private Sub Document_Open()
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "РасчётИпотека.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "DSN=Файлы Excel;DBQ=РасчётИпотека.xls;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
        , SQLStatement:="SELECT * FROM `'Сводка данных$'`", SQLStatement1:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = False
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Check
    End With
    Windows("ДоговорСтрахования.doc").Activate
End Sub

Хотелось бы знать, возможна ли передача переменных VBA (имя, значение) из книги Excel в документ Word? Ибо путь к РасчётИпотека.xls у меня в книге Excel задаётся и его можно было бы прописать в макрос Private Sub Document_Open документа Wordд.

likhobory

Дата 31.8.2006, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20

как вариант - хранить информацию во внешнем файле / реестре

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

TSC! Russia

ИгнатьевАлексей

Дата 31.8.2006, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3

Цитата

Связано это с тем, что источник данных ищется в дефолтовой папке (Мои документы).

Опять ты за свое! Попробуй вместо

Код


ActiveDocument.MailMerge.OpenDataSource Name:= _
        "РасчётИпотека.xls" _ .......

поставить

Код


ActiveDocument.MailMerge.OpenDataSource Name:= ActiveDocument.Path & "\" &  "РасчётИпотека.xls" _ .........

???
Ведь ты говоришь, что РасчётИпотека.xls у тебя всегда в той же папке, что и Вордовский документ? Я же писал тебе, как получить текущюю папку! smile

Это сообщение отредактировал(а) ИгнатьевАлексей - 31.8.2006, 18:27

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

Vingrad - FOREVER !!!

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

Валк

Дата 1.9.2006, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.5.2006

Репутация: нет
Всего: нет

ИгнатьевАлексей
Я же писал тебе, как получить текущюю папку!
Блин, извини, прогнал/проглядел. Всё исправил, всё работает, спасибо огромное user posted image

Вопрос решён был таким образом:
Создаётся новый документ (шаблон Normal.dot), в нём выставляются поля, копируется основной (неизменяемый) текст договора, в нужных местах вставляются поля типа MERGEFIELD без ссылки на какой-либо источник. В макрос автозагрузки помещается следующий код:

Код

Private Sub Document_Open()
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        ActiveDocument.Path & "\" & "РасчётИпотека.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "DSN=Файлы Excel;DBQ=РасчётИпотека.xls;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
        , SQLStatement:="SELECT * FROM `'Сводка данных$'`", SQLStatement1:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = False
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Check
    End With
    Windows("ДоговорСтрахования.doc").Activate
End Sub

Всё работает (хотя, возможно, не все команды в коде необходимы, код сгенерирован через запись макроса). Ещё раз мои искренние благодарности за помощь ИгнатьевАлексей user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »