- 博客(3)
- 资源 (1)
- 收藏
- 关注
原创 批量设置word中的图片大小
针对Word文档中部分图片过宽,超出了页面的问题,可以通过宏脚本进行批量调整。Sub PIC_SIZE()'' PIC_SIZE 宏''Dim n ' 图片个数Dim sizeW '原始宽度Dim sizeH '原始高度On Error Resume Next ' 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片sizeW = ActiveDocument.InlineShapes(n).
2021-09-23 19:30:02 273
原创 Word中批量刷新目录样式
提前定义好基础目录样式,基准样式呈现的宏脚本如下:Sub 展示基准标题样式()'展示设置后的标题样式 Selection.Style = ActiveDocument.Styles("标题 1") Selection.TypeText Text:="一级标题" Selection.TypeParagraph Selection.Style = ActiveDocument.Styles("标题 2") Selection.TypeText Text:="二...
2021-09-23 15:09:07 938
原创 word中通过宏对某章节下图片批量插入题注
提前定义好题注得样式,一般为图-章节编号-序号 题注标题。将鼠标焦点选中到在某一个章节内容的第一段,然后执行以下宏脚本,即可自动批量生成图片的题注,题注的标题自动为该章节的标题,并根据图片的顺序在标题中自动加序号。宏脚本如下:Sub Example()Dim nDim mDim sDim tt = 0'获取当前章节得标题 Dim myTitle For n = 1 To 500 If Selection....
2021-09-23 15:00:36 2466 2
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人