办公技巧 word 图片域转为图片

背景

之前写过一篇利用 word 邮件功能实现批量生成带图片的文稿，其中有个问题没有解决-转出的 word 是图片域的集合，他有好有坏，好处就是动态更新，坏处就是不利于分享，在其他人的电脑上就会识别不到路径，图片无法显示。我尝试了很多办法，也没有找到批量将图片域转为图片的方式。今天介绍我目前用的笨办法，通过 vba 将选中的图片域转为图片。

实现方法

我是不会写 vba 的，下面的代码是利用 word 的录制宏功能，生成初步代码后，用 AI 软件优化而来。

Sub ConvertFieldToInlinePicture()
    Dim fld As Field
    Dim rng As Range
    Dim inlineShape As inlineShape
    
    ' 检查是否有选中的域
    If Selection.Fields.Count > 0 Then
        Set fld = Selection.Fields(1)        
        ' 将域结果复制到剪贴板
        fld.Result.Copy        
        ' 删除域
        fld.Delete        
        ' 粘贴并保留格式
        On Error Resume Next ' 忽略接下来的错误
        Selection.PasteAndFormat (wdChartPicture)
        If Err.Number <> 0 Then
            MsgBox "无法将内容粘贴为内嵌图片。" & vbCrLf & "错误代码: " & Err.Number & vbCrLf & "错误描述: " & Err.Description, vbExclamation
            Err.Clear
            On Error GoTo 0 ' 停止忽略错误
            Exit Sub
        End If
        On Error GoTo 0 ' 停止忽略错误     
        ' 如果需要，可以在这里添加对新内嵌图片的进一步处理
        ' 例如调整大小、设置环绕方式等
    Else
        MsgBox "请先选择一个域。", vbInformation
    End If
End Sub

将上面的代码，放入 vba 中，具体方法是开发工具-宏-创建，最好在所有活动文档中创建，这样都可以使用了。

宏赋按钮

通过开始-选项-快捷访问工具栏-宏-添加-修改名称和图标，创建好快捷图标。

这样选中对应的图片域点击按钮就可以使用啦。

帮助

也希望大家如果有更好的方法，请留言告诉我，或者对代码的改进建议，也请留言。

BY

纯个人经验，如有帮助，请收藏点赞，如需转载，请注明出处。
微信公众号：环境猫 er
CSDN : 细节处有神明
个人博客： https://maoyu92.github.io/