title image


Smiley Re: Word 2003: Bildernamen per VBA ins Dokument übernehmen
Hallo liebe Claudia,



ich habe leider bisher nur eine Schmalspurlösung, denn ich habe noch nicht herausgefunden, wie man eine Beschriftung wiederum anfragen kann. Somit führt das Makro mehrmals ausgeführt zu Mehrfacheinträgen. Es kann aber sicherlich einen Lösungsansatz darstellen.









Sub Verknupfte_Bilder_Im_Dokument_Mit_Bilddateiname_Beschriften()



    Dim sPicPath As String

    Dim sField As Field

    Const INCLUDEPICTURE = "INCLUDEPICTURE"



    For Each sField In ActiveDocument.Fields

        If InStr(sField.Code, INCLUDEPICTURE) > 0 Then



            picArr = Split(sField.Code, """")

            sPicPath = picArr(1)

            sPicPath = Replace(sPicPath, "\\", "\")

            sPicPath = Replace(sPicPath, "//", "/")

            sField.Select



            Selection.InsertCaption Label:="Abbildung", _

                                    Title:=" : " & sPicPath, _

                                    Position:=wdCaptionPositionBelow, _

                                    ExcludeLabel:=0

        Else



            ' hier kein verknüpftes Bild-Feld



        End If



    Next



End Sub







Code eingefügt mit Syntaxhighlighter 4.0




 
Gruß Martin




eMail und OfficeLine




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: