Feedback

VB - Textmarken in Word füllen

Veröffentlicht von am 19.05.2008
(1 Bewertungen)
Textmarken in Word füllen.
Textmarke muss vorhanden sein.
Fragen an: h.franke@wirtschaftssoft.de
'Wichtig:        1. erstens    Textmarke: Kundenname muss im Worddokument vorhanden sein !
'                       2.  zweitens Verweis aus Microsoft.Office.Interop.Word in der Entwicklungsumgebung setzten
'                       (C)   Heiko Franke Dipl. Wirtschaftsinformatiker / FH

Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.Word
Imports System.IO
Public Class Form1
    Dim strFileName As String

    Private Function dok(ByVal textmarke As String, ByVal textm_value As String)

        Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Document
        Try
            'word.Visible = (True) 'Word sehen zum Test?
            doc = word.Documents.Open("c:\\schreiben.dot")
            doc.Activate()

            If doc.Range.Bookmarks.Exists(textmarke) Then
                doc.Bookmarks().Item(textmarke).Range.Text = textm_value

            Else
                MessageBox.Show("Textmarke nicht vorhanden!")
            End If

            doc.SaveAs("c:\\test.doc")
            doc.Close()
            MessageBox.Show("Datei erstellt")

        Catch ex As IOException
            MessageBox.Show("Datei nicht vorhanden.")

        Finally
            word.Application.Quit()
        End Try

        Return (0)

    End Function

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Funktionsaufruf
        dok("Kundenname", "franke")      ' dok( Textmarke, Inhalt)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


End Class


Abgelegt unter Word, Office.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!