🚀 go-pugleaf

This may not have all the bells and whistles, but it should at least get you started.

It doesn't require setting any folder names, since the InDesign link info includes the full path to the file. It skips any missing, out-of-date, or already-embedded links. The Unlink method of the Link object automatically embeds the referenced file.


Private Sub Command1_Click()
    Dim objID As InDesign.Application
    Dim objDoc As InDesign.Document
    Dim objImage As InDesign.Image
    Dim objRectangle As InDesign.Rectangle

Set objID = CreateObject("InDesign.Application")
    Set objDoc = objID.ActiveDocument

For Each objRectangle In objDoc.Rectangles
        If objRectangle.ContentType = idGraphic Then
            Set objImage = objRectangle.Images(1)
            If objImage.Link.Status = idLinkNormal Then
                objImage.Link.Unlink
            End If
        End If
    Next objRectangle

End Sub