aus einer Excel-Anwendung rufe ich Word für den Ausdruck auf.
Dafür habe ich verschidene Proceduren.
Innerhalb dieser Proceduren, wiederholt sich folgende Sequenz:
Sub Brief()
Set ObjWord = GetObject("Word.Application")
If ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
End If
On Error GoTo 0
If Not ObjWord Is Nothing Then
Set DocNeu = ObjWord.Documents.Add(Template:= _
Workbooks("Jutta.xls").Sheets("Konstanten").Range("aLW").Value _
& Workbooks("Jutta.xls").Sheets("Konstanten").Range("Vorlagen").Value _
& Workbooks("Jutta.xls").Sheets("Konstanten").Range("Handakte").Value)
End If
With DocNeu
Formfileds........
End With
End
Sub
lediglich der letzte Teile (hier .Range("Handakte").Value) ist verschieden. Wie packe ich diese _
Geschichte in einen Procedur-Aufruf?
Für eine Antwort recht herzlichen Dank.
Mit freundlichen Grüßen
Albrecht
Warum packt er den Rest in ein Programm?