Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Word VBA Pfad von OLEObject ändern
17.01.2019 08:16:19
OLEObject
Guten Morgen zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word VBA Pfad von OLEObject ändern
17.01.2019 09:40:12
OLEObject
Hallo,
Da i nicht definieet wurde, also 0ist, wird die Schleife nie durchlaufen.
Mfg
AW: Word VBA Pfad von OLEObject ändern
17.01.2019 09:55:41
OLEObject
Hallo Fennek,
danke für die Antwort. Hatte den Code aus einem großen rauskopiert. Die Zeile hat gefehlt. Sorry.
i = ActiveDocument.InlineShapes.Count
Ich mache das gleiche für wdInlineShapeLinkedPicture und da funktioniert es komischerweise.
AW: Word VBA Pfad von OLEObject ändern
17.01.2019 09:56:57
OLEObject
Das ist der ganze code:
Sub Verknüpfungen_Massenweise_bearbeiten()
Dim Suche As String
Dim Ersetze As String
Dim Auswahl As String
Dim i As Long
Dim AlleBilder As Integer
Dim AlleTextbausteine As Integer
Suche = UserForm3.TextBox1
Ersetze = UserForm3.TextBox2
Auswahl = UserForm3.ComboBox1
i = ActiveDocument.InlineShapes.Count
If Auswahl = "Bild-Links" Then
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
Else
If Auswahl = "Textbausteine" Then
For AlleTextbausteine = 1 To i
With ActiveDocument.InlineShapes(AlleTextbausteine)
If .Type = wdInlineShapeLinkedOLEObject Then
With .LinkFormat
.SourceFullName = Replace(.SourceFullName, Suche, Ersetze)
End With
End If
End With
Next
Else
MsgBox ("Nichts passiert")
End If
End If
MsgBox ("Fertig...Aber kontrollier es lieber noch mal an ein zwei Stichproben!")
Unload UserForm3
End Sub

Anzeige

160 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige