【WORD VBA】自動插入底稿頁尾
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
-----
親愛的讀者，感謝您耐心閱讀本篇文章。在接近閱讀結束之際，我誠摯邀請您繼續探索更多我之前所撰寫的文章，相信這些內容將為您帶來更多啟發和收穫。在下方，您可以找到一系列豐富多彩的主題，每篇都充滿了精彩的知識和見解。
我深知您抽出寶貴時間閱讀這些文字，對我來說是非常暖心的支持和鼓勵。您的關注是我創作的動力，每一次的閱讀都讓我更有動力將更多的內容呈現給您。
為使我們更靠近，一些交流互動的方式：
❤️點愛表心｜💬留言相伴｜✏️追蹤大叔｜🔗分享此文｜☕贊助咖啡
即將進入廣告，捲動後可繼續閱讀
為什麼會看到廣告
192會員
235內容數
投行大叔想告訴你的一些事是一個以分享業內觀點和實際工作狀況為主題的專欄。希望透過投行大叔碎碎念，你可以獲得寶貴的行業內幕，了解投資銀行的實際運作方式和挑戰，並提供了深入的分析和洞察力，涵蓋了企業融資、併購和重組、資本市場交易等各個方面。這些業內觀點和實際案例將幫助你更好地理解投資銀行業務，從而在自己的工作中更具競爭力。
留言0
查看全部
你可能也想看
Google News 追蹤
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
這篇文章介紹如何使用VBA程式碼將【包含備註】的Excel檔案轉換為PDF檔。在研究這個問題時，作者花了3個小時多的時間，但後來發現了一個更簡單的方法，這讓作者感到震驚和懷疑人生。最後，作者強調使用他人的智慧來提高自己的能力。文章提供了相關參考文獻和圖片。
Visual Basic for Applications（VBA）是一種功能強大的程式語言，廣泛用於自動化 Microsoft Office 應用程式中的重複性任務。在這篇教學文章中，我們將介紹如何使用 VBA 來新增、刪除和移動檔案。
本文介紹了將獨立的Excel檔案轉換為PDF檔的方法，並提供了相關連結和資源，包括Excel教學、VBA自動轉存檔案等。文章中還包含了南宋詞人辛棄疾詞和張忠謀的引言，讓讀者在解決問題的同時得到一些靈感和鼓勵。
Excel好好玩VBA-菜緒 (https://portaly.cc/ezyvba)
VBE輔助工具一個針對Excel VBA撰寫的輔助工具
代碼對齊排版、排序、刪空行、刪註解、簡易VBA收集(可新增、刪除)..
LINE社群網友提出的一個問題，想要產生每個月月底與每個月14號的日期序列。
這個需求只需要一個函數就可以完成了😏
＜▶️影音教學＞
看教學影片之前可以先打開EXCEL，學中做、做中學效果更好哦。
<📝圖文教學>
✍🏾EDATE回傳日期指定月份數前或後的日期
有一個大約40頁的word檔，想整理一個目錄，但內容大多是表格，無法用自動目錄的功能，本來打算先列印出來，再翻著紙本整理，拖了很久本打算不要整理了，今天太閒拿出來工作，頁數拉來拉去，突然!!
我想到了!!
拿出一張紙來手寫不就好了!!
在工作中，我們經常需要處理各種報表，而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作，但有幸的是，我們可以利用VBA（Visual Basic for Applications）和Windows工作排程器來自動化這個過程，讓我們在不知不覺中完成這項任務。
在職場上，我們經常需要使用 Excel 表格來處理資料，而自動格式設定可以幫助我們快速將資料整理成一致的格式，讓資料看起來更清晰、更有效率。用 Excel 的快捷鍵自動出現自動格式設定技巧，可以讓我們在更短的時間內套用自動格式，讓工作更輕鬆。
一般EXCEL預設狀態下，輸入資料後按下ENTER儲存格就會自動往下移動一格，以方便下一筆資料的輸入。
但其實在職場很常見的是，輸入完資料後的下一個要輸入的位置其實是在右邊，但系統預設跑到下面，這時候就要用滑鼠手動把儲存格點到適合的位置，這時候心裡就會開始OS:為什麼預設是往下，阿阿阿
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
這篇文章介紹如何使用VBA程式碼將【包含備註】的Excel檔案轉換為PDF檔。在研究這個問題時，作者花了3個小時多的時間，但後來發現了一個更簡單的方法，這讓作者感到震驚和懷疑人生。最後，作者強調使用他人的智慧來提高自己的能力。文章提供了相關參考文獻和圖片。
Visual Basic for Applications（VBA）是一種功能強大的程式語言，廣泛用於自動化 Microsoft Office 應用程式中的重複性任務。在這篇教學文章中，我們將介紹如何使用 VBA 來新增、刪除和移動檔案。
本文介紹了將獨立的Excel檔案轉換為PDF檔的方法，並提供了相關連結和資源，包括Excel教學、VBA自動轉存檔案等。文章中還包含了南宋詞人辛棄疾詞和張忠謀的引言，讓讀者在解決問題的同時得到一些靈感和鼓勵。
Excel好好玩VBA-菜緒 (https://portaly.cc/ezyvba)
VBE輔助工具一個針對Excel VBA撰寫的輔助工具
代碼對齊排版、排序、刪空行、刪註解、簡易VBA收集(可新增、刪除)..
LINE社群網友提出的一個問題，想要產生每個月月底與每個月14號的日期序列。
這個需求只需要一個函數就可以完成了😏
＜▶️影音教學＞
看教學影片之前可以先打開EXCEL，學中做、做中學效果更好哦。
<📝圖文教學>
✍🏾EDATE回傳日期指定月份數前或後的日期
有一個大約40頁的word檔，想整理一個目錄，但內容大多是表格，無法用自動目錄的功能，本來打算先列印出來，再翻著紙本整理，拖了很久本打算不要整理了，今天太閒拿出來工作，頁數拉來拉去，突然!!
我想到了!!
拿出一張紙來手寫不就好了!!
在工作中，我們經常需要處理各種報表，而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作，但有幸的是，我們可以利用VBA（Visual Basic for Applications）和Windows工作排程器來自動化這個過程，讓我們在不知不覺中完成這項任務。
在職場上，我們經常需要使用 Excel 表格來處理資料，而自動格式設定可以幫助我們快速將資料整理成一致的格式，讓資料看起來更清晰、更有效率。用 Excel 的快捷鍵自動出現自動格式設定技巧，可以讓我們在更短的時間內套用自動格式，讓工作更輕鬆。
一般EXCEL預設狀態下，輸入資料後按下ENTER儲存格就會自動往下移動一格，以方便下一筆資料的輸入。
但其實在職場很常見的是，輸入完資料後的下一個要輸入的位置其實是在右邊，但系統預設跑到下面，這時候就要用滑鼠手動把儲存格點到適合的位置，這時候心裡就會開始OS:為什麼預設是往下，阿阿阿