【WORD VBA】常用排版｜段落設定｜字體調整｜蜂巢式標題內文設定｜表格加框線
基本排版
Sub 基本排版()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.WholeStory '全選整個檔案內容
Sel.ClearFormatting '清除所選文字格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
ParFor.Alignment = 3 '兩端對齊
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
End Sub
段落標題-壹
Sub 壹段落標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitFirstLineIndent = -2 '懸掛縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Font.Bold = True '加粗
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落內文-壹
Sub 壹一段落內文()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 2 '段落左縮進
ParFor.CharacterUnitFirstLineIndent = 2 '首行縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落標題-一
Sub 一段落標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitFirstLineIndent = -2 '懸掛縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落內文-一
Sub 括弧一標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 2 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = -2 '懸掛縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落內文-(一)
Sub 括弧一內文()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 4 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = 2 '首行縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落標題-1.
Sub 數字1標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 4 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = -0.8 '懸掛縮進(重點差別)
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落內文-1.
Sub 數字1內文()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 5 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = 2 '首行縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落標題-(1)
Sub 括號數字1標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 5 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = -1.2 '懸掛縮進(重點差別)
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落內文-(1)
Sub 括號數字1內文()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 6.2 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = 2 '首行縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落標題-A.
Sub A標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 6 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = -1 '懸掛縮進(重點差別)
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落內文-A.
Sub A內文()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 7 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = 2 '首行縮進
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
段落標題-a.
Sub 小A標題()
'聲明 Sel 為 Selection
Dim Sel As Word.Selection
Set Sel = Selection '實例化Sel
Sel.ClearFormatting '清除所選文本格式
'【常用段落的排版設置】
'聲明ParFor為ParagraphFormat
Dim ParFor As ParagraphFormat
Set ParFor = Sel.ParagraphFormat
Sel.Expand 4 '選取當前這段
ParFor.Alignment = 3 '兩端對齊
ParFor.CharacterUnitLeftIndent = 7 '段落左縮進(重點差別)
ParFor.CharacterUnitFirstLineIndent = -0.8 '懸掛縮進(重點差別)
ParFor.LineSpacing = 12 '自定義行距
ParFor.LineUnitBefore = 0.5 '距前段0.5行
ParFor.LineUnitAfter = 0 '距前段0行
'【常用字體的設置】
Sel.Font.Size = 12 '設置12pt字體
Sel.Font.Name = "標楷體" '設置標楷體字體
Sel.Font.Name = " times new roman" '設置times new roman字體
Sel.Range.HighlightColorIndex = wdNoHighlight '取消醒目提醒
End Sub
表格加外框
Sub 表格加外框()
Set mytable = ActiveDocument.Tables(1)
With mytable.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideLineWidth = wdLineWidth150pt
.DistanceFromBottom = 0
.DistanceFromTop = 0
.DistanceFromLeft = 2
.DistanceFromRight = 2
End With
End Sub
-----
親愛的讀者，感謝您耐心閱讀本篇文章。在接近閱讀結束之際，我誠摯邀請您繼續探索更多我之前所撰寫的文章，相信這些內容將為您帶來更多啟發和收穫。在下方，您可以找到一系列豐富多彩的主題，每篇都充滿了精彩的知識和見解。
我深知您抽出寶貴時間閱讀這些文字，對我來說是非常暖心的支持和鼓勵。您的關注是我創作的動力，每一次的閱讀都讓我更有動力將更多的內容呈現給您。
為使我們更靠近，一些交流互動的方式：
❤️點愛表心｜💬留言相伴｜✏️追蹤大叔｜🔗分享此文｜☕贊助咖啡
即將進入廣告，捲動後可繼續閱讀
為什麼會看到廣告
192會員
235內容數
投行大叔想告訴你的一些事是一個以分享業內觀點和實際工作狀況為主題的專欄。希望透過投行大叔碎碎念，你可以獲得寶貴的行業內幕，了解投資銀行的實際運作方式和挑戰，並提供了深入的分析和洞察力，涵蓋了企業融資、併購和重組、資本市場交易等各個方面。這些業內觀點和實際案例將幫助你更好地理解投資銀行業務，從而在自己的工作中更具競爭力。
留言0
查看全部
你可能也想看
Google News 追蹤
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
以下內容會說明每個設計調整的原因跟
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每週五會固定分享給訂閱會員，歡迎訂閱。
排版微調是我社群的一個系列內容，這篇則是提供給訂閱會員的詳細解說版，會說明為何調整的原因跟我的看法，以及原本設計可能有的問題，如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每週五會固定分享，歡迎訂閱會員。
排版微調 VOL.1-詳細解說版
排版微調是我社群的一個系列內容，這篇則是提供給訂閱會員的詳細解說版，會說明為何調整的原因跟我的看法，以及原本設計可能有的問題，如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因。
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
以下內容會說明每個設計調整的原因跟
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每月會有三篇微調詳解固定分享給訂閱會員，歡迎訂閱。
排版微系列調專門分享如何透過一些調整讓設計與排版更好看，並且每張設計都會說明為何調整的原因，以及原本設計可能有的問題。
如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每週五會固定分享給訂閱會員，歡迎訂閱。
排版微調是我社群的一個系列內容，這篇則是提供給訂閱會員的詳細解說版，會說明為何調整的原因跟我的看法，以及原本設計可能有的問題，如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因，如果你看完喜歡，我每週五會固定分享，歡迎訂閱會員。
排版微調 VOL.1-詳細解說版
排版微調是我社群的一個系列內容，這篇則是提供給訂閱會員的詳細解說版，會說明為何調整的原因跟我的看法，以及原本設計可能有的問題，如果你是設計初學者那這份內容會很適合你，因為會很細節的去講解排版原因。