Кто силён в VBA и работе с MS Office? - страница 2

[Dmitry Fedoseev]

Вот так сделал:

Sub AutoNew()

        MyForm.Show

End Sub

и заработало.

Правда основную функцию упростил:

Private Sub CommandButton1_Click()
'Äåéñòâèÿ ôîðìû ïî íàæàòèþ êíîïêè "Ââåñòè äàííûå"
UpdateBookmarks "FIO", MyForm.TextBox1.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
UpdateBookmarks "adres", MyForm.tbAdres.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
UpdateBookmarks "pasport", MyForm.tbPasport.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
UpdateBookmarks "email", MyForm.tbEmail.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
UpdateBookmarks "Phone", MyForm.tbPhone.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
UpdateBookmarks "adresvypiski", MyForm.tbAdresvypiski.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
UpdateBookmarks "type", MyForm.tbType.Text 'îïðåäåëÿåì íîâûé òåêñò çàêëàäêè
Unload MyForm   'Çàêðûâàåì ôîðìó
ActiveDocument.Range.Fields.Update  'Îáíîâëÿåì âñå ïîëÿ â äîêóìåíòå
End Sub

[Alexandr Bryzgalov]

Dmitry Fedoseev:

Вот так сделал:

и заработало.

Правда основную функцию упростил:

Ок, как на месте буду проверю. За ранее спасибо. Если работает готов отблагодарить рублей 300 на яндекс.

Помнится за мной должок $10 с времён когда бакс 30 рублей стоил )

Думаю время пришло ))

[Dmitry Fedoseev]

Да ладно.

[Alexandr Bryzgalov]

Да, всё работает.

Огромное спасибо.

Я на эту часть кода и не обратил внимания.