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 将形状放在文字后面。
wdWrapFront 6 将形状放在文字前面。