Ir para o conteúdo
Batista15

[Resolvido]Guardar em um documento word

Mensagens Recomendadas

Batista15

Tenho este pedaço de código assim:

Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click
        ' Aqui são definidas as características do SaveDialog.
        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "doc"
        Me.SaveFileDialog1.Filter = "Ficheiros de texto (*.doc)|(*.doc"


        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            ' Neste comando guarda todo o texto introduzido na formno ficheiro.
            File.WriteAllText(Me.SaveFileDialog1.FileName, NomeTextBox.Text & IdadeTextBox.Text & MoradaTextBox.Text)
        End If
    End Sub

E aparece:

guardaremumdecomento.jpg

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
José Lopes

Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click
        ' Aqui são definidas as características do SaveDialog.
        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "doc"
        Me.SaveFileDialog1.Filter = "Ficheiros de texto (*.doc)|(*.doc"
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim strAux as string
           straux = "Nome:"& NomeTextBox.Text & vbnewline
           strAux + = "Idade:" &  IdadeTextBox.Text & vbnewline
           strAux + = "Morada:" &  MoradaTextBox.Text & vbnewline
           File.WriteAllText(Me.SaveFileDialog1.FileName, strAux )
        End If
    End Sub

Não testei...mas deve funcionar

De qualquer maneira...enviar isto assim para o word é forçado... para o txt na boa... mas para o Word...hum..... não sei se sairá a 100%


Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Hellblazer

Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click
        ' Aqui são definidas as características do SaveDialog.
        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "doc"
        Me.SaveFileDialog1.Filter = "Ficheiros de texto (*.doc)|(*.doc"
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim strAux as string
           straux = "Nome:"& NomeTextBox.Text & vbnewline
           strAux + = "Idade:" &  IdadeTextBox.Text & vbnewline
           strAux + = "Morada:" &  MoradaTextBox.Text & vbnewline
           File.WriteAllText(Me.SaveFileDialog1.FileName, strAux )
        End If
    End Sub

Não testei...mas deve funcionar

Atenção que por vezes nao se tem o NameSpace Microsoft.VisualBasic importado na Solução...

Caso isso aconteca para utilizar o vbnewline precisam de fazer o Import desse mesmo namespace :cheesygrin:


There are two ways to write error-free programs; only the third one works.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Batista15

Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click
        ' Aqui são definidas as características do SaveDialog.
        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "doc"
        Me.SaveFileDialog1.Filter = "Ficheiros de texto (*.doc)|(*.doc"
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim strAux as string
           straux = "Nome:"& NomeTextBox.Text & vbnewline
           strAux + = "Idade:" &  IdadeTextBox.Text & vbnewline
           strAux + = "Morada:" &  MoradaTextBox.Text & vbnewline
           File.WriteAllText(Me.SaveFileDialog1.FileName, strAux )
        End If
    End Sub

Não testei...mas deve funcionar

De qualquer maneira...enviar isto assim para o word é forçado... para o txt na boa... mas para o Word...hum..... não sei se sairá a 100%

Resolvido! 100% Muito Obrigado

E já agora alguém sabe se também da para checkboxs?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
José Lopes

Alguém sabe para checkboxs como faço? :)

Crias esta função

Private Function RetornaStringFromBoolean(ByVal ynChecked As Boolean) As String
        If ynChecked Then
            Return "Sim"
        Else
            Return "Não"
        End If
    End Function

depois na hora de escreve o texto:

....

            straux = "Nome:"& NomeTextBox.Text & vbnewline
           strAux + = "Idade:" &  IdadeTextBox.Text & vbnewline
           strAux + = "Morada:" &  MoradaTextBox.Text & vbnewline
           strAux + = "resultado checbox:" &  RetornaStringFromBoolean(checkbox1.checked) & vbnewline
           File.WriteAllText(Me.SaveFileDialog1.FileName, strAux )


Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Batista15

Crias esta função

Private Function RetornaStringFromBoolean(ByVal ynChecked As Boolean) As String
        If ynChecked Then
            Return "Sim"
        Else
            Return "Não"
        End If
    End Function

depois na hora de escreve o texto:

....

            straux = "Nome:"& NomeTextBox.Text & vbnewline
           strAux + = "Idade:" &  IdadeTextBox.Text & vbnewline
           strAux + = "Morada:" &  MoradaTextBox.Text & vbnewline
           strAux + = "resultado checbox:" &  RetornaStringFromBoolean(checkbox1.checked) & vbnewline
           File.WriteAllText(Me.SaveFileDialog1.FileName, strAux )

E que agora da-me problema porque eu tenho uma listview a trabalhar e quando vou a carregar os dados a base de dados e quando guardei com a checkbox seleccionada! Mas apenas aparece "True" ao lado da checkbox como faco para aparecer o certinho?  :wallbash:

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.