WORD VBA 操作WORD 文本框

关注

转载最新推荐文章于 2026-10-17 16:39:25 发布 1.1w 阅读 AI 写同款· GEO 优化 ›

Word图片批量加水印：页面水印、VBA宏、Python拆包三方案对比文档水印是办公场景中常见的防泄露手段，尤其当文档包含架构图、数据截图等敏感图片时，水印是否真正附着在图片上，直接决定了转发后的溯源效果。Word 中的水印可以作用于页面背景层、文档对象层或图片像素层，三种不同层级的实现方式对应原生水印、VBA 宏批量叠加、docx 拆包直改图片文件三条技术路线。页面级水印操作零成本但导出图片后会失效；VBA 宏可批量覆盖整篇文档，适合应急处理；Python 拆包方案则以 docx 的 ZIP 结构为入口，逐张修改 word/media 目录下的图片，从根源上防止图片被二次导阅读详情

'实例1：批量删除WORD文本框中的内容
    Sub test1()
        Dim sha As Shape
        For Each sha In ActiveDocument.Shapes
            sha.TextFrame.TextRange.Delete
        Next
    end sub
'实例2：批量删除WORD文本框而保留文字
    Sub test()
        Selection.EndKey unit:=wdStory
        Dim Shp As Shape
        For Each Shp In ThisDocument.Shapes
            Selection.TypeText Text:=Shp.TextFrame.TextRange.Text
            Shp.Delete
        Next
    End Sub