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

Sign in to follow this  
Batista15

[Resolvido]Guardar em um documento word

Recommended Posts

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

Share this post


Link to post
Share on other 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á!!

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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?

Share this post


Link to post
Share on other 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á!!

Share this post


Link to post
Share on other 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:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.