Guten Tag
Ich habe ein VBA-Skript, mit welchem ich in einer Briefvorlage den Absender und die Unterschreibenden im Brief einfügen kann (via Auswahlliste). Die Dateien (Namen und Funktion der Mitarbeitenden) sind in einer Excel-Datei abgelegt. Das Skript fügt den Namen und die Funktion jeweils bei Textmarken in Word ein.
Nun würde ich gerne in einer weiteren Zelle in Word die Unterschriften der Mitarbeitenden hinterlegen (oder den Pfad zu einem Ordner mit den verschiedenen .png) und nun mit der Ausgabe von Name und Funktion auch noch das Bild (Unterschrift) an einer neuen Textmarke in Word ausgeben.
Hat mir irgendjemand eine Idee, welcher Befehl mir das ausführen kann?
Aktuell lautet der funktionierende Codeausschnitt wie folgt:
Private Sub CommandButton1_Click()
Dim oExcelApp As Object
Dim oExcelWorkbook As Object
Dim lZeile As Long
If ListBox1.ListIndex >= 0 Then
Set oExcelApp = CreateObject("Excel.Application")
Set oExcelWorkbook = oExcelApp.Workbooks.Open(sAdressDatei)
lZeile = 2
With oExcelWorkbook.sheets(sTabellenblatt)
Do While .Cells(lZeile, 1) <> ""
If ListBox1.Text = CStr(.Cells(lZeile, 2).Value) Then
'Eintrag gefunden, Textmarken füllen
ActiveDocument.Bookmarks("Absender_Name").Range.Text = _
CStr(.Cells(lZeile, 3).Value)
ActiveDocument.Bookmarks("Absender_Geschlecht").Range.Text = _
CStr(.Cells(lZeile, 4).Value)
ActiveDocument.Bookmarks("Absender_Funktion").Range.Text = _
CStr(.Cells(lZeile, 5).Value)
Exit Do
End If
lZeile = lZeile + 1
Loop
End With
oExcelWorkbook.Close False
oExcelApp.Quit
Else
MsgBox "Bitte wählen Sie einen Eintrag aus der Liste aus!", _
vbInformation + vbOKOnly, "HINWEIS!"
Exit Sub
End If
Set oExcelWorkbook = Nothing
Set oExcelApp = Nothing
Unload Me
End Sub
Kurz: Gibt es einen Befehl, der nach
ActiveDocument.Bookmarks("Absender_Funktion").Range.Text = _
CStr(.Cells(lZeile, 5).Value))
eingefügt werden kann und aus Zelle 6 der Exceltabelle die Unterschrift abholt?
Vielen Dank für allfällige Hilfe.
Joshuah
|