Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Vorformatiertes Word-Dokument aus VB mit Daten füllen
Autor: ugla
Datum: 07.11.02 18:17
Vielleicht hilft dir ja dieses kleine Beispiel weiter: Private WdApp As Word.Application Private Sub WriteBookmarks() Dim FAName As String Dim DokName As String Set WdApp = CreateObject("Word.Application") WdApp.Documents.Add (App.Path & "\vorlagen\Vorlage.dot") WdApp.WindowState = wdWindowStateNormal 'Speicherverzeichnis FAName = App.Path & "\Daten\" & DokName & ".doc" WdApp.ActiveDocument.SaveAs (FAName) WdApp.Visible = False 'Word wird nicht sichtbar geöffnet, True wenn User Kontrolle erhalten soll 'Nun aus Varieblen oder Textboxen den Inhalt übertragen an Bookmarks: WdApp.ActiveDocument.Bookmarks("Name1").Range.Text = "Name1" 'hier können entsprechend Variable verwendet werden. WdApp.ActiveDocument.Bookmarks("Name2").Range.Text = "Name2" WdApp.ActiveDocument.Bookmarks("Strasse").Range.Text = "Strasse" WdApp.ActiveDocument.Bookmarks("PLZ").Range.Text = "00000" WdApp.ActiveDocument.Bookmarks("Ort").Range.Text = "Ort" WdApp.ActiveDocument.Bookmarks("Datum").Range.Text = Format(Now, "dd.mm.yyyy") 'oder zu einem bestimmten Bookmark gehen: 'WdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Name1" 'Kontrolle an den Word-Benutzer, damit dieser "Speichern unter.." "drucken" usw. selber ausführen kann. 'enden mit: 'WdApp.ActiveDocument.Save 'oder WdApp.ActiveDocument.Close 'Wenn automatisch gespeichert und Word geschlossen werden soll WdApp.Quit End Sub Gruss ugla

Vorformatiertes Word-Dokument aus VB mit Daten füllen	678	Torsten P.	07.11.02 15:54
Re: Vorformatiertes Word-Dokument aus VB mit Daten füllen	533	ugla	07.11.02 18:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen