加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

VBA怎么去除Word背景底纹

(2018-05-24 09:30:32)
标签:

excel

word

vba

代码

分类: VBA专区

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

 

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有