【作品】兩個實用的word自動宏

  0

推薦

本學期講word電子報刊製作,在演示過程中經常要進行行間距調整,以占滿整個文本框,否則會留下一些空白(行業術語叫作「開天窗」,是為報紙編輯之大忌)。用段落對話框中的調整行間距來做,要反復調試多次,非常麻煩,且浪費大量時間。平時用word寫文章也會遇到相同的情況,相信和我一樣不勝其煩的人大有所在。

記得當年word5.0版的時候有兩個非常好用的按鈕「增大行間距」、「減小行間距」,選中文本段落後,每點一次滑鼠行間距自動增加1磅或減小1磅,非常好用。可是從word97以後這兩個按鈕就消失了。

因為比較念舊,所以寫了兩個word宏,自己添加到快速訪問工具欄上(也可以添加到工具欄上,如下圖。再自己設個好認好記的圖標就可以了。快試試好用不!

【作品】兩個實用的word自動宏

圖1:最上行快速訪問工具欄中最後兩個按鈕就是我的宏

【作品】兩個實用的word自動宏

圖2:添加到工具欄中的宏

代碼如下:

Sub增大行間距()

WithSelection.ParagraphFormat

.LineSpacingRule=wdLineSpaceExactly

.LineSpacing=.LineSpacing+1

EndWith

EndSub

Sub減小行間距()

WithSelection.ParagraphFormat

.LineSpacingRule=wdLineSpaceExactly

.LineSpacing=.LineSpacing-1

EndWith

EndSub

如何錄制宏、添加宏到工具欄,請百度。