c't 18/00
Private Sub cmdBrief_Click()
Dim objWord As Object
On Error Resume Next
Set objWord = GetObject(, _
"Word.Application")
If objWord Is Nothing Then
MsgBox "Word ist nicht aktiv."
Exit Sub
End If
With objWord
Visible = True
With .Selection
TypeText Me.Firma & vbCr
TypeText Me.Abteilung & vbCr
TypeText Me.Anrede & " " & _
Me.Vorname & " " & _
Me.Nachname & vbCr
TypeText Me.Adresse & vbCr _
& vbCr
TypeText Me.PLZ & " " & _
Me.Ort & vbCr
End With
.Activate
Set objWord = Nothing
End With
End Sub
Im Unterschied zu der in c't 9/2000 veröffentlichten Lösung, die den Serienbrief-Mechanismus von Word und eine Dokumentvorlage zur Formatierung nutzt, können bei dieser Variante unerwünschte Leerzeilen aufgrund fehlender Feldinhalte entstehen. Außerdem haben Sie keinen Einfluss auf die Formatierung der eingefügten Feldinhalte. (Ralf Nebelo/se)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-308604
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
RSS
