<meta name="referrer" content="no-referrer" />

背景

之前写过一篇利用 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 中,具体方法是开发工具-宏-创建,最好在所有活动文档中创建,这样都可以使用了。

image.png

宏赋按钮

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

image.png

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

帮助

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

BY

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

本文由mdnice多平台发布


陈文茂
1 声望1 粉丝