ich hoffe ihr könnt mir auch bei Word VBA helfen. Ich muss Quellpfade von ziemlich vielen verknüpften OLEObjekten in Word ändern. Bei Bildern bekomme ich das per macr hin. Aber bei meinen Textbausteinen leider nicht. Ich habe viele kleine Worddateien in einer großen Datei verknüpft. Mein Makro für die Bild-links sieht so aus:
Sub Test()
Dim Suche As String
Dim Ersetze As String
Dim i As Long
Dim AlleBilder As Integer
For AlleBilder = 1 To i
With ActiveDocument.InlineShapes(AlleBilder)
If .Type = wdInlineShapeLinkedPicture Then
With .LinkFormat
.SourceFullName = Replace(.SourceFullName, Suche, Ersetze)
End With
End If
End With
Next
End Sub
Vielen Dank schon mal