1. 问题描述
word打开md文件,可以直接把markdown转换为word,但图片默认没有锁定纵横比,且没有居中。这一点给后续的修改带来不便,需要自定义宏进行批量处理。
2. 技术背景
word2013或任何版本。
按住Alt+F8,可以打开后后台的VBA编程界面。
3. 解决方案
通过VBA代码,遍历图片对象,修改纵横比的属性,并设置图片居中即可。
4. 实施示例
- Alt+F8,打开VBA界面
- 粘贴以下代码
Sub locPicRatio()
' 设置图片大小纵横比例模式
' 设置图片居中
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
ActiveDocument.InlineShapes(j).LockAspectRatio = msoTrue ' 锁定纵横比
ActiveDocument.InlineShapes(j).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中
Next j
End Sub
-
退出VBA,运行宏
- 即可批量修改图片属性
5. 常见问题
暂无
本文用时 10 m