Ir para o conteúdo
Batista15

[Resolvido]Guardar em um documento word

Mensagens Recomendadas

Batista15    0
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


Link para a mensagem
Partilhar noutros sites
José Lopes    1
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%

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Hellblazer    0
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:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Batista15    0
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


Link para a mensagem
Partilhar noutros sites
José Lopes    1
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 )

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Batista15    0
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


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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade