. : : ClassiClub ForuM : : .

会员中心 论坛帮助 日历事件 标记论坛已读
返回   精品技术论坛 » 技术论坛 » 『软件使用』

『软件使用』: 电脑软件推荐, 电脑软件使用, 经验分享



发表新主题 回复
 
主题工具
sungwehan
 
sungwehan 的头像
高级会员
 
资 料:
注册日期: Feb 2011
帖子: 719 声望值: 5
精华: 0,解答: 4
#1 旧 2020-04-07, 13:36:40 默认 【求助】帮忙修改一个word宏批量?
sungwehan 当前离线  

运行这个宏的目的,是把复制网页的图文在word中做A4页面规格处理。
1、保持左右页边距为2cm。
2.文字格式和颜色不变,字号统一为5号字体。
3、删除所有的空行,,
4.图片宽超过15cm的,统一缩放为15cm。。保持高宽比不变。。

从网上找了一个类似的,不会修改。请大侠帮忙,谢谢

引用:
WORD宏批量修改图片大小

一键设置页边距为2,并遍历文章中所有的图片,如果图片高度大于14.5厘米,则设置为14.5厘米,如果宽度大于10.1厘米,则设置宽度为10.1。
————————————————————————————
Sub 修图()
'
' 修图 宏
'
'
WordBasic.PageSetupMargins TopMargin:="2", BottomMargin:="2", LeftMargin:="2", RightMargin:="2"
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
If ActiveDocument.InlineShapes(j).Height > 14.5 * 28.346 Then
ActiveDocument.InlineShapes(j).Height = 14.5 * 28.346 '设置高度 14.5cm
End If
If ActiveDocument.InlineShapes(j).Width > 10.1 * 28.346 Then
ActiveDocument.InlineShapes(j).Width = 10.1 * 28.346 '设置宽度 10.1cm
End If
Next j
End Sub
——————————————————————

此帖于 2020-04-07 14:00:08 被 sungwehan 编辑. .
回复时引用此帖
发表新主题 回复

主题工具

论坛规则  发帖规则
不可以发表主题
不可以回复帖子
不可以上传附件
不可以编辑自己的帖子
论坛启用 vB 代码
版面启用 表情符号
版面启用 [IMG] 代码
版面禁用 HTML 代码


所有时间均为北京时间, 现在的时间是 18:16:02.

本论坛带宽由迅通网络提供
SSL证书由TrustAsia提供

Copyright © 2000 - 2019 ClassiClub Forum All Rights Reserved.
粤ICP备09123456号