1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
'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
|