word表格图片批处理参考程序

使用word写文档大概率是要图文并茂,要把图片表格的格式统一才能行文美观,使用批处理统一处理图片和表格是一个很好的方案,这里提供一段我自己使用的宏定义程序供大家参考。

ALT+F11 宏

复制代码
Sub ASIC表格样式()
'
' ASIC表格样式 宏
'
'
For i = 1 To ActiveDocument.Tables.Count '选中循环全部图片
    'ActiveDocument.Tables(i).Style = "ASIC样式" ' 使用asic表格样式
    ActiveDocument.Tables(i).PreferredWidthType = wdPreferredWidthPercent '因为表格样式无法设定表格宽度,故需要另外设置
    ActiveDocument.Tables(i).PreferredWidth = 96 '设置表格宽度为正文部分的98%
    ActiveDocument.Tables(i).Range.Font.Size = 10 ' 表格中字号为10
Next
End Sub

Sub ASIC图片样式() '设置图片大小

'
' ASIC图片样式 宏
'
'
    Dim n '图片个数
    On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
    'ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
    'ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
    ActiveDocument.InlineShapes(n).Select
    'ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.Select '上一行不行,用这个
    With Selection.ParagraphFormat '所选段落的格式
        .Alignment = wdAlignParagraphCenter '图片绝对居中
       ' .LeftIndent = 0 '左缩进磅数
       ' .RightIndent = 0 '右缩进磅数
       ' .FirstLineIndent = 0 '首行缩进磅数
       ' .CharacterUnitLeftIndent = 0 '左缩进字符数
       ' .CharacterUnitRightIndent = 0 '右缩进字符数
       '.CharacterUnitFirstLineIndent = 0 '首行缩进字符数

     End With
    Next n
   
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
   ' ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
   ' ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
    ActiveDocument.InlineShapes(n).Select
    'ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.Select '上一行不行,用这个
    With Selection.ParagraphFormat '所选段落的格式
        .Alignment = wdAlignParagraphCenter '图片绝对居中
       ' .LeftIndent = 0 '左缩进磅数
       ' .RightIndent = 0 '右缩进磅数
       ' .FirstLineIndent = 0 '首行缩进磅数
       ' .CharacterUnitLeftIndent = 0 '左缩进字符数
       ' .CharacterUnitRightIndent = 0 '右缩进字符数
       '.CharacterUnitFirstLineIndent = 0 '首行缩进字符数

     End With
    Next n
End Sub
相关推荐
东风西巷5 分钟前
Atlantis Word Processor:全方位的文字处理专家
前端·学习·word·软件需求
Metaphor69210 小时前
Java 高效处理 Word 文档:查找并替换文本的全面指南
java·经验分享·word
jianghaha201117 小时前
前端 Word 模板参入特定数据 并且下载
前端·word
揭老师高效办公1 天前
在Word和WPS文字中便捷切换英文段落大小写
word·wps文字
CodeCraft Studio1 天前
国产化Word处理组件Spire.DOC教程:使用 Python 将 Markdown 转换为 HTML 的详细教程
python·html·word·markdown·国产化·spire.doc·文档格式转换
揭老师高效办公2 天前
在Word和WPS文字中将手机中间4位替换为星号****
word·wps文字
打码人的日常分享2 天前
运维服务方案,运维巡检方案,运维安全保障方案文件
大数据·运维·安全·word·安全架构
揭老师高效办公2 天前
在Word和WPS文字的表格中快速输入连续的星期、月、日
word·wps
gc_22993 天前
C#测试调用OpenXml操作word文档的基本用法
c#·word·openxml
vfvfb3 天前
word文档结尾批量插入图片 docx批量插入图片 指定几张
word·docx插入图片·word批量插入图片·word文档批量插入图片