Excel VBA 為大家所熟知，在數(shù)據(jù)處理方面其強(qiáng)大之處不再述說(shuō)。今天為大伙帶來(lái)一小段Word VBA ，主要是用于VBA 在Word文檔中的排版使用。對(duì)于經(jīng)常排版文書的同志們可以了解下，希望能讓你的Word排版效率提高那么“一點(diǎn)點(diǎn)”。
單步運(yùn)行效果如下：
代碼如下：
Option Explicit ‘強(qiáng)制
‘Word VBA 常用語(yǔ)句（在Word VBE中運(yùn)行）
SubWordVbaCode()
‘聲明Sel 為Selection
DimSel AsWord.Selection
Set Sel = Selection ‘實(shí)例化Sel
Sel.WholeStory ‘全選文檔內(nèi)容
Sel.ClearFormatting ‘清除所選文本格式
Sel.Collapse 1 ‘取消選擇，光標(biāo)移至段頭位置
‘【常用字體的設(shè)置】
Sel.Expand 5 ‘光標(biāo)點(diǎn)擴(kuò)選當(dāng)前行
Sel.Font.Size = 16 ‘設(shè)置3號(hào)字體
Sel.Font.ColorIndex =wdBlue ‘設(shè)置藍(lán)色字體
Sel.Font.Name = “楷體” ‘設(shè)置楷體字
Sel.Font.Bold = True’加粗
Sel.Font.Bold = False’取消加粗
Sel.Font.Italic = True’傾斜
Sel.Font.Italic = False’取消傾斜
Sel.Font.ColorIndex =wdBlack ‘設(shè)置黑色字體
Sel.Collapse 0 ‘取消選擇，光標(biāo)至段尾
‘【常用段落的排版設(shè)置】
‘聲明ParFor為ParagraphFormat
DimParFor AsParagraphFormat
‘實(shí)例化ParFor
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 ‘?dāng)U選當(dāng)前段
ParFor.Alignment = 0 ‘段落居左
ParFor.Alignment = 1 ‘段落居中
ParFor.Alignment = 2 ‘段落居右
ParFor.Alignment = 3 ‘兩端對(duì)齊
ParFor.CharacterUnitFirstLineIndent = 2 ‘首行縮進(jìn)
ParFor.CharacterUnitFirstLineIndent = -2 ‘懸掛縮進(jìn)
ParFor.CharacterUnitLeftIndent = 2 ‘段落左縮進(jìn)
ParFor.CharacterUnitRightIndent = 2 ‘段落右縮進(jìn)
ParFor.LineUnitBefore = 1 ‘段后1行
ParFor.LineUnitAfter = 1 ‘段前1行
ParFor.LineSpacingRule = 4’行距自定義
ParFor.LineSpacing = 24 ‘自定義行距
Sel.Collapse 0 ‘取消選擇
‘恢復(fù)正常排版
Sel.WholeStory
Sel.ClearFormatting
Sel.Font.Size = 16
Sel.Font.Name = “仿宋”
ParFor.CharacterUnitFirstLineIndent = 2
Sel.Collapse 1
End Sub
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。