圍爸把論文寄給教授們的慘案終於告於段落
要用甜食來補償
昨天貼完我買的芒果蛋糕後
決定來把資料夾整理一下
把古早編寫的論文備份檔案都丟到暫時不理他的
然後 意外發現
天呀！我論文計畫(版本A)口試完，大幅修改的第三章的檔案(版本B)
竟然後來一直沒放入後面修改的檔案？！
難怪後來我覺得有很多東西我好像寫了兩次，但又找不到寫在哪裡
趕緊用Word的比較功能，來比較一下
竟然有152處修訂？！
快快來用最新版的，已經寄出的論文(版本C)來把版本B的東西比對一下改一改....
又花了我一小時
這時覺得心灰意冷呀！
花了2000元印和寄送的論文
今天又要花2000元印和寄送....
(論文真的是用錢堆出來的，論文計畫，論文口試，之後口試修改完，還要再印給圖書館)
(更不用說過程花的研究經費....)
想說，既然要改
而且都印一份紙本了
昨晚睡前又繼續校正，今天醒來又繼續校正
肉肉醒來，到客廳看到我
肉肉說：原來Daddy在這裡寫論文呀
喵爸：你居然讓2歲小孩能說出「寫論文」這三個字
想把第四章再改好一點，下午一點，覺得寫不出來，好崩潰....
二點吃中餐
三點半決定還是先去印
昨天印的經驗太崩潰
用網路寄送給影印店，加上來回確認了三遍，然後還要帶著肉肉出門，更花時間
最後花了3個小時才順利寄出，
騎去郵局的路上，焦慮到我呼吸不過來，看不清楚地圖
還好喵爸主動說要換他騎車
今天決定不要交給影印店處理
在家裡把信封袋、地址條處理好後
自己親自送去
自己分配影印機同步列印
最後再麻煩店方裝訂
送去郵局路上遇到下雨
在郵局封裝
寄出
回到家花了75分鐘，省了一半的時間
回來終於可以安心的切開
昨日
那迢迢千里買回的
甜甜
甜點的香味，不知道你們有沒有聞到了呢？
by圍爸
word備份檔案 在 [文件] 檔案合併的小程式- 看板Office - 批踢踢實業坊 的推薦與評價
我原本的需求：有 A, B 兩份 Word 檔，兩個檔案 直/橫書格式 與頁數皆一樣
現要合併成 A1, B1, A2, B2, ……, An, Bn 這樣的新檔案。
不知道是我自己不太會用 word 功能還是內建的做不到交叉合併。 @@"
所以我寫了底下的 VBScript 小程式來處理交叉合併的動作。
我使用的 Office 版本是： Office XP (Word)
以下說明這個小程式的動作 (使用前，請先自行備份檔案!! 若有問題本人不負任何責任)
1. 讀取 A.doc , B.doc 兩個檔
2. 建立一個新的 Word 檔
3. 開始讀取頁面並且貼到新檔
╭→ 3-1. 剪下 A.doc 的第 1 頁
｜ 3-2. 貼到 新檔 並在尾端插入分頁符號
｜ 3-3. 剪下 B.doc 的第一頁
｜ 3-4. 貼到 新檔 並在尾端插入分頁符號
╰— 3-5. 跳回 3-1.
4. 合併完成後，關閉 A, B 兩個檔案。
4.1 新檔儲存為 AB-Merge.doc
4.2 結束 Word.Application
5. 跳出完成訊息通知使用者。
6. 結束本程式
-------------------------8<--------------------- (複製虛線內容另存 vbs 檔)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 使用注意事項：
' 1. 使用前請先修改黃色字串為 A.doc, B.doc 所在資料夾的路徑。
' 2. 本程式沒有任何意外處理，若執行時出錯。請叫出工作管理員
' 將 WINWORD.EXE 手動關閉。然後再重新執行一次本檔案
' 3. 執行本程式前，建議先關閉任何 Word 視窗。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' word
Dim word : Set word = CreateObject("Word.Application")
Dim sel : Set sel = word.Selection
' 文件
Dim docPath : docPath = "文件所在資料夾的路徑"
Dim doc1, doc2, doc3
Dim i
Set doc1 = word.Documents.Open(docPath & "\A.doc")
Set doc2 = word.Documents.Open(docPath & "\B.doc")
Set doc3 = word.Documents.Add
' 將 A.doc 的直/橫書格式 複製到 AB-Merge.doc 上
doc3.Range.Orientation = doc1.Range.Orientation
For i = 1 to doc1.BuiltInDocumentProperties("Number of Pages")
doc1.Activate
doc1.Bookmarks("\page").Range.Cut
doc3.Activate
word.Selection.Paste
word.Selection.InsertBreak 7
doc2.Activate
doc2.Bookmarks("\page").Range.Cut
doc3.Activate
word.Selection.Paste
word.Selection.InsertBreak 7
Next
doc1.Close 0
doc2.Close 0
doc3.SaveAs """" & docPath & "\AB-Merge.doc"""
doc3.Close 0
word.quit
Msgbox "合併完成。" & "檔案位置：""" & docPath & "\AB-Merge.doc"""
WScript.quit
-------------------------8<--------------------- (複製虛線內容另存 vbs 檔)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.204.46.87
※ 編輯: hpo14 來自: 123.204.46.87 (12/30 11:51)
... <看更多>