Створення Word списком, що має більше 25 елементів з бази даних Microsoft Access

У Microsoft Office Word 2003 та попередніх версіями команду в меню " Знаряддя " макрос і виберіть Редактор Visual Basic.

У програмі Word 2007 відкрийте вкладку розробників та натисніть кнопку, Редактор Visual Basic

У вікні проекту , виберіть свій TemplateProject.

Зверніть увагу: якщо вікна проекту не відображається, клацніть Вікно проекту меню View ".

У меню Вставлення виберіть пункт " форму". Відображатися на нову форму та Елементи керування інструментів . Правою кнопкою миші у, формута в контекстному меню виберіть Код . Додайте наведений нижче код ініціалізації події:

Option Explicit
'Define Variables

Private Sub UserForm_Initialize()

Dim dbDatabase As Database
Dim rsNorthwind As Recordset
Dim i As Integer
Dim aResults()

' This code activates the Database connection. Change 
' the path to reflect your database.
Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")

' This code opens the Customers table.  Change the Table 
' to reflect the desired table.
Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot)

i = 0

   With rsNorthwind
   ' This code populates the combo box with the values 
   ' in the CompanyName field.

      Do Until .EOF
         ComboBox1.AddItem (i)
         ComboBox1.Column(0, i) = .Fields("CompanyName")
         .MoveNext
         i = i + 1
      Loop

   End With
End Sub

У меню " Сервіс " натисніть кнопку " посилання".

Виберіть Microsoft DAO 3.6 об'єкт бібліотеки.

Натисніть кнопку "ОК" , щоб закрити діалогове вікно " посилання ".

Закрийте вікно коду.

У форму, клацніть правою кнопкою миші і в контекстному меню виберіть Властивості . На вкладці алфавітний перейменувати (ім'я) frmcomboта змініть назву для Microsoft Word. Закрийте вікно Властивостей-форму .

На вкладці " елементи керування " панелі інструментів виберіть поле зі списком та помістити його на вашому форму. Елемента керування, клацніть правою кнопкою миші і в контекстному меню виберіть Код . Змініть поле зі списком код:

Private Sub ComboBox1_Change()
   ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
End Sub

Зверніть увагу: Text1-це ім'я закладки, текстові поля, додані шаблон у кроці 2, "Створити файл текстові поля" цієї статті.

Закрийте вікно коду.

На вкладці " елементи керування " панелі інструментів виберіть CommandButton та помістити його на формі користувача як кнопки " Закрыть ". CommandButton, клацніть правою кнопкою миші і в контекстному меню виберіть Код . Змінити CommandButton код:

Private Sub Cmdclose_Click()
   End
End Sub

Закрийте вікно коду.

CommandButton, клацніть правою кнопкою миші і в контекстному меню виберіть Властивості . На вкладці алфавітний перейменувати Cmdclose(ім'я) і перейменувати заголовка, щоб закрити. Закрийте вікно CommandButton властивості .

У вікні проекту, виберіть свій TemplateProject.

У меню Вставлення команду " модуль". Пустий модуль коду аркуша з'являється.

Введіть такий код:

Sub gocombobox()
   frmcombo.Show
End Sub

У шаблон, у меню вигляд пункт панелі інструментіві клацніть форми.

Розташуйте папку в результаті розкривного списку, який вставляється курсор. На панелі інструментів форми натисніть кнопку "в Текстовому полі (перша кнопка зліва)". У Текстовому полі вставляється в шаблон як сірий затінення.

Зверніть увагу: Якщо {FORMTEXT} поля, натисніть клавішу ALT + F9, щоб вимкнути коди полів.

У Текстовому полі, клацніть правою кнопкою миші і в контекстному меню виберіть Властивості .

У діалоговому вікні Параметри поля форми для тексту запустити макрос, розділі, виберіть макрос gocombobox від на запис: ім'я в полі зі списком.


Зверніть увагу: переконайтеся, що ім'я закладки текстові поля форми так само, як той, який ви вказали на кроці 9 процедури "Створення у форму поле зі списком" вище в цій статті.

На панелі інструментів форми натисніть кнопку " Форми, захист".

Збережіть і закрийте шаблону.