Dummerweise habe ich in manchen Texten Bilder eingebunden und würde zugerne wissen, wo sie sich auf meiner HD befinden. Gibt es eine Methode in Word 2000 die Bildadresse herauszufinden?
Gruß, Alexander
Hallo Alexander!
Da wirst Du wohl nach allen Bildern dieses Formates suchen müssen und Dir dann das richtige rausfischen. Das kann natürlich mühsam sein. Denn das eingebundene Bild befindet sich ja jetzt sozusagen als Kopie in Deiner Word-Datei. Das ist dann auch die Adresse.
Gruß
Stefanie
Dummerweise habe ich in manchen Texten Bilder eingebunden und
würde zugerne wissen, wo sie sich auf meiner HD befinden. Gibt
es eine Methode in Word 2000 die Bildadresse herauszufinden?
Gruß, Alexander
Dummerweise habe ich in manchen Texten Bilder eingebunden und
würde zugerne wissen, wo sie sich auf meiner HD befinden. Gibt
es eine Methode in Word 2000 die Bildadresse herauszufinden?
Gruß, Alexander
Hi Alexander,
wenn du sie nur verknüpft hast, kommst du mit Bordmitteln von Word einfach auf den Pfad, zumindest Bild für Bild.
Wenn sie richtig eingebettet sind, wird es schwieriger, nicht unlösbar, aber schwieriger weil dann brauchts du ein längeres VBA-Makro.
Schau halt mal auf den Seiten wo es Word-Makros gibt, ich habe da jetzt leider keine Adressen parat weil ich Word-Makros selten brauche.
Gruß
Reinhard
Bildadresse wieder finden - so geht´s
Dummerweise habe ich in manchen Texten Bilder eingebunden und
würde zugerne wissen, wo sie sich auf meiner HD befinden. Gibt
es eine Methode in Word 2000 die Bildadresse herauszufinden?
Gruß, Alexander
Hallo Alex,
also eigentlich sollte es ganz einfach sein: Mit Alt-F9 schaltest Du die Feldfunktionen ein und aus. Da gelinkte Bilder auch mit Feldern realiesiert werden, geben sie dadurch ihr Geheimnis frei.
Wer es etwas umfangreicher mag oder auch komfortabler, der nehme z.B. dieses kleine Makro hier:
Option Explicit
Option Base 1
'Makros für WerWeissWas von Kristian, 16.07.02
Sub ZeigeBildPfade()
Dim s As Integer
Dim i As Integer
Dim Dateiname As String
Dim Liste As String
Liste = ""
With ActiveDocument
Liste = "Shapes (weiße Ziehpunkte):" & vbCr & "--------------------------" & vbCr
For s = 1 To .Shapes.Count
Dateiname = "---"
On Error Resume Next
Dateiname = .Shapes(s).LinkFormat.SourceFullName
On Error GoTo 0
Liste = Liste & s & ") " & Dateiname & vbCr
Next s
Liste = Liste & vbCr & vbCr & "Inline-Shapes (schwarze Ziehpunkte):" & vbCr & "------------------------------------" & vbCr
For i = 1 To .InlineShapes.Count
Dateiname = "---"
On Error Resume Next
Dateiname = .InlineShapes(i).LinkFormat.SourceFullName
On Error GoTo 0
Liste = Liste & i & ") " & Dateiname & vbCr
Next i
End With 'ActiveDocument
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 300, 300).Select
With Selection
.ShapeRange.TextFrame.TextRange.Select
.Collapse
.Font.Name = "Courier New"
.Font.Name = "Courier New"
.Font.Size = 10
.TypeText Liste
End With 'Selection
With Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(204, 255, 255)
.Shadow.Type = msoShadow14
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.Left = 10
.Top = 10
End With 'Selection.ShapeRange
End Sub 'ZeigeBildPfade
Sub SelektiereShape()
Dim n As Integer
n = 0
Err.Clear
On Error Resume Next
n = CInt(InputBox("positiv: InlineShape, " & vbCr & "negativ: Shape", "Nummer eingeben bitte", 1))
Select Case n
Case 0
MsgBox "Abbruch oder Eingabefehler", vbCritical, "Fehler"
Case Is \> 0
ActiveDocument.InlineShapes(n).Select
If Err.Number 0 Then MsgBox "Es gibt kein Inline-Shape mit der Nummer " & n & ".", vbCritical, "Fehler"
Case Is 0 Then MsgBox "Es gibt kein Shape mit der Nummer " & -n & ".", vbCritical, "Fehler"
End Select 'n
On Error GoTo 0
End Sub 'SelektiereShape
Viele Grüße,
Kristian