求助：Word中更换QRCode图片时动态更新Caption的实现方案

核心思路 #

通过VBA提取QRCode图片的文件名（需包含计算机名），自动更新图片下方的Caption文本，替代手动修改操作。

实现代码（针对链接型图片） #

打开Word的VBA编辑器（快捷键Alt+F11），插入新模块后粘贴以下代码：

Sub UpdateQRCaption()
    Dim shp As Shape
    Dim picFileName As String
    Dim computerName As String
    Dim captionPara As Paragraph
    
    '遍历文档内所有图片
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            '获取图片文件名（不含路径）
            picFileName = Dir(shp.LinkFormat.SourceFullName)
            If picFileName <> "" Then
                '从文件名中提取计算机名（去掉后缀）
                computerName = Left(picFileName, InStrRev(picFileName, ".") - 1)
                
                '定位图片下方紧邻的段落作为Caption容器
                Set captionPara = shp.Anchor.NextParagraph
                If Not captionPara Is Nothing Then
                    '更新Caption文本
                    captionPara.Range.Text = computerName
                End If
            End If
        End If
    Next shp
End Sub

嵌入型图片适配代码 #

如果图片是嵌入到Word而非链接，可使用以下代码（需确保图片的Alt文本或名称包含计算机名）：

Sub UpdateQRCaption_Embedded()
    Dim shp As Shape
    Dim computerName As String
    Dim captionPara As Paragraph
    
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            '从图片Alt文本提取计算机名（插入图片时需预先设置）
            computerName = shp.AlternativeText
            
            '如果图片名称包含计算机名，可替换为以下逻辑：
            'computerName = Trim(Mid(shp.Name, InStr(shp.Name, "-") + 1))
            
            If computerName <> "" Then
                Set captionPara = shp.Anchor.NextParagraph
                If Not captionPara Is Nothing Then
                    captionPara.Range.Text = computerName
                End If
            End If
        End If
    Next shp
End Sub

使用步骤 #

1. 确保QRCode图片的文件名（或Alt文本）直接包含目标计算机名，例如Finance-PC-012.png
2. 在每张图片下方添加一个空白段落，作为Caption的显示位置
3. 运行对应宏：在VBA编辑器中按F5执行，或在Word的「开发工具」选项卡中点击「宏」选择运行

可选：自动触发更新 #

若希望打开文档时自动更新Caption，可在ThisDocument模块中添加以下代码：

Private Sub Document_Open()
    UpdateQRCaption '根据图片类型替换为UpdateQRCaption_Embedded
End Sub

内容的提问来源于stack exchange，提问作者AtlantisFan