title image


Smiley Re: Excel - Word
Hallo,



hier ist ein Beispiel für dich:

Beispiel.zip



Kurzer Inhalt:

+++ Anfang +++



Private MSWord As Object



Private Sub CommandButton1_Click()

On Error GoTo Fehler



Set MSWord = CreateObject("Word.Application") 'Mit dem MS-Word verbinden



MSWord.Application.Documents.Open (ThisWorkbook.Path & "\Template.doc") 'Dokument öffnen



MSWord.Visible = True 'MS-Word anzeigen



'Textmarken fühlen

Call Textmarke_fühlen("Vorname", TextBox1.Text)

Call Textmarke_fühlen("Nachname", TextBox2.Text)

Call Textmarke_fühlen("Erstelldatum", Format(Date, "dd.MM.yyyy"))



MSWord.Application.Documents.Item(1).SaveAs Filename:=ThisWorkbook.Path & "\" & TextBox1.Text & " " & TextBox2.Text



Set MSWord = Nothing



Exit Sub

Fehler:

MsgBox "Fehler :" & Err.Number

End Sub



Private Sub Textmarke_fühlen(Textmarke$, Inhalt$)

On Error GoTo Fehler



With MSWord.Selection

.Goto What:=-1, Name:=Textmarke

.TypeText Text:=Inhalt

.MoveLeft Count:=Len(Inhalt), Extend:=1

.Bookmarks.Add Textmarke

End With



Exit Sub

Fehler:

MsgBox "Fehler :" & Err.Number

End Sub



+++ Ende +++





Mit freundlichnen Grüßen







Andreas Graf


Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: