Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 30.11.2016
Сообщений: 1
1

Выгрузка данный из формы Access в шаблон MS Word

01.12.2016, 11:11. Показов 2487. Ответов 2
Метки нет (Все метки)

Добрый день!
Пожалуйста (!!!), помогите доработать базу.

Мне необходимо делать выгрузку данных из формы ТТД в шаблон MS Word файла ТТД.
Надо чтобы поля формы выгружались в соответствующие места документа Word при нажатии кнопочки на форме.

Заранее ОЧЕНЬ благодарна!

Добавила архив базы
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: rar Печать типового трудового договора.rar (88.7 Кб, 40 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2016, 11:11
Ответы с готовыми решениями:

Настройка экспорта из формы Access в шаблон Word
Пожалуйста, помоги довести базу до ума. Мне необходимо сделать : 1. Выгрузку данных из формы...

Выгрузка данных в шаблон word и excel
Добрый день. Нужна Ваша помощь по выгрузке данных в шаблон word и excel. Частично это все...

Выгрузка результатов запросов в шаблон Word
Дорый день. Форум читал. Также пытался использовать код из книги Гетца "Разработка настольных...

Вывод данных из Access в шаблон Word
Доброго вечера, форумчане! Пытаюсь решить задание по выводу данных из Access в шаблон Word...

2
Sk
6 / 6 / 1
Регистрация: 10.03.2016
Сообщений: 304
01.12.2016, 11:38 2
Юлия_Брянск, посмотрите в путеводителе по форуму
0
Эксперт MS Access
6647 / 4256 / 264
Регистрация: 12.08.2011
Сообщений: 12,382
02.12.2016, 02:39 3
Поменяйте на свои пути и букмарки:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
  Public Function to_wordsert()
  Dim app As Word.Application
  Dim strPathDot As String, strPathWord As String 'strPathWord-полный путь к документу'
  strPathDot = CurrentProject.Path & "\docs\sert.dotx"
  strPathWord = CurrentProject.Path & "\docs\sert.pdf"
  
  Dim fo As Form
  Set fo = Forms("Сертификат")
 
        Set app = New Word.Application 'делаем ссылку на объект Word для создания нового документа
        app.Visible = True 'запускаем приложение Word
        app.Documents.Add strPathDot 'присоединяем к объекту Word шаблон по заданому пути
        With app.ActiveDocument 'делаем ссылку на активный документ - в данном случае тот что формируется
    'находим закладку по имени в заменяем ее на текст из поля формы
            .Bookmarks.Item("Номер").Range.Text = Nz(fo.номер, "")
            .Bookmarks.Item("ДатаВыдачи").Range.Text = Nz(fo.датавыдачи, "")
            .Bookmarks.Item("место").Range.Text = Nz(fo.кодместа.Column(1), "")
            .Bookmarks.Item("адрес").Range.Text = Nz(fo.кодадреса.Column(1), "")
            .Bookmarks.Item("средство").Range.Text = Nz(fo.кодсредства.Column(1), "")
            .Bookmarks.Item("свидпо").Range.Text = Nz(fo.кодсвидпо.Column(1), "")
            .Bookmarks.Item("действует").Range.Text = Nz(fo.кодсвидпо.Column(2), "")
            .Bookmarks.Item("номконт").Range.Text = Nz(fo.номерконт, "")
            .Bookmarks.Item("метод").Range.Text = Nz(fo.кодметода.Column(1), "")
            .Bookmarks.Item("масса").Range.Text = Nz(fo.масса, "")
            .Bookmarks.Item("свидпри").Range.Text = Nz(fo.кодсвидпри.Column(1), "")
            .Bookmarks.Item("свидпри1").Range.Text = Nz(fo.кодсвидпри.Column(1), "")
            .Bookmarks.Item("испол").Range.Text = Nz(fo.кодисп.Column(1), "")
                          
            .SaveAs strPathWord 'сохранение по заданному пути
         
         End With
        
        'app.ActiveDocument.PrintOut ' вывод на печать, если необходимо
        'преобразование в PDF, если необходимо:
        'app.ActiveDocument.SaveAs2 FileName:=strPathWord, FileFormat:=wdFormatPDF
        'app.ActiveDocument.Close wdDoNotSaveChanges 'закрыть без сохранения, если нужно
        
        app.Quit
        Set app = Nothing
        'Set app = Nothing 'уничтожаем переменную
        MsgBox "Сертификат номер " & fo.номер & " распечатан"
    
End Function
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2016, 02:39

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вывод отчётов Access в шаблон Word
Ребят, проблемка, как в шаблон ворда вывести информацию. база аксес: https://dropmefiles.com/NBKDH...

Экспорт из запроса Access в шаблон Word по критериям
Всем добрый день. Может кто сможет подсказать решение следующей задачи. БД имеет следующую...

Экспорт данных из таблицы MS Access в шаблон MS Word
Доброго дня Уважаемые форумчане!!! Для многих вопрос покажется простым, и, всё-же: Как...

Запись данных из таблицы Access в шаблон Word
Доброго времени суток. Есть такая проблема: Имеется таблица в Access, сформированная с помошью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.