返回列表 上一主題 發帖

[轉貼] VBA-自訂存檔方式 / 讀取文件屬性

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-30 22:35 | 只看該作者

[轉貼] VBA-自訂存檔方式 / 讀取文件屬性

VBA
原發表者：leonchou (2005-04-18)

這是網友問我的, 提出來給大家參考 ^^
問題：在Word中保存文件時，如何一次將文件能同時以.DOC和.TXT格式進行保存？
而且還希望象Word一樣從文章中自動提取標題 (註1)。

[方法一]　做成巨集按鈕
　
•新增一個巨集, 內容如下--
　
Sub 自訂存檔()
1 With ActiveDocument: On Error GoTo 7
2 aa = .BuiltInDocumentProperties(wdPropertyTitle)
3 If aa = "" Then aa = .Range(, Len(.Sentences(1)) - 2)
4 .SaveAs aa, FileFormat:=wdFormatText
5 .SaveAs aa, FileFormat:=wdFormatDocument
6 End With: Exit Sub
7 MsgBox "檔名 " & aa & " 無效, 無法存檔!"
End Sub
　
[說明]
1 引用目前文件. 對使用中的文件作以下的動作.
　以下若發生錯誤 (檔名無效, 無法存檔) 則跳到第 7 行
2 設定變數 aa = 文件屬性 (摘要資訊) 的"標題"
3 若沒有標題則設 aa = 文件中的第一個句子 (不含句號及段落符號) (註1)
4 將文件以 aa 為檔名, 存為純文字檔案 (.txt)
5 將文件以 aa 為檔名, 存為標準 Word 文件 (.doc)
6 結束目前文件的引用, 結束巨集
7 當存檔錯誤時顯示訊息

•[工具] → [自訂..] → [指令] → [巨集]
　將此巨集拉出來成為一個按鈕 (你可以更改它的名稱) (註2)
　
•存檔時按這個按鈕即可.
　
[方法二]　使用事件巨集，自動執行
　
把上述的巨集內容放到 Application 的 DocumentBeforeSave 事件裡。
這方法的好處是不需另建按鈕，只要依平時習慣存檔，就會自動引發這個事件巨集而達到所要的功能。
　
但一開始的準備工作較麻煩 (一勞永逸^^)，因為 --事件巨集必需放在所屬的物件模組之中，但由於並沒有內建的 Application 物件模組 ~(包括 Word、Excel 或其他 Office 軟体的 VBA 都是如此)
所以必需自行新增一個並宣告為 Application 物件模組，並且在每次 Word 開啟後要先引用這個模組，才能發生作用。
　
所以呢，程序有點繁瑣... 有人想了解的話再討論好了  　
　
[附註]
1. 一般 Word 文件在第一次存檔時, 會以文件 "摘要資訊" 的 [標題]做為預設檔名; 若沒有標題, 則以文件的第一句作為預設檔名。
2. 按鈕必需放在任一工具列中, 可放入現有的工具列, 或是自行新增一個。按鈕拉出來後, [自訂工具] 視窗未關閉前, 可在按鈕上按右鍵以修改名稱。
3. 為說明之便而在巨集內加上行號, 一般是不需要行號的。
收藏 分享
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題