Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как вставить данные в ворд?? помогите  [new]
Benidorm
Member

Откуда:
Сообщений: 4
Добрый день, форумчане! Только изучаю программирование , подскажите в чем ошибка, не могу в закладки ворда вставить данные с акцеса.
Заранее спасибо

К сообщению приложен файл (папка (2).rar - 46Kb) cкачать
22 сен 17, 18:04    [20817080]     Ответить | Цитировать Сообщить модератору
 Re: Как вставить данные в ворд?? помогите  [new]
ПЕНСИОНЕРКА
Member

Откуда: Владимирская обл
Сообщений: 4078
Benidorm,

Private Sub butWord_Click()
Dim WD As Object
    Set WD = CreateObject("Word.Application")
    WD.Documents.Open FileName:=CurrentProject.Path & "\1-3.dot"
    WD.Visible = True
    WD.Application.WindowState = 1
    WD.Activate


WD.activedocument.Bookmarks("ФИО").Range.Text = Nz(ФИО, "")

End Sub
23 сен 17, 10:05    [20817793]     Ответить | Цитировать Сообщить модератору
 Re: Как вставить данные в ворд?? помогите  [new]
Benidorm
Member

Откуда:
Сообщений: 4
Огромное спасибо сейчас попробую.
26 сен 17, 10:47    [20822895]     Ответить | Цитировать Сообщить модератору
 Re: Как вставить данные в ворд?? помогите  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 3733
Может поможет Несколько советов по созданию документов в Word из Access
26 сен 17, 11:12    [20823021]     Ответить | Цитировать Сообщить модератору
 Re: Как вставить данные в ворд?? помогите  [new]
Benidorm
Member

Откуда:
Сообщений: 4
ПЕНСИОНЕРКА
Benidorm,

Private Sub butWord_Click()
Dim WD As Object
    Set WD = CreateObject("Word.Application")
    WD.Documents.Open FileName:=CurrentProject.Path & "\1-3.dot"
    WD.Visible = True
    WD.Application.WindowState = 1
    WD.Activate


WD.activedocument.Bookmarks("ФИО").Range.Text = Nz(ФИО, "")

End Sub


Спасибо огромное , работает!
26 сен 17, 11:16    [20823053]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить