Vba 如何在ms word中用宏清除图片内容控件_Vba_Ms Word

Vba 如何在ms word中用宏清除图片内容控件

vba ms-word

Vba 如何在ms word中用宏清除图片内容控件,vba,ms-word,Vba,Ms Word,我已经创建了一个表单，用户可以选择重置或清除表单。我能够清除表单文本框、组合框和复选框中的所有内容，但不知道如何在插入图片时清除图片，而不删除整个选项。但是，我尝试过使用bookmark方法，但没有成功。选择书签，然后删除。这会导致代码无法识别Inlineshape，因此-运行时错误“5941请求的集合成员不存在 ActiveDocument.Bookmarks("picture").Select Selection.InlineShapes(1).Delete Selection.Insert

我已经创建了一个表单，用户可以选择重置或清除表单。我能够清除表单文本框、组合框和复选框中的所有内容，但不知道如何在插入图片时清除图片，而不删除整个选项。但是，我尝试过使用bookmark方法，但没有成功。选择书签，然后删除。这会导致代码无法识别Inlineshape，因此-运行时错误“5941请求的集合成员不存在

ActiveDocument.Bookmarks("picture").Select
Selection.InlineShapes(1).Delete
Selection.InsertAfter ""

但是，您的代码没有提到内容控件

Dim oCC As ContentControl
Set oCC = ActiveDocument.SelectContentControlsByTitle("Picture1").Item(1)
If oCC.Range.InlineShapes.Count > 0 Then oCC.Range.InlineShapes(1).Delete

如果“Picture1”是图片内容控件的标题，则应执行此操作