【作品】两个实用的word自动宏

推荐

本学期讲word电子报刊制作，在演示过程中经常要进行行间距调整，以占满整个文本框，否则会留下一些空白（行业术语叫作“开天窗”，是为报纸编辑之大忌）。用段落对话框中的调整行间距来做，要反复调试多次，非常麻烦，且浪费大量时间。平时用word写文章也会遇到相同的情况，相信和我一样不胜其烦的人大有所在。

记得当年word5.0版的时候有两个非常好用的按钮“增大行间距”、“减小行间距”，选中文本段落后，每点一次鼠标行间距自动增加1磅或减小1磅，非常好用。可是从word97以后这两个按钮就消失了。

因为比较念旧，所以写了两个word宏，自己添加到快速访问工具栏上（也可以添加到工具栏上，如下图。再自己设个好认好记的图标就可以了。快试试好用不！

图1：最上行快速访问工具栏中最后两个按钮就是我的宏

图2：添加到工具栏中的宏

代码如下：

Sub 增大行间距()
    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = .LineSpacing + 1
    End With

End Sub

Sub 减小行间距()
    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = .LineSpacing - 1
    End With
End Sub

如何录制宏、添加宏到工具栏，请百度。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。