Microsoft Word 97 версію цієї статті див. 253552.

Загальні відомості

У цій статті описано створення та використання форму списком як на запис макросу, текстові поля форми, щоб дізнатися, з базою даних Microsoft Access. Цей макрос можна тимчасово усунути неполадки обмеження 25 елементів у розкривному поля.

Щоб отримати додаткові відомості про те, як це зробити, якщо ви не використовуєте бази даних Microsoft Access клацніть номер статті в базі знань Microsoft Knowledge Base:

198561 як створити поле зі списком, який містить більше 25 елементів.

Як 306258 , щоб створити поле зі списком, яке містить більше 25 елементів у Word 2002

Додаткові відомості

Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Щоб отримати додаткові відомості, клацніть номер статті в базі знань Microsoft:

212536 , як виконати код зі статті бази знань, в Office 2000

У шаблоні, виконайте такі дії.

Зверніть увагу: щоб закрити вікно (наприклад, код вікна або вікно властивостей ), натисніть кнопку " X " у верхньому правому кутку вікна.

Створіть форму списком

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

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

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

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

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

    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
  4. У меню " Сервіс " натисніть кнопку " посилання".

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

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

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

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

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

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

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

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

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

    Private Sub Cmdclose_Click()
    End
    End Sub
  12. Закрийте вікно коду.

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

Форму списком завершено. Перейдіть до процедури "Створення запису макросу".

Створення макросу запис

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

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

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

    Sub gocombobox()
    frmcombo.Show
    End Sub

Запис макросу завершено. У меню " файл " натисніть кнопку закрити і повернутися до Microsoft Word.

Створіть у текстовому полі

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

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

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

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

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


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

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

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

Щоб використати шаблон, у Word 2003 та попередніх версіями, натисніть створити меню файл ». Виберіть шаблон а потім натисніть кнопку OK.

Використання шаблону, у Word 2007, натисніть Кнопку Microsoft Office, натисніть кнопку створити, виберіть шаблон і натисніть кнопку створити.

Новий документ на основі шаблону, що відобразиться. Форму, який містить поле зі списком, з елементів, відображається під час переміщення у поля текст за допомогою клавіші TAB.

Потрібна додаткова довідка?

Отримуйте нові функції раніше за інших
Приєднатися до Microsoft оцінювачів

Чи були ці відомості корисні?

Наскільки ви задоволені якістю перекладу?

Що вплинуло на ваші враження?

Маєте ще один відгук? (Необов'язково)

Дякуємо за ваш відгук!

×