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

© 2013 Tutoriais Word - Todos os direitos reservados