Class Vraag

[old Hippy]

Beste Jabber

Het werkt nu helemaal zo als ik wil.:thumb:
Kan meerdere facturen maken ze worden nu goed weggeschreven.
ik wil je heel hartelijk bedanken voor alle moeite:thumb::thumb::thumb::thumb:
Ik ben hier echt heel erg blij mee.

Hartelijke groeten Old Hippy

dit is de code zo als ik hem nu gebruik.

#Region "Factuur invullen "

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Label21.Visible = True
        openWordApp()
        updateWordDocument("C:\Facturen\factuur1.doc")
    End Sub

    Private Sub updateWordDocument(ByVal documentFileName As String)
        'Word documen invullen
        Dim templateWord As Microsoft.Office.Interop.Word.Document = Nothing
        Try
            openWordApp()
            templateWord = wordApp.Documents.Open(CType(documentFileName, Object))
            templateWord.Bookmarks("Text1").Range.InsertAfter(FacnaamTextBox.Text)
            templateWord.Bookmarks("Text2").Range.InsertAfter(FacAdresTextBox.Text)
            templateWord.Bookmarks("Text3").Range.InsertAfter(FacPostcodePlaatsTextBox.Text)
            templateWord.Bookmarks("Text4").Range.InsertAfter(FacNummerTextBox.Text)
            templateWord.Bookmarks("Text5").Range.InsertAfter(FacnaamTextBox.Text)
            templateWord.Bookmarks("Text6").Range.InsertAfter(FacAdresTextBox.Text)
            templateWord.Bookmarks("Text7").Range.InsertAfter(FacPostcodePlaatsTextBox.Text)
            templateWord.Bookmarks("Text8").Range.InsertAfter(GeboortedatumTextBox.Text)
            templateWord.Bookmarks("Text9").Range.InsertAfter(HuisartsTextBox.Text)
            templateWord.Bookmarks("Text10").Range.InsertAfter(FacTextBox4.Text)
            templateWord.Bookmarks("Text11").Range.InsertAfter(FacTextBox5.Text)
            templateWord.Bookmarks("Text12").Range.InsertAfter(FacTextBox6.Text)
            templateWord.Bookmarks("Text13").Range.InsertAfter(FacTariefTextBox.Text)
            templateWord.Bookmarks("Text14").Range.InsertAfter(FacAantalzittingen.Text)
            templateWord.Bookmarks("Text15").Range.InsertAfter(FacTariefTextBox.Text)
            templateWord.Bookmarks("Text16").Range.InsertAfter(FacTotaal.Text)
            templateWord.Bookmarks("Text17").Range.InsertAfter(FacTextBox7.Text)
            templateWord.Bookmarks("Datum").Range.InsertAfter(Datum.Text)

        Finally
            If Not IsNothing(templateWord) Then

                templateWord.SaveAs("Factuur1a.doc")
                templateWord.Close()
            End If

            closeWordApp()
        End Try


    End Sub

    Private Shared wordApp As Microsoft.Office.Interop.Word.Application
    ' Open and close word application
    Private Shared Sub openWordApp()
        If IsNothing(wordApp) Then
            wordApp = New Microsoft.Office.Interop.Word.Application
            wordApp.Visible = False

        End If

    End Sub

    Private Shared Sub closeWordApp()
        If Not IsNothing(wordApp) Then
            wordApp.Quit()
            wordApp = Nothing
        End If
    End Sub

#End Region

 

[Jabber]

Heel graag gedaan....

De draad kan op slot. vink je hem af?