Как создать поле со списком, который содержит более 25 элементов в Word 2002

Переводы статьи Переводы статьи
Код статьи: 306258 - Vizualiza?i produsele pentru care se aplic? acest articol.
Для Microsoft Word 2000 версии данной статьи См 198561.
Для Microsoft Word 97 просмотреть версию этой статьи 194026.
Для Microsoft Word 98 просмотреть версию этой статьи 194027.
Развернуть все | Свернуть все

В этой статье

Аннотация

В данной статье описывается, как создавать и использовать пользовательскую форму Поле со списком как макроса для текстового поля. Этот макрос можно использовать в качестве обход ограничения в 25 элементов в раскрывающемся списке поля.


ПРИМЕЧАНИЕ: Для получения дополнительных сведений о том, как в следующих случаях, При использовании базы данных Microsoft Access, щелкните следующий номер для статьи номер статьи базы знаний Майкрософт:
253542WD: Как создать поле со списком с более 25 элементов из базы данных Microsoft Access

Дополнительная информация

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации Это включает, но не ограничивается, подразумеваемые гарантии товарности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с языком программирования предложенном и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут пояснить конкретной процедуры, но они будут изменять примеры для реализации дополнительных возможностей или удовлетворения конкретных требований.
Для получения дополнительных сведений об использовании пример кода в данной статье, щелкните следующий номер статьи для просмотра статьи в Microsoft Knowledge Base:
290140OFFXP: Как запустить пример кода из статей базы знаний
В шаблоне Word выполните следующие действия.

ПРИМЕЧАНИЕ: Для закрытия окна (например, окно программы или свойства окно), нажмите кнопку X в правом верхнем углу окна.

Создание поля со списком UserForm

  1. На Сервис Выберите пункт Макрос и выберите команду Редактор Visual Basic.
  2. В Окно проекта, выберите ваш TemplateProject.

    ПРИМЕЧАНИЕ: Если Окно проекта не виден, нажмите кнопку Обозреватель проектов В меню Представление меню.
  3. На Вставка меню, нажмите кнопку Пользовательская форма. Появятся пользовательская форма и панель элементов. Щелкните правой кнопкой мыши Пользовательская форма, а затем нажмите кнопку Просмотр кода. Добавьте следующий код:
    Private Sub UserForm_Initialize()
    
      ComboBox1.ColumnCount = 1
    
      'Load data into ComboBox
    
      ComboBox1.List() = Array("Zero", "One", "Two", "Three")
    
    End Sub

    Закройте окно программы.
  4. Щелкните правой кнопкой мыши пользовательскую форму и нажмите кнопку Свойства в контекстном меню. На Буквы Вкладка, переименование (Имя) Кому Пользовательская форма, а затем переименуйте Заголовок Кому Microsoft Word. Закройте окно Свойства пользовательской формы.
  5. На Элементы управления вкладки панели элементов, Выбор Поле со списком и поместить его в пользовательскую форму. Щелкните правой кнопкой мыши Поле со списком элемент управления, а затем нажмите кнопку Просмотр кода в контекстном меню. Изменение Поле со списком Код ниже
    Private Sub ComboBox1_Change()
    
       ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
    
    End Sub
    						
    а затем закройте окно программы.

    ПРИМЕЧАНИЕ: Текст1 — это имя закладки текстовое поле, то будет Вставьте в шаблон на шаге 2 «Создание текстового поля» процедура, далее в этой статье.
  6. На Элементы управления вкладки панели элементов, Выбор CommandButtonи поместите его в пользовательскую форму как Закрыть Нажатие кнопки. Щелкните правой кнопкой мыши CommandButton, а затем нажмите кнопку Просмотр кода в контекстном меню. Изменение кода CommandButton следующие
    Private Sub Cmdclose_Click()
    
      Unload Me
    
    End Sub						
    а затем закройте окно программы. Щелкните правой кнопкой мыши CommandButton, а затем нажмите кнопку Свойства в контекстном меню. На Буквы Вкладка, переименование (Имя) Кому Cmdclose, а затем переименуйте Заголовок Кому Закрыть. Закройте окно свойств CommandButton.
В поле со списком UserForm, уже выполнено. Перейдите к разделу "Создание раздел макроса"данной статьи.

Создание макроса

  1. В окне проекта выберите ваш TemplateProject.
  2. На Вставка меню, нажмите кнопку Модуль. Появится список кодов пустого модуля.
  3. Введите следующий код:
    Sub gocombobox()
    
       UserForm.Show
    
    End Sub
    					
Запись макроса завершена. На Файл меню, нажмите кнопку Закрыть и вернуться в Microsoft Word. Перейдите к разделу «Создание текстового поля» это статьи, чтобы создать поле формы в шаблоне Word.

Создать текстовое поле

  1. В шаблоне на Представление Выберите пункт Панели инструментов и выберите команду Формы.
  2. Установите курсор в то место, куда в результате раскрывающийся список, который вставлен. На Формы панель инструментов, нажмите кнопку Текстовое поле (первая кнопка слева). Вставить текстовое поле в шаблон с серым затенением.

    ПРИМЕЧАНИЕ: Если вы видите {FORMTEXT} Нажмите клавишу ALT + F9, чтобы отключить коды полей.
  3. Щелкните правой кнопкой мыши Текстовое поле, а затем нажмите кнопку Свойства в контекстном меню.
  4. В Параметры текстового поля диалоговое окно, в группе Выполнить макрос раздел, Щелкните стрелку в Запись Выберите gocombobox макрос, а затем нажмите кнопку ОК.

    ПРИМЕЧАНИЕ: Убедитесь, что Имя закладки. от вашего Текстовое поле такой же, как указано в шаге 4 "Создание Поле со списком UserForm"разделе этой статьи.
  5. На Формы панель инструментов, нажмите кнопку Защита формы.
  6. Сохраните и закройте шаблон.
Чтобы использовать шаблон, нажмите кнопку Новый В меню Файл меню, а затем нажмите кнопку Общие шаблоны В диалоговом окне Новый документ область задач. В Шаблоны диалоговое окно, выберите шаблон и нажмите кнопку ОК. Откроется новый документ на основе шаблона. Пользовательская форма содержащий ComboBox с вашими элементами отображаются при использовании клавиши TAB для перемещения в Текстовое поле.

Свойства

Код статьи: 306258 - Последний отзыв: 18 сентября 2011 г. - Revision: 6.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Word 2002 Standard Edition
Ключевые слова: 
kbcontrol kbprogramming kbvba kbhowto kbmt KB306258 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:306258

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com