• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Batista15

[Resolvido]Guardar em um documento word

8 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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%

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 )

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

Partilhar esta mensagem


Link 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