WORD VBA 操作WORD 文本框

最新推荐文章于 2025-10-04 12:06:17 发布

转载最新推荐文章于 2025-10-04 12:06:17 发布 · 1.1w 阅读

WORD-VBA 专栏收录该内容

10 篇文章

订阅专栏

本文提供了两个VBA宏实例，用于批量处理Word文档中的文本框：一是批量删除文本框及其内容；二是保留文本内容同时删除文本框本身。

'实例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