Change link path to a number of figures efficiently

gmayor · #2 11-07-2018, 07:46 AM

You could save the file in the compatibility mode of an earlier version that had the links available as described, then replace the path in the field, update the field and save it back in the compatibility mode of the current version. It should work fine provided you have not used any more recent features in the document, such as some content control types applicable only to later versions of Word.

Put the new path where indicated at the top of the macro and run the macro on a copy of your document.

Code:

Sub ChangeLink()
'Graham Mayor - http://www.gmayor.com - Last updated - 07 Nov 2018
Const NewPath As String = "C:\\Path\\"
Dim oFld As Field
Dim strCode As String
Dim vName As Variant
    ActiveDocument.SaveAs2 FileName:=ActiveDocument.FullName, CompatibilityMode:=11
    For Each oFld In ActiveDocument.Fields
        If oFld.Type = wdFieldIncludePicture Then
            vName = Split(oFld.Code, "\\")
            strCode = " INCLUDEPICTURE " & Chr(34) & NewPath & vName(UBound(vName))
            oFld.Code.Text = strCode
            oFld.Update
        End If
        ActiveDocument.SaveAs2 FileName:=ActiveDocument.FullName, CompatibilityMode:=Val(Application.Version)
    Next oFld
lbl_Exit:
    Set oFld = Nothing
    Exit Sub
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