Do Básico ao Avançado
Home  Tutoriais  Artigos  Contato

Criar novos documentos usando o VBA

Neste tutorial criaremos uma pequena aplicação cujo objetivo é criar novos documentos de acordo com a quantidade informada em uma caixa de texto do formulário.

Este tutorial será bastante extenso para que aqueles que não têm nenhum conhecimento sobre VBA possam acompanhar todo o desenvolvimento, desde a elaboração do formulário até a criação do código.

Primeiramente vamos acessar o Editor do Visual Basic e construir passo a passo um formulário ao qual daremos o nome de frmcriadoc2 e assim que o formulário estiver concluído passaremos à criação do código que dará funcionalidade ao formulário.

Para acessar o Editor do Visual Basic acione a Guia Desenvolvedor e no Grupo Código clique em Visual Basic. Caso a Guia Desenvolvedor não esteja visível veja neste tutorial Como exibir a Guia Desenvolvedor no Word 2010.

Editor do Visual Basic

Criando o Formulário

No Editor do Visual Basic clique no Menu Inserir e depois clique em UserForm.

UserForm

Selecione o Formulário (UserForm1).

Criar novos documentos

Na Janela Propriedades faça as seguintes alterações:

Name: frmcriadoc (Nome do Formulário)
Caption: Criar Novo Documento (Título do Formulário)
Height: 145,50 (Altura do Formulário)
Width: 297,75 (Largura do Formulário)

Criar novos documentos

O formulário deverá ficar como o da imagem abaixo:

Formulário criar novos documentos

Agora devemos adicionar alguns controles ao formulário. Para esse formulário necessitaremos das seguintes ferramentas:

Quantidade

Controle

 

1

Label

(Rótulo)

1

Frame

(Quadro)

1

TextBox

(Caixa de Texto)

2

CommandButton

(Botão de Comando)



Na Caixa de Ferramentas clique na ferramenta Quadro (Frame).

Inserir Quadro

Em seguida arraste-o e solte sobre o formulário para adicionar este controle.

Adiconar controle

Com o Quadro (Frame) selecionado altere as seguintes propriedades:

Caption: (Título do Frame - deixar esta propriedade em branco)
Height: 72 (Altura do Frame)
Left:6 (Posição do Frame com relação a lateral esquerda do Formulário)
Top: 18 (Posição do Frame com relação ao Topo do Formulário)
Width: 276 (Largura do Frame)

Criar novos documentos

Deverá ficar como na imagem abaixo:

Criar novo documento

Agora vamos adicionar a Caixa de Texto (TextBox) ao Formulário. Para isso na Caixa de Ferramentas clique na ferramenta Caixa de Texto (TextBox).

Criar documento novo

Em seguida, no Formulário, clique dentro do Quadro (Frame) para adicionar a Caixa de Texto ao formulário.

Novo Documento

Com a Caixa de Texto (TextBox) selecionada altere as seguintes propriedades:

Name: txtNumDoc (nome da caixa de texto)
Font: Tahoma, Tamanho 12 (tipo e tamanho da fonte)
Height: 24 (altura da caixa de texto)
Left: 12 (distância da lateral do Quadro)
Top: 30 (distância do topo do Formulário)
Width: 180 (largura da caixa de texto)

Janela de Propriedades

Depois de alterada suas propriedades a Caixa de Texto adicionada em nosso formulário deverá ficar como na imagem abaixo:

Formulário

Continuando vamos adicionar a um Rótulo (Label) um pouco acima da Caixa de Texto.

Adicionar Rótulo

Com o Rótulo (Label) selecionado altere as seguintes propriedades:

Caption: Informe o número de documentos que deseja criar.
Font: Tahoma, Tamanho 11 (tipo e tamanho da fonte)
Height: 18 (altura da caixa de texto)
Left: 6 (distância da lateral do Quadro)
Top: 6 (distância do topo do Formulário)
Width: 180 (largura da caixa de texto)

Propriedades

Observe como deve ficar o Rótulo que acabamos de adicionar ao formulário:

Formulário

Na Caixa de ferramentas clique agora na ferramenta Botão de Comando (CommandButton) para adicionar um botão ao formulário. Este primeiro botão deverá ficar dentro do Quadro (Frame), de preferência na frente da Caixa de Texto.

Botão de Comando

Com o Botão de comando (CommandButton) selecionado altere as seguintes propriedades:

Caption: Criar
Font: Tahoma, Negrito, Tamanho 10 (tipo e tamanho da fonte)
Height: 24 (altura da caixa de texto)
Left: 198 (distância da lateral do Quadro)
Top: 30 (distância do topo do Formulário)
Width: 66 (largura da caixa de texto)

Propriedades do botão de comando

Observe como deve ficar o botão que acabamos de adicionar ao formulário:

Formulário

Novamente na Caixa de ferramenta clique em Botão de Comando (CommandButton) para adicionar o segundo botão ao formulário. Este segundo botão deverá ser posicionado fora do Quadro (Frame).

Botão de Comando

Com o Botão de comando (CommandButton) selecionado altere as seguintes propriedades:

Caption: Sair
Font: Tahoma, Negrito, Tamanho 10 (tipo e tamanho da fonte)
Height: 24 (altura da caixa de texto)
Left: 114 (distância da lateral do Quadro)
Top: 96 (distância do topo do Formulário)
Width: 66 (largura da caixa de texto)

Propriedades do botão de comando

Observe como deve ficar o botão que acabamos de adicionar ao formulário:

Formulário Criar novos documentos

Agora selecione o formulário e clique em Executar para ver como ficou o formulário.

Executar

Eis o formulário em tempo de execução:

Criar novos documentos

Pronto, assim, finalizamos a etapa de criação da interface da nossa aplicação, passaremos agora para a próxima etapa que é a criação do código que fará todo trabalho por trás do formulário.

Então vamos lá...


Selecione a Caixa de Texto (txtNumDoc) em seguida clique com o botão direito do mouse e depois clique em Exibir Código.

Exibir Código

Na Janela de Código selecione o Procedimento KeyPress, como mostra a imagem abaixo:

evento KeyPress

Dentro do evento KeyPress adicione o seguinte código

'Permite somente a digitação de número na Caixa de Texto (TextBox1)

Dim strSoNum As String
strSoNum = "0123456789"
If InStr(strSoNum, Chr(KeyAscii)) = 0 Then
KeyAscii= 0
End If


Deverá ficar como na imagem abaixo:

Janela de Código

Selecione o Botão Criar e clique com o botão direito do mouse sobre ele e depois clique em Exibir Código.

Exibir código do Botão de Comando

Dentro do evento Click adicione o código a seguir:

Dim sNum As Integer
Dim intCounter As Integer
sNum = txtNumDoc

'Cria novo(s) documento(s) de acordo com o número informado na Caixa de Texto

For intCounter = 1 To sNum
Documents.Add
Next intCounter

'fecha o formulário

Unload Me


Ficará como na imagem abaixo:

Criar Novo Documento

Selecione o botão Sair e clique com o botão direito do mouse e selecione Exibir Código.

Dentro do evento Click adicione

Unload Me


Ficará como na imagem abaixo:

Agora criaremos uma macro para abrir o formulário sempre que for necessário.

Na Janela de Código adicione as seguintes linhas de código:

Sub criadocs()

'Abre o formulário

frmcriadoc2.Show
End Sub


Deverá ficar como na imagem abaixo:

Feche o Editor do Visual Basic clicando no Menu Arquivo e depois em Fechar e Voltar para Microsoft Word.

Na Guia Desenvolvedor, no Grupo Código clique em Macros.

Selecione a macro criadocs e clique no botão Executar.

O formulário para criar novos documentos será exibido e você poderá informar no número de documentos que deseja criar. Neste nosso exemplo criaremos 5 documentos, portanto informe o número de documentos e clique no botão Criar.

Observe que Foram criados cinco novos documentos (Documento1, Documento2, Documento3, Documento4 e Documento5).

Faça download do arquivo usado como exemplo neste tutorial: Baixar Arquivo




Conteúdo Correspondente:


eBook Word 2010 VBA

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados