試過用Word VBA排版嗎
發(fā)布時間:2022-11-09 09:24 [ 我要自學(xué)網(wǎng)原創(chuàng) ] 發(fā)布人: 小劉2175 閱讀: 1947

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

單步運行效果如下:

代碼如下:

Option Explicit ‘強(qiáng)制

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

SubWordVbaCode()

‘聲明Sel 為Selection

DimSel AsWord.Selection

Set Sel = Selection ‘實例化Sel

Sel.WholeStory ‘全選文檔內(nèi)容

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

Sel.Collapse 1 ‘取消選擇,光標(biāo)移至段頭位置

‘【常用字體的設(shè)置】

Sel.Expand 5 ‘光標(biāo)點擴(kuò)選當(dāng)前行

Sel.Font.Size = 16 ‘設(shè)置3號字體

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

‘實例化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 ‘兩端對齊

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

Word2019視頻教程
我要自學(xué)網(wǎng)商城 ¥70 元
進(jìn)入購買
文章評論
0 條評論 按熱度排序 按時間排序 /350
添加表情
遵守中華人民共和國的各項道德法規(guī),
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。
V
特惠充值
聯(lián)系客服
APP下載
官方微信
返回頂部
分類選擇:
電腦辦公 平面設(shè)計 室內(nèi)設(shè)計 室外設(shè)計 機(jī)械設(shè)計 工業(yè)自動化 影視動畫 程序開發(fā) 網(wǎng)頁設(shè)計 會計課程 興趣成長 AIGC