WORD VBA 操作WORD 文本框

最新推荐文章于 2025-04-14 10:01:22 发布

foreverfall

最新推荐文章于 2025-04-14 10:01:22 发布

阅读量1.1w

点赞数 4

分类专栏： WORD-VBA

WORD-VBA 专栏收录该内容

10 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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