【WORD VBA】自動插入底稿頁尾
閱讀時間約 4 分鐘
Sub 自動插入底稿頁尾()
Dim mytable As table
With ActiveDocument
Set mytable = .Tables.Add(.Sections(1).Footers(wdHeaderFooterPrimary).range, 2, 4)
End With
With mytable
.Cell(1, 1).range.Text = "XX"
.Cell(1, 1).range.font.Size = 12
.Cell(1, 1).range.font.Name = "標楷體"
With mytable.Cell(1, 1).range
.ParagraphFormat.Alignment = Word.WdHorizontalLineAlignment.wdHorizontalLineAlignCenter '水平置中
End With
.Cell(1, 2).range.Text = "XX"
.Cell(1, 2).range.font.Size = 12
.Cell(1, 2).range.font.Name = "標楷體"
With mytable.Cell(1, 2).range
.ParagraphFormat.Alignment = Word.WdHorizontalLineAlignment.wdHorizontalLineAlignCenter '水平置中
End With
.Cell(1, 4).range.Text = "XX"
.Cell(1, 4).range.font.Size = 12
.Cell(1, 4).range.font.Name = "標楷體"
With mytable.Cell(1, 4).range
.ParagraphFormat.Alignment = Word.WdHorizontalLineAlignment.wdHorizontalLineAlignCenter '水平置中
End With
.Cell(2, 4).range.Text = "XX(/)"
.Cell(2, 4).range.font.Size = 12
.Cell(2, 4).range.font.Name = "times new romans"
With mytable.Cell(2, 4).range
.ParagraphFormat.Alignment = Word.WdHorizontalLineAlignment.wdHorizontalLineAlignCenter '水平置中
End With
Set mytable = ActiveDocument.Tables(1)
mytable.Borders.InsideLineStyle = wdLineStyleDot
mytable.Borders.InsideLineWidth = wdLineWidth075pt '將內部框線設定為0.75pt。
mytable.Borders.OutsideLineStyle = wdLineStyleSingle
mytable.Borders.OutsideLineWidth = wdLineWidth150pt '將外部框線設定為1.50pt。
mytable.Shading.BackgroundPatternColor = wdColorWhite '將表格網底設定為白色。
End With
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add
End Sub
-----
親愛的讀者，感謝您耐心閱讀本篇文章。在接近閱讀結束之際，我誠摯邀請您繼續探索更多我之前所撰寫的文章，相信這些內容將為您帶來更多啟發和收穫。在下方，您可以找到一系列豐富多彩的主題，每篇都充滿了精彩的知識和見解。
我深知您抽出寶貴時間閱讀這些文字，對我來說是非常暖心的支持和鼓勵。您的關注是我創作的動力，每一次的閱讀都讓我更有動力將更多的內容呈現給您。
為使我們更靠近，一些交流互動的方式：
❤️點愛表心｜💬留言相伴｜✏️追蹤大叔｜🔗分享此文｜☕贊助咖啡
189會員
218內容數
投行大叔想告訴你的一些事是一個以分享業內觀點和實際工作狀況為主題的專欄。希望透過投行大叔碎碎念，你可以獲得寶貴的行業內幕，了解投資銀行的實際運作方式和挑戰，並提供了深入的分析和洞察力，涵蓋了企業融資、併購和重組、資本市場交易等各個方面。這些業內觀點和實際案例將幫助你更好地理解投資銀行業務，從而在自己的工作中更具競爭力。
留言0
查看全部
你可能也想看
Google News 追蹤
這個秋，Chill 嗨嗨！穿搭美美去賞楓，裝備款款去露營⋯⋯你的秋天怎麼過？秋日 To Do List 等你分享！
秋季全站徵文，我們準備了五個創作主題，參賽還有機會獲得「火烤兩用鍋」，一起來看看如何參加吧～
在使用 Word 編輯文件時，我們經常會遇到需要分隔內容的需求，例如將文字分隔成段落、將表格分隔成欄位、將圖片分隔成區塊等。在 Word 中，提供了多種分隔線工具，可以幫助我們快速完成分隔內容的操作。
哪種職場工作者需要學習這個技巧？
這些分隔線可以用在任何需要使用 Word 的職場工作中，例如
Word 是辦公室必備的軟體之一，無論是企業、小商家或是個人，都可能會用到 Word 來製作各種文件。在製作文件時，我們常常需要製作問卷，而問卷中通常會包含 ABCD 等選項。如果我們要手動對齊這些選項，可能需要花費一些時間和精力。
介面
標籤操作
標籤點2下可將標籤隱藏摺疊，再點2下可展開功能區。
在折疊的標籤上按右鍵，點選『摺疊功能區』，可取消摺疊並展開功能區。
介面色彩
『檔案』>選項→一般>Office佈景主題
選取
拖曳
滑鼠指標放在段落的前方(呈現白色箭頭)點一下，選取一行。
滑鼠指標放在段落內
在工作中，我們常常需要處理大量的資料，而表格是整理資料最有效的方式之一。然而，如果資料原本是文字格式，就需要先將其轉換成表格，才能進行後續的操作。將文字轉換成表格，可以讓資料更加清晰易讀，也方便進行整理和分析。
在職場上，我們經常需要製作各種文件，例如簡報、報告、合約等。在製作這些文件時，我們常常會遇到一個問題：名字長度不一致。有些名字很短，有些名字很長，這樣看起來會很不協調，也會影響整體美觀。快來學字體排版技巧，讓文字更協調
Four minutes a century ago.
An epidemic of contagion that has brought thousands of lives a grief experience that can never be forgotten.
這個秋，Chill 嗨嗨！穿搭美美去賞楓，裝備款款去露營⋯⋯你的秋天怎麼過？秋日 To Do List 等你分享！
秋季全站徵文，我們準備了五個創作主題，參賽還有機會獲得「火烤兩用鍋」，一起來看看如何參加吧～
在使用 Word 編輯文件時，我們經常會遇到需要分隔內容的需求，例如將文字分隔成段落、將表格分隔成欄位、將圖片分隔成區塊等。在 Word 中，提供了多種分隔線工具，可以幫助我們快速完成分隔內容的操作。
哪種職場工作者需要學習這個技巧？
這些分隔線可以用在任何需要使用 Word 的職場工作中，例如
Word 是辦公室必備的軟體之一，無論是企業、小商家或是個人，都可能會用到 Word 來製作各種文件。在製作文件時，我們常常需要製作問卷，而問卷中通常會包含 ABCD 等選項。如果我們要手動對齊這些選項，可能需要花費一些時間和精力。
介面
標籤操作
標籤點2下可將標籤隱藏摺疊，再點2下可展開功能區。
在折疊的標籤上按右鍵，點選『摺疊功能區』，可取消摺疊並展開功能區。
介面色彩
『檔案』>選項→一般>Office佈景主題
選取
拖曳
滑鼠指標放在段落的前方(呈現白色箭頭)點一下，選取一行。
滑鼠指標放在段落內
在工作中，我們常常需要處理大量的資料，而表格是整理資料最有效的方式之一。然而，如果資料原本是文字格式，就需要先將其轉換成表格，才能進行後續的操作。將文字轉換成表格，可以讓資料更加清晰易讀，也方便進行整理和分析。
在職場上，我們經常需要製作各種文件，例如簡報、報告、合約等。在製作這些文件時，我們常常會遇到一個問題：名字長度不一致。有些名字很短，有些名字很長，這樣看起來會很不協調，也會影響整體美觀。快來學字體排版技巧，讓文字更協調
Four minutes a century ago.
An epidemic of contagion that has brought thousands of lives a grief experience that can never be forgotten.