免费seo网站的工具,天津自动seo,科技让生活更美好作文600字,旺旺号查询网站怎么做使用word写文档大概率是要图文并茂#xff0c;要把图片表格的格式统一才能行文美观#xff0c;使用批处理统一处理图片和表格是一个很好的方案#xff0c;这里提供一段我自己使用的宏定义程序供大家参考。
ALTF11 宏
Sub ASIC表格样式()ASIC表格样式 宏For i 1 To Active… 使用word写文档大概率是要图文并茂要把图片表格的格式统一才能行文美观使用批处理统一处理图片和表格是一个很好的方案这里提供一段我自己使用的宏定义程序供大家参考。
ALTF11 宏
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 SubSub ASIC图片样式() 设置图片大小ASIC图片样式 宏Dim n 图片个数On Error Resume Next 忽略错误
For n 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(n).Height 400 设置图片高度为 400pxActiveDocument.InlineShapes(n).Width 300 设置图片宽度 300pxActiveDocument.InlineShapes(n).SelectActiveDocument.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 WithNext nFor n 1 To ActiveDocument.Shapes.Count Shapes类型图片 ActiveDocument.Shapes(n).Height 400 设置图片高度为 400px ActiveDocument.Shapes(n).Width 300 设置图片宽度 300pxActiveDocument.InlineShapes(n).SelectActiveDocument.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 WithNext n
End Sub
