VBA操作WORD(一) 設定段落的行間距(行距)

2021-10-22 09:26:53 字數 1285 閱讀 5191

在vba中可以用paragraph物件或者paragraphformat物件設定各種段落間距。

一、設定段落的行間距(行距)

要設定段落的行間距(行距)可以使用linespacingrule屬性和linespacing屬性兩者結合。

如下的vba**分別演示了如何設定某個段落的行間距為1.5倍行距、單倍行距、多倍行距、固定行距、最小行距:

這裡要特別注意的是,單倍行距就相當於原來的字型是什麼高度,就是什麼高度,沒有增加額外的行間距。

sub 設定段落的行間距()

dim odoc as document

set odoc = word.activedocument

dim op as paragraph

set op = odoc.paragraphs(1)

with op

'行間距設定為1.5倍

.linespacingrule = wdlinespace1pt5

'行間距設定為單倍

.linespacingrule = wdlinespacesingle

'行間距設定為雙倍

.linespacingrule = wdlinespacedouble

'行間距設定最小值

.linespacingrule = wdlinespaceatleast

'設定最小行距為48磅,1 line=12磅

'行間距設定為多倍

.linespacingrule = wdlinespacemultiple

'設定行距為6行

'行間距設定為固定值

.linespacingrule = wdlinespaceexactly

'設定行距為固定值60磅

end with

end sub

二、設定段前、段後的間距

要設定段落前或段落後的行距,可以使用spacebefore和spaceafter屬性,還可以通過設定spacebeforeauto 和spaceafterauto 屬性把段前和段後的間距設定為自動設定。

sub 設定段前、段後的間距()

dim odoc as document

set odoc = word.activedocument

dim op as paragraph

set op = odoc.paragraphs(1)

with op

'段落後面空5行

'段落前面空5行

end with

end sub

word教程字型和段落設定

2.同時摁著ctrl shift ctrl shift 即可 選中所有正文區 滑鼠放在正文區的第乙個字前邊,拖動滑塊至最後,先摁著shift鍵,再點選最後乙個字即可 設定正文段落間距 選中正文,右擊 段落 設定段前段後即可 對標題和正文設定中英字型 開啟字型對話方塊,進行設定中文和西文字型 一般為t...

Word入門動畫教程110 設定段落的對齊方式

對齊方式是段落內容在文件的左右邊界之間的橫向排列方式。word共有5種對齊方式 左對齊 右對齊 居中對齊 兩端對齊和分散對齊。設定段落對齊方式最簡捷的方法是使用 格式 工具欄上的按鈕,但預設情況下,左對齊 按鈕並不顯示,我們可以執行 工具 自定義 格式 找到此按鈕並將其拖動到工具欄中。除此之外,還可...

文件 word常用設定 操作

自定義工具欄 功能區 開啟工具 選項 自定義功能區 你可以看到左邊是各種命令,而右邊就是工具欄列表編輯區,就比如 開始 點選進去可以看到我們平時的常用設定,如果想新增乙個自己想要的功能,比如說是顯示文件結構圖,在其中點選新建組,在右邊搜尋全部選項,找到文件結構圖命令新增到右邊,確認.除此之外我們可以...