vba删除word中图片与文本框等shape

最新推荐文章于 2024-09-06 22:52:42 发布

云水听蝎

最新推荐文章于 2024-09-06 22:52:42 发布

阅读量1.7k

点赞数

分类专栏：笔记

本文链接：https://blog.csdn.net/huayijia6511/article/details/121211417

版权

Word文档形状删除 VBA脚本批量操作自动化处理

关键词由CSDN通过智能技术生成

笔记专栏收录该内容

1 篇文章

订阅专栏

Sub DeleteShapes()
Dim T
Dim doc As Document
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = “拾取Word文档”
.AllowMultiSelect = True
.Filters.Add “Word File”, “*.docx; *.doc”, 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Documents.Open FileName:=vrtSelectedItem
Set doc = ActiveDocument
For i = 1 To doc.InlineShapes.Count
doc.InlineShapes(1).Delete
Next
For i = 1 To doc.Shapes.Count
doc.Shapes(1).Delete
Next
doc.Save
doc.Close
T = T + 1
Next
End If
End With
MsgBox “操作完成！！” & Chr(10) & “处理了 " & T & " 个文件。”, vbOKOnly, “提示”
End Sub