Change link path to a number of figures efficiently

gmayor · #5 11-08-2018, 03:21 AM

Assuming the number only appears once in the link path, then Paul's code can be modified e.g.

Code:

Sub Demo()
    Application.ScreenUpdating = False
    Dim i As Long
    With ActiveDocument
        For i = .Shapes.Count To 1 Step -1
            With .Shapes(i)
                If Not .LinkFormat Is Nothing Then
                    With .LinkFormat
                        .SourceFullName = Replace(.SourceFullName, "046", "048")
                    End With
                End If
            End With
        Next
        For i = .InlineShapes.Count To 1 Step -1
            With .InlineShapes(i)
                If Not .LinkFormat Is Nothing Then
                    With .LinkFormat
                        .SourceFullName = Replace(.SourceFullName, "046", "048")
                    End With
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Link image using file path	Jue92	Word	2	10-17-2016 01:09 AM
Figure Captioning Labels All Figures As Number 1	AnonAccount	Word	3	03-31-2015 10:44 PM
Change old path to new path (batch)	NobodysPerfect	Word VBA	2	08-14-2014 10:09 PM
How do I permanently update the file name path in the Data Link properties?	lynnwalder	Mail Merge	2	05-20-2013 11:38 AM
Relative path for video link? Is it possible?	Baudisson	PowerPoint	1	01-10-2012 02:19 AM