通过 VBA 更新 WORD 2016 中图片的多个源链接答案

【问题标题】：Update multiple source links for pictures in WORD 2016 via VBA通过 VBA 更新 WORD 2016 中图片的多个源链接
【发布时间】：2018-05-05 15:18:13
【问题描述】：

我编写了一些 VBA 代码来更改所有图像的所有源位置。但是它只检测到 3 个 InlineShapes。还有很多。我将所有图像插入为 Insert 和 LINK

Sub ChangesSource()
Dim i As Long
Documents("Document.docx").Activate
Debug.Print ActiveDocument.Name

With ActiveDocument

For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
'.shp.LinkFormat.SourceFullName =


.LinkFormat.SourceFullName = Replace(.LinkFormat.SourceFullName, "C:\oldLink", "C:\newLink")

Debug.Print .LinkFormat.SourceFullName
'Debug.Print InlineShapes(i).SourceFullName
End With
Next i
End With
End Sub

【问题讨论】：

根据网站指南，这“太宽泛了”。也不清楚您是否正在寻找编程解决方案......除非您可以展示一些研究工作，否则这将是关闭的。但是，请查看stackoverflow.com/q/50129110/3077495，看看这是否会给您一个良好的开端。

标签： ms-word

【解决方案1】：

试试：

Sub ChangeSource()
Dim i As Long
With ActiveDocument
  For i = .InlineShapes.Count To 1 Step -1
    With .InlineShapes(i)
      If Not .LinkFormat Is Nothing Then
        With .LinkFormat
          .SourceFullName = Replace(.SourceFullName, .SourcePath, "C:\NewPath\")
        End With
      End If
    End With
  Next i
End With
End Sub

【讨论】：

【解决方案2】：

如果您以较旧的 .doc 格式保存文档，按 Alt-F9 将显示包含链接的 INCLUDEPICTURE 字段。然后，您可以使用 Find/Replace 来更新路径（注意使用 \\ 作为路径分隔符）。按 Alt-F9，然后按 Ctrl-Shift-F9 将刷新链接的图像。然后，您可以根据需要以 docx 格式重新保存文档。另一种选择是使用宏。

【讨论】：

谢谢，我在一个网站上看到这样做可能有点冒险，所以我决定写一段 vba 代码，但仍然存在一些问题。
唯一的风险是使用旧文档格式不支持的任何功能（例如内容控件、参考书目）。