【WORD VBA】常用排版|段落設定|字體調整|蜂巢式標題內文設定|表格加框線

更新於 2024/11/28閱讀時間約 24 分鐘

基本排版

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
-----
親愛的讀者,感謝您耐心閱讀本篇文章。在接近閱讀結束之際,我誠摯邀請您繼續探索更多我之前所撰寫的文章,相信這些內容將為您帶來更多啟發和收穫。在下方,您可以找到一系列豐富多彩的主題,每篇都充滿了精彩的知識和見解。
我深知您抽出寶貴時間閱讀這些文字,對我來說是非常暖心的支持和鼓勵。您的關注是我創作的動力,每一次的閱讀都讓我更有動力將更多的內容呈現給您。
為使我們更靠近,一些交流互動的方式:
❤️點愛表心|💬留言相伴|✏️追蹤大叔|🔗分享此文|☕贊助咖啡
即將進入廣告,捲動後可繼續閱讀
為什麼會看到廣告
投行大叔想告訴你的一些事是一個以分享業內觀點和實際工作狀況為主題的專欄。希望透過投行大叔碎碎念,你可以獲得寶貴的行業內幕,了解投資銀行的實際運作方式和挑戰,並提供了深入的分析和洞察力,涵蓋了企業融資、併購和重組、資本市場交易等各個方面。這些業內觀點和實際案例將幫助你更好地理解投資銀行業務,從而在自己的工作中更具競爭力。
留言0
查看全部
avatar-img
發表第一個留言支持創作者!
Microsoft Excel是一款廣泛應用於資料處理和分析的辦公軟體,而快速切換字母大小寫是Excel中常見的操作。在本文中,我們將介紹如何在Excel中快速切換字母的大小寫,這些方法可以幫助用戶快速高效地完成文字處理工作,提昇工作效率。希望這些方法能夠為大家提供幫助。
Microsoft Excel是一款廣泛應用於資料處理和分析的辦公軟體,其中鍵盤快捷鍵更是能夠幫助用戶快速提升作業效率的必備利器。在本文中,我們將介紹一些常用的Microsoft Excel鍵盤快捷鍵,這些快捷鍵可以在日常工作中發揮重要作用,提高用戶的工作效率。
我們將介紹如何根據自己的需要自定義操作流程,提高Word使用的效率和便捷性。在本文中,我們將介紹如何利用VBA在Word中自動插入底稿頁尾。
我們將介紹如何自己的需要自定義操作流程,提高Word使用的效率和便捷性。在本文中,我們將介紹如何利用VBA在Word中自動插入底稿頁首。
Microsoft Excel是一款廣泛應用於資料處理和分析的辦公軟體,而快速切換字母大小寫是Excel中常見的操作。在本文中,我們將介紹如何在Excel中快速切換字母的大小寫,這些方法可以幫助用戶快速高效地完成文字處理工作,提昇工作效率。希望這些方法能夠為大家提供幫助。
Microsoft Excel是一款廣泛應用於資料處理和分析的辦公軟體,其中鍵盤快捷鍵更是能夠幫助用戶快速提升作業效率的必備利器。在本文中,我們將介紹一些常用的Microsoft Excel鍵盤快捷鍵,這些快捷鍵可以在日常工作中發揮重要作用,提高用戶的工作效率。
我們將介紹如何根據自己的需要自定義操作流程,提高Word使用的效率和便捷性。在本文中,我們將介紹如何利用VBA在Word中自動插入底稿頁尾。
我們將介紹如何自己的需要自定義操作流程,提高Word使用的效率和便捷性。在本文中,我們將介紹如何利用VBA在Word中自動插入底稿頁首。
你可能也想看
Google News 追蹤
Thumbnail
*合作聲明與警語: 本文係由國泰世華銀行邀稿。 證券服務係由國泰世華銀行辦理共同行銷證券經紀開戶業務,定期定額(股)服務由國泰綜合證券提供。   剛出社會的時候,很常在各種 Podcast 或 YouTube 甚至是在朋友間聊天,都會聽到各種市場動態、理財話題,像是:聯準會降息或是近期哪些科
Thumbnail
當創作者想把自己的著作出版成電子書,常常要把Word檔案轉成EPUB檔案,再上傳電子書平台。但是如何把撰寫文章使用的word檔案,轉換成EPUB檔案呢?傳統上會需要繳交數千元的排版費用給出版商或專業人士排版。 難道沒有甚麼便宜甚至免費、好用的方法嗎? Google可以搜尋到不同的工具,但是筆者親測
Thumbnail
本文探討如何使用Excel VBA將資料快速套用到Word範本中,並最終輸出成指定名稱的PDF檔案。透過解決合併列印和PDF檔名設定的步驟,分享了使用Word和Excel VBA的不同方法,並針對程式碼進行了Debug與優化,提供實用的解決方案,並提供寶貴的資訊與技巧。
Thumbnail
我將分享如何充分利用 MS WORD 的功能,讓你的報告或碩博士論文編輯得更加漂亮,這篇文章將幫助你掌握核心技巧,內容涵蓋文件結構、樣式、圖表等重要主題。喜歡的讀者可以在我的 YouTube 頻道中找到課程影片、簡報、範例檔,讓我們一起徹底掌握 MS WORD!
Thumbnail
在使用 Word 編輯文件時,我們經常會遇到需要分隔內容的需求,例如將文字分隔成段落、將表格分隔成欄位、將圖片分隔成區塊等。在 Word 中,提供了多種分隔線工具,可以幫助我們快速完成分隔內容的操作。 哪種職場工作者需要學習這個技巧? 這些分隔線可以用在任何需要使用 Word 的職場工作中,例如
Thumbnail
Word 是辦公室必備的軟體之一,無論是企業、小商家或是個人,都可能會用到 Word 來製作各種文件。在製作文件時,我們常常需要製作問卷,而問卷中通常會包含 ABCD 等選項。如果我們要手動對齊這些選項,可能需要花費一些時間和精力。
介面 標籤操作 標籤點2下可將標籤隱藏摺疊,再點2下可展開功能區。 在折疊的標籤上按右鍵,點選『摺疊功能區』,可取消摺疊並展開功能區。 介面色彩 『檔案』>選項→一般>Office佈景主題 選取 拖曳 滑鼠指標放在段落的前方(呈現白色箭頭)點一下,選取一行。 滑鼠指標放在段落內
Thumbnail
在工作中,我們常常需要處理大量的資料,而表格是整理資料最有效的方式之一。然而,如果資料原本是文字格式,就需要先將其轉換成表格,才能進行後續的操作。將文字轉換成表格,可以讓資料更加清晰易讀,也方便進行整理和分析。
Thumbnail
在職場上,我們經常需要製作各種文件,例如簡報、報告、合約等。在製作這些文件時,我們常常會遇到一個問題:名字長度不一致。有些名字很短,有些名字很長,這樣看起來會很不協調,也會影響整體美觀。快來學字體排版技巧,讓文字更協調
Thumbnail
*合作聲明與警語: 本文係由國泰世華銀行邀稿。 證券服務係由國泰世華銀行辦理共同行銷證券經紀開戶業務,定期定額(股)服務由國泰綜合證券提供。   剛出社會的時候,很常在各種 Podcast 或 YouTube 甚至是在朋友間聊天,都會聽到各種市場動態、理財話題,像是:聯準會降息或是近期哪些科
Thumbnail
當創作者想把自己的著作出版成電子書,常常要把Word檔案轉成EPUB檔案,再上傳電子書平台。但是如何把撰寫文章使用的word檔案,轉換成EPUB檔案呢?傳統上會需要繳交數千元的排版費用給出版商或專業人士排版。 難道沒有甚麼便宜甚至免費、好用的方法嗎? Google可以搜尋到不同的工具,但是筆者親測
Thumbnail
本文探討如何使用Excel VBA將資料快速套用到Word範本中,並最終輸出成指定名稱的PDF檔案。透過解決合併列印和PDF檔名設定的步驟,分享了使用Word和Excel VBA的不同方法,並針對程式碼進行了Debug與優化,提供實用的解決方案,並提供寶貴的資訊與技巧。
Thumbnail
我將分享如何充分利用 MS WORD 的功能,讓你的報告或碩博士論文編輯得更加漂亮,這篇文章將幫助你掌握核心技巧,內容涵蓋文件結構、樣式、圖表等重要主題。喜歡的讀者可以在我的 YouTube 頻道中找到課程影片、簡報、範例檔,讓我們一起徹底掌握 MS WORD!
Thumbnail
在使用 Word 編輯文件時,我們經常會遇到需要分隔內容的需求,例如將文字分隔成段落、將表格分隔成欄位、將圖片分隔成區塊等。在 Word 中,提供了多種分隔線工具,可以幫助我們快速完成分隔內容的操作。 哪種職場工作者需要學習這個技巧? 這些分隔線可以用在任何需要使用 Word 的職場工作中,例如
Thumbnail
Word 是辦公室必備的軟體之一,無論是企業、小商家或是個人,都可能會用到 Word 來製作各種文件。在製作文件時,我們常常需要製作問卷,而問卷中通常會包含 ABCD 等選項。如果我們要手動對齊這些選項,可能需要花費一些時間和精力。
介面 標籤操作 標籤點2下可將標籤隱藏摺疊,再點2下可展開功能區。 在折疊的標籤上按右鍵,點選『摺疊功能區』,可取消摺疊並展開功能區。 介面色彩 『檔案』>選項→一般>Office佈景主題 選取 拖曳 滑鼠指標放在段落的前方(呈現白色箭頭)點一下,選取一行。 滑鼠指標放在段落內
Thumbnail
在工作中,我們常常需要處理大量的資料,而表格是整理資料最有效的方式之一。然而,如果資料原本是文字格式,就需要先將其轉換成表格,才能進行後續的操作。將文字轉換成表格,可以讓資料更加清晰易讀,也方便進行整理和分析。
Thumbnail
在職場上,我們經常需要製作各種文件,例如簡報、報告、合約等。在製作這些文件時,我們常常會遇到一個問題:名字長度不一致。有些名字很短,有些名字很長,這樣看起來會很不協調,也會影響整體美觀。快來學字體排版技巧,讓文字更協調