FORMULARIO NO WORD

USUARIO.EXCLUIDOS 06/04/2007 22:41:17
#210651
existe um meio de se fazer um formulário no word que aceite a inserção de dados temporários nele? (é só para impressão, não precisa de salvá-los) Usa-se macro ou Editor de Visual Basic?
WEBER 06/04/2007 23:07:30
#210652
no word diretamente eu nao sei no excel sim vc pode criar um formulario de entrada de dados , mas vc poderia tb fazer um form no vb e passar os dados do form exportando para um documento pre formatado do word
GUTO 07/04/2007 08:26:27
#210661
mas depois da insercao de dados ele pode dar uma msgbox dizendo se vc quer salvar ou nao , ae é so clicar no NAO.... nao pode ser assim ?
ONBASS 07/04/2007 11:20:39
#210689
pelo q entendi, vc pode fazer pelo Editor sim...qq coisa dá um alow.. abço
HELDER 07/04/2007 13:46:52
#210693
http://megapro.forumvila.com/megapro-about6.html
USUARIO.EXCLUIDOS 07/04/2007 14:24:12
#210694
os dados colocados no formulario saum soh para impressaum.naum precisa de salvá-los em bd ou em doc.
grato
Paulo
GUTO 07/04/2007 14:43:36
#210695
Acho que isso aki resolve irmao


Dim Word As Word.Application
Dim cont As Integer
Set Word = New Word.Application
With Word
.Visible = True 'habilita visualizacao do word
.Documents.Add DocumentType:=wdNewBlankDocument

' FORMATAR A FONTE DO TITULO NO WORD NA HORA DA EXPORTACAO

'Tamanho da Fonte
.Selection.Font.Size = "16"
'Alinhamento do Texto - Centralizado
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Negrito
.Selection.Font.Bold = True
'Sublinhado
.Selection.Font.Underline = True

.Selection.TypeText Text:=LblTituloNoWord.Caption

'FORMATA O RESTANTE DO TEXTO NO WORD********

'Sublinhado
.Selection.Font.Underline = False
'Negrito
.Selection.Font.Bold = False
'Enter
.Selection.TypeParagraph
'Alinhamento do Texto - Esquerda
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
'Tamanho da Fonte
.Selection.Font.Size = "12"
'Enter

.Selection.TypeParagraph
.Selection.TypeText Text:=lblcod.Caption & ": " & txtcodC.Text
.Selection.TypeParagraph

.Selection.TypeText Text:=Label1.Caption & ": " & txtcodimo.Text
.Selection.TypeParagraph

.Selection.TypeText Text:=Label20.Caption & ": " & txtcor.Text
.Selection.TypeParagraph

.Selection.TypeText Text:=lblcaptador.Caption & ": " & txtcap.Text
.Selection.TypeParagraph







'***********************************************


End With

Set Word = Nothing

Else
Exit Sub
End If
USUARIO.EXCLUIDOS 07/04/2007 20:04:23
#210711
Obrigadaum Guto, quero atribuir pontos, mas naum sei. Alguem me ensina?
Tópico encerrado , respostas não são mais permitidas
Voltar