Textmarke in Filename übernehmen

[knoebi]

Hallo Word-Spezialisten,

ich habe folgende Problematik. Es liegen einige jpg-Dateien für verschieden Bearbeiter bereit. Aus einer Datenbank kommen die Kürzel z.b. "FS" in einer Textmarke = SachBearbKuerzel. Wie kann ich jetzt diesen kleinen String in meinem Dateipfad einsetzten?

Sub signatur()
# Signatur einfügen
    With ActiveDocument.Bookmarks
     Set sbkurz = ActiveDocument.Bookmarks("SachBearbKuerzel").Range
    ActiveDocument.Bookmarks("signatur").Select
    Selection.InlineShapes.AddPicture FileName:= _
        "P:\PDF\signaturen\<sbkurz>.jpg", LinkToFile:=True, SaveWithDocument:=False
    End With

End Sub

Danke

 

[DrSoong]

So wie bei normalen Texten auch:

' KürzelAusDatenbank ist eine Variable mit deinem Kürzel aus der Datenbank (musst du natürlich zuweisen)
    Selection.InlineShapes.AddPicture FileName:= _
        "P:\PDF\signaturen\" & KürzelAusDatenbank & ".jpg", LinkToFile:=True, SaveWithDocument:=False

Der Doc!

 

[knoebi]

Hallo DrSoong,

wird die Variable "KürzelAusDatenbank" mit Set gesetzt, so wie in meinem Beispiel oder kann ich einfach "ActiveDocument.Bookmarks("SachBearbKkürzel_00")" zwischen den beiden & einsetzen?

With ActiveDocument.Bookmarks
Set sbkurz = ActiveDocument.Bookmarks("SachBearbKkürzel_00").Range
ActiveDocument.Bookmarks("signatur").Select
Selection.InlineShapes.AddPicture FileName:= _
"P:\PDF\signaturen\" & sbkurz & ".jpg", LinkToFile:=True, SaveWithDocument:=False
End With

 

[DrSoong]

Ich hab nur aus Erklärgründen eine Variable benutzt, wenn du den Wert direkt aus dem Dokument auslesen willst, geht das natürlich auch.


Der Doc!