title image


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



ein Beispiel getestet in Word XP. Es funktioniert nur mit verknüpften Grafiken.

Sub Test()

'Textfluss: nur Mit Text in Zeile

'Funktioniert nicht mit Shapes

For Each myPic In ActiveDocument.InlineShapes

'markieren

myPic.Select

'

'nur verknüpfte Grafiken berücksichtigen

If myPic.Type = wdInlineShapeLinkedPicture Then

'MsgBox myPic.LinkFormat.SourcePath & "\" _

'& myPic.LinkFormat.SourceName

'Pfad un Name der verknüpften Grafik

slink = vbCrLf & myPic.LinkFormat.SourcePath & "\" _

& myPic.LinkFormat.SourceName

'Markierung aufheben

Selection.Collapse Direction:=wdCollapseEnd

'Inhalt der Variablen sLink einfügen

Selection.TypeText Text:=slink & vbCrLf

End If

Next myPic

End Sub      Hubert





geschrieben von

Anhang
Bild 11668 zu Artikel 548883

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: