Bilder mit Dateinamen einfügen und Formatvorlagen zuweisen

  • Word

    Bilder mit Dateinamen einfügen und Formatvorlagen zuweisen

    Moin,

    ich muß immer wieder Bilder und den Dateinamen (ohne Pfad und Extention) in Word 2007 Dokumente einfügen.
    Nach Suche im Netz fand ich hier ms-office-forum.net/forum/showthread.php?t=255901
    folgende Lösung:

    Visual Basic-Quellcode

    1. Sub InsertPicture()
    2. Dim ret As Integer, sPic As String
    3. With Dialogs(wdDialogInsertPicture)
    4. ret = .Show
    5. If ret = vb True Then
    6. sPic = CurDir & .Name
    7. Selection.InsertBreak wdLineBreak
    8. Selection.InsertAfter sPic
    9. Selection.InsertParagraphAfter
    10. Selection.Collapse wdCollapseEnd
    11. End If
    12. End With
    13. End Sub


    Ich habe es dann geschafft als VB-DAU das Script so anzupassen, das nur der Dateiname im Dokument landet:

    Visual Basic-Quellcode

    1. Sub InsertPicture()
    2. Dim ret As Integer, sPic As String
    3. With Dialogs(wdDialogInsertPicture)
    4. ret = .Show
    5. If ret = vbTrue Then
    6. sPic = Dateiname_von(.Name)
    7. Selection.InsertBreak wdLineBreak
    8. Selection.InsertAfter sPic
    9. Selection.InsertParagraphAfter
    10. Selection.Collapse wdCollapseEnd
    11. End If
    12. End With
    13. End
    14. Sub Function Dateiname_von(aa) As String 'Dateiname abtrennen
    15. Dateiname_von = Mid(aa, InStrRev(aa, "\") + 1)
    16. Dateiname_von = Mid(Dateiname_von, 1, Len(Dateiname_von) - 4)
    17. End Function


    Was mir jetzt noch fehlt, und dazu habe ich keine Lösung gefunden, sind folgende Punkte:
    1. Dem Bild die Formatvorlage "Standard" zuweisen
    2. Dem Dateinamen die Vorlage "Untertitel" zuweisen.
    3. Die Höhe des Bildes auf 10cm festlegen
    4. das das Script auch richtig arbeitet, wenn man mehrere Bilder auswählt.
    Im Moment passiert bei Punkt 4. folgendes:
    Alle Bilder werden eingefügt, aber nur unter dem letzt wird ein Text platziert.
    Und die Reihenfolge der Bilder entspricht nicht unbedingt der aus dem Bilderauswahldialog.
    Ich habe die Fragen auch schon mal hier gepostet: vba-forum.de/forum/View.aspx?z…d_Formatvorlagen_zuweisen
    aber da dort stundenlang keine neuen Postings kommen, scheint dort weniger gelsen zu werden als hier.
    MfG
    Heiko Rompel

Facebook
Telefonspende