Entrar com a conta da Microsoft
Entre ou crie uma conta.
Olá,
Selecione uma conta diferente.
Você tem várias contas
Escolha a conta com a qual você deseja entrar.

Para obter uma versão deste artigo do Microsoft Word 97, consulte 253552.

Sumário

Este artigo descreve como criar e usar uma caixa de combinação UserForm como uma macro de entrada para um campo de formulário de texto para mostrar informações de um banco de dados do Microsoft Access. Esta macro pode ser usada como uma solução para a limitação de 25 itens em campos de formulário drop-down.

Para obter mais informações sobre como fazer isso quando você não estiver usando um banco de dados do Microsoft Access, clique nos números abaixo para visualizar os artigos na Base de Conhecimento da Microsoft:

198561 como criar uma caixa de combinação que contém mais de 25 itens

306258 como criar uma caixa de combinação que contém mais de 25 itens no Word 2002

Mais informações

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Para obter mais informações, clique no número de artigo a seguir para visualizar o artigo na Base de Dados de Conhecimento da Microsoft:

212536 a execução de código de exemplo de artigos da Base de Conhecimento no Office 2000

No modelo, use as seguintes etapas.

Observação: para fechar uma janela (por exemplo, uma janela de código ou a janela Properties ), clique no X no canto superior direito da janela.

Criar a caixa de combinação UserForm

  1. No Microsoft Office Word 2003 e em versões anteriores, aponte para Macro no menu Ferramentas e, em seguida, clique em Editor do Visual Basic.

    No Word 2007, clique na guia desenvolvedor e, em seguida, clique em Editor do Visual Basic

  2. Na janela Project , seleccione o TemplateProject.

    Observação: se a janela do projeto não for exibido, clique em Project Explorer no menu Exibir .

  3. No menu Inserir , clique em UserForm. Um novo UserForm e a Caixa de ferramentas controles devem aparecer. Com o botão direito dentro do UserForme, em seguida, clique em Exibir código no menu de atalho. Adicione o seguinte código ao evento Initialize :

    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. No menu Ferramentas , clique em referências.

  5. Clique em Microsoft DAO 3.6 Object Library.

  6. Clique Okey para fechar a caixa de diálogo References .

  7. Feche a janela de código.

  8. Clique do UserForme, em seguida, clique em Propriedades no menu de atalho. Na guia alfabético , renomeie (nome) para frmcomboe renomeie a legenda para o Microsoft Word. Feche a janela do UserForm Properties .

  9. Na guia controles da caixa de ferramentas, marque a caixa de combinação e coloque-a no UserForm. Clique com botão direito no controle ComboBox e, em seguida, clique em Exibir código no menu de atalho. Altere o código ComboBox para:

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

    Observação: Text1 é o nome de marcador do campo de formulário de texto que você inserir no seu modelo no procedimento da etapa 2 do "criar o campo de formulário texto" deste artigo.

  10. Feche a janela de código.

  11. Na guia controles da caixa de ferramentas, selecione CommandButton e colocá-lo no formulário de utilizador como um botão Fechar . Clique com botão direito CommandButtone, em seguida, clique em Exibir código no menu de atalho. Altere o código CommandButton para:

    Private Sub Cmdclose_Click()
    End
    End Sub
  12. Feche a janela de código.

  13. Clique com botão direito CommandButtone, em seguida, clique em Propriedades no menu de atalho. Na guia alfabético , renomeie (nome) para Cmdclosee, em seguida, renomeie legenda para Fechar. Feche a janela Propriedades de CommandButton .

A caixa de combinação UserForm está concluída. Vá para o procedimento "Criar a Macro de Introdução".

Criar a Macro de entrada

  1. Na janela Project, seleccione o TemplateProject.

  2. No menu Inserir , clique em módulo. Uma folha de códigos de módulo em branco é exibida.

  3. Digite o código a seguir:

    Sub gocombobox()
    frmcombo.Show
    End Sub

A macro de Introdução está concluída. No menu arquivo , clique em Fechar e retornar ao Microsoft Word.

Criar o campo de formulário texto

  1. No modelo, no menu Exibir , aponte para barras de ferramentase, em seguida, clique em formulários.

  2. Posicione o ponto de inserção onde você deseja que o resultado da lista suspensa inserido. Na barra de ferramentas formulários , clique em Campo de formulário texto (o primeiro botão à esquerda). O Campo de formulário texto é inserido no modelo como sombreado cinza.

    Observação: se você vir o campo FORMTEXT} {, pressione ALT + F9 para desativar os códigos de campo.

  3. Clique com botão direito no Campo de formulário textoe, em seguida, clique em Propriedades no menu de atalho.

  4. Na caixa de diálogo Opções do campo de formulário texto , na seção Executar macro em , selecione a macro gocombobox o entrada: chamado caixa de combinação.


    Nota: Verifique se o nome de marcador do campo de formulário de texto é o mesmo que você especificou na etapa 9 do procedimento "Criar a caixa de combinação UserForm" neste artigo.

  5. Na barra de ferramentas formulários , clique em Proteger formulário.

  6. Salve e feche o modelo.

Para usar o modelo no Word 2003 e em versões anteriores, clique em novo no menu arquivo . Selecione seu modelo e, em seguida, clique em Okey.

Para usar o modelo no Word 2007, clique no Botão do Microsoft Office, clique em novo, selecione o modelo e, em seguida, clique em criar.

Um novo documento baseado no modelo é exibida. O UserForm que contém a ComboBox com os itens é exibida quando você usar a tecla TAB para mover para o campo de formulário texto.

Precisa de mais ajuda?

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Microsoft Insider

Essas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade do idioma?
O que afetou sua experiência?

Obrigado pelos seus comentários!

×