Excel教程下載和軟件下載中心,Microsoft技術社區聯盟成員,全球極具影響力的Excel門戶,Office技術培訓社區

用Word VBA排版,你試過嗎?

2018-06-23  作者:ExcelHome  閱讀:

Excel VBA 為大家所熟知,在數據處理方面其強大之處不再述說。今天為大伙帶來一小段Word VBA ,主要是用于VBA 在Word文檔中的排版使用。對于經常排版文書的同志們可以了解下,希望能讓你的Word排版效率提高那么“一點點”。

單步運行效果如下:



代碼如下:

Option Explicit '強制

'Word VBA 常用語句(在Word VBE中運行)

SubWordVbaCode()

'聲明Sel 為Selection

DimSel AsWord.Selection

Set Sel = Selection '實例化Sel

Sel.WholeStory '全選文檔內容

Sel.ClearFormatting '清除所選文本格式

Sel.Collapse 1 '取消選擇,光標移至段頭位置

'【常用字體的設置】

Sel.Expand 5 '光標點擴選當前行

Sel.Font.Size = 16 '設置3號字體

Sel.Font.ColorIndex =wdBlue '設置藍色字體

Sel.Font.Name = "楷體" '設置楷體字

Sel.Font.Bold = True'加粗

Sel.Font.Bold = False'取消加粗

Sel.Font.Italic = True'傾斜

Sel.Font.Italic = False'取消傾斜

Sel.Font.ColorIndex =wdBlack '設置黑色字體

Sel.Collapse 0 '取消選擇,光標至段尾

'【常用段落的排版設置】

'聲明ParFor為ParagraphFormat

DimParFor AsParagraphFormat

'實例化ParFor

Set ParFor = Sel.ParagraphFormat

Sel.Expand 4 '擴選當前段

ParFor.Alignment = 0 '段落居左

ParFor.Alignment = 1 '段落居中

ParFor.Alignment = 2 '段落居右

ParFor.Alignment = 3 '兩端對齊

ParFor.CharacterUnitFirstLineIndent = 2 '首行縮進

ParFor.CharacterUnitFirstLineIndent = -2 '懸掛縮進

ParFor.CharacterUnitLeftIndent = 2 '段落左縮進

ParFor.CharacterUnitRightIndent = 2 '段落右縮進

ParFor.LineUnitBefore = 1 '段后1行

ParFor.LineUnitAfter = 1 '段前1行

ParFor.LineSpacingRule = 4'行距自定義

ParFor.LineSpacing = 24 '自定義行距

Sel.Collapse 0 '取消選擇

'恢復正常排版

Sel.WholeStory

Sel.ClearFormatting

Sel.Font.Size = 16

Sel.Font.Name = "仿宋"

ParFor.CharacterUnitFirstLineIndent = 2

Sel.Collapse 1

End Sub
 

轉載請注明來源"ExcelHome"并保留原文鏈接。
固定鏈接:http://www.fvtgnn.tw/lesson/animation/Word/1909.html
分享到:
Copyright 1999 - 2017 Excel Home.All Rights Reserved.
本站特聘法律顧問:徐懷玉律師 李志群律師   滬ICP備11019229號

滬公網安備 31011702000001號

征信       
35选7摇奖器