title image


Smiley Das geht so:
Private Sub Word_Click()Dim Tmp, WordObj As Object 'Word.Application On Error Resume Next Set WordObj = GetObject(, "Word.Application ") If Err.Number 0 Then Set WordObj = CreateObject("Word.Application") On Error GoTo 0 With WordObj .Application.Visible = True .Documents.Add "I:\Samples\vorlage.dot" Tmp = "Herrn " & Me!Vorname & " " & Me!Nachname & _ vbCrLf & Me!Strasse & vbCrLf & Me!PLZ & " " & Me!Ort With .Selection .Goto What:=wdGoToBookmark, Name:="Anrede"' .Find.ClearFormatting .TypeText Text:=Tmp End With .ActiveDocument.SaveAs FileName:="""" & Me!FName & """", FileFormat:=wdFormatDocument .Application.Quit End With Set WordObj = NothingEnd SubVerweis auf die Word-OLB nicht vergessen!Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: