VBA怎么去除Word背景底纹

VBA怎么去除Word背景底纹：

1、删除全部图片。
Sub tt()
s = ActiveDocument.Shapes.Count '''图片个数
For k = 1 To s
ActiveDocument.Shapes(k).Delete '''删除
Next
End Sub

2、删除图片在衬在文字下方的图片。
Sub tt()
s = ActiveDocument.Shapes.Count '''图片个数
For k = 1 To s
s = ActiveDocument.Shapes(k).WrapFormat.Type '''5
''''s=3的时候表示图片在上方，s=5的时候表示图片在下方。
If s = 5 Then
ActiveDocument.Shapes(k).Delete '''删除
End If
Next
End Sub

说明：
WdWrapType 枚举
指定如何在形状周围环绕文字。
名称 值 说明
wdWrapInline 7 将形状嵌入到文字中。
wdWrapNone 3 将形状放在文字前面。请参阅 wdWrapFront。
wdWrapSquare 0 使文字环绕形状。行在形状的另一侧延续。
wdWrapThrough 2 使文字环绕形状。
wdWrapTight 1 使文字紧密地环绕形状。
wdWrapTopBottom 4 将文字放在形状的上方和下方。
wdWrapBehind 5 将形状放在文字后面。