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 當存檔錯誤時顯示訊息