Kleines VBS-Skript zum Wordbrief an Kunden schreiben

VBS Brief schreiben

Sub Brief_schreiben()

Dim word_app As Word.Application
Dim word_doc As Word.Document

' Aktive Zelle ermitteln und Adresse rausfischen
Dim CustomerAddress as string
CustomerAddress = Cells(ActiveCell.Row, 4).value
If CustomerAddress = "" Then
MsgBox "Bitte Kunde auswählen", , "Fehler"
Exit Sub
End If

' Word oeffnen und neues Dokument erstellen
Set word_app = New Word.Application
Set word_doc = word_app.Documents.Add(DocumentType:=wdNewBlankDocument)

' Adresse schreiben
word_app.Selection.TypeText CustomerAddress

End Sub