Word) (Document.SaveAs2 方法
使用新的名稱或格式來儲存指定的文件。 這個方法的某些引數會對應至 [另存新檔] 對話方塊 ([檔案] 索引標籤) 中的選項。
expression。 SaveAs2
( _FileName_
, _FileFormat_
, _LockComments_
, _Password_
, _AddToRecentFiles_
, _WritePassword_
, _ReadOnlyRecommended_
, _EmbedTrueTypeFonts_
, _SaveNativePictureFormat_
, _SaveFormsData_
, _SaveAsAOCELetter_
, _Encoding_
, _InsertLineBreaks_
, _AllowSubstitutions_
, _LineEnding_
, _AddBiDiMarks_
, _CompatibilityMode_
)
表達 會傳回 Document 物件的運算式。
名稱 | 必要/選用 | 資料類型 | 描述 | ||
---|---|---|---|---|---|
FileName | 選用 | 變數 | 文件的名稱。 預設值為目前資料夾和檔案名稱。 如果從未儲存過此文件,就會使用預設名稱 (例如 Doc1.doc)。 如果具有指定檔案名稱的文件已經存在,則會覆寫該文件,不會提示使用者。 | ||
FileFormat | 選用 | 變數 | 儲存文件所用的格式。 它可以是任何 WdSaveFormat 常數。 若要使用另一種格式來儲存文件,請為 FileConverter 物件的 SaveFormat 屬性指定適當的值。 | ||
LockComments | 選用 | 變數 | True 是表示 鎖定文件的註解。 預設值為 False 。 | ||
Password | 選用 | 變數 | 用來開啟檔的密碼字串。 請參閱下面的<備註>。 | ||
AddToRecentFiles | 選用 | 變數 | True 是表示 將文件新增至清單的最近使用過 檔案] 功能表上的檔案。 預設值為 True 。 | ||
WritePassword | 選用 | 變數 | 用來儲存檔變更的密碼字串。 請參閱下面的<備註>。 | ||
ReadOnlyRecommended | 選用 | 變數 | True 是表示 讓 Microsoft Word 在每次開啟文件建議唯讀狀態。 預設值為 False 。 | ||
EmbedTrueTypeFonts | 選用 | 變數 | True 是表示 使用文件儲存 TrueType 字型。 如果省略了 EmbedTrueTypeFonts 引數會假設 EmbedTrueTypeFonts 屬性的值。 | ||
SaveNativePictureFormat | 選用 | 變數 | 如果圖形是從另一個平台 (例如 Macintosh),則為 True 可只儲存 Microsoft Windows 版本的匯入圖片匯入。 | ||
SaveFormsData | 選用 | 變數 | True 是表示 儲存為記錄的表單中的使用者所輸入的資料。 | ||
SaveAsAOCELetter | 選用 | 變數 | 如果文件儲存成 AOCE 信件 (儲存郵件處理程式) 的文件具有附加的郵件處理程式, 則為 True 。 | ||
Encoding | Optional | 變數 | 儲存成編碼文字檔之文件所用的字碼頁或字元集。 預設值為系統的字碼頁。 您無法使用所有 MsoEncoding 常數搭配此參數。 | ||
InsertLineBreaks | 選用 | 變數 | 如果文件儲存成文字檔,則為 True 可插入列分行符號每行文字的結尾。 | ||
AllowSubstitutions | 選用 | 變數 | 如果文件儲存成文字檔, true 是表示 讓 Word 某些符號取代看起來的文字。 例如,顯示著作權符號 (c)。 預設值為 False 。 | ||
LineEnding | 選用 | 變數 | 文件儲存成文字檔中會中斷 Word 標記分行符號與分段的方式。 可以是下列 WdLineEndingType 常數之一: wdCRLF (預設值) 或 wdCROnly 。 | ||
AddBiDiMarks | 選用 | 變數 | True 是表示 將控制字元加入至輸出檔,以便保留原始文件中文字的雙向版面配置。 | ||
CompatibilityMode | 選用 | 變數 | 相容性模式開啟文件時使用該Word 。 WdCompatibilityMode 常數。
|
無
下列範例程式碼會將使用中文件儲存成 RTF 格式的 Test.rtf。
Sub SaveAsRTF()
ActiveDocument.SaveAs2 FileName:="Text.rtf", _
FileFormat:=wdFormatRTF
End Sub
下列範例程式碼會使用副檔名 ".txt",將使用中文件儲存成文字檔格式。
Sub SaveAsTextFile()
Dim strDocName As String
Dim intPos As Integer
' Find position of extension in file name
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")
If intPos = 0 Then
' If the document has not yet been saved
' Ask the user to provide a file name
strDocName = InputBox("Please enter the name " & _
"of your document.")
Else
' Strip off extension and add ".txt" extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".txt"
End If
' Save file with new extension
ActiveDocument.SaveAs2 FileName:=strDocName, _
FileFormat:=wdFormatText
End Sub
下列程式碼範例會迴圈查看所有已安裝的轉換程式,如果找到 WordPerfect 6.0 轉換器,則會使用轉換器來儲存使用中檔。
Sub SaveWithConverter()
Dim cnvWrdPrf As FileConverter
' Look for WordPerfect file converter
' And save document using the converter
' For the FileFormat converter value
For Each cnvWrdPrf In Application.FileConverters
If cnvWrdPrf.ClassName = "WrdPrfctWin" Then
ActiveDocument.SaveAs2 FileName:="MyWP.doc", _
FileFormat:=cnvWrdPrf.SaveFormat
End If
Next cnvWrdPrf
End Sub
下列範例程式碼會顯示使用密碼儲存文件的程序。
Sub SaveWithPassword(docCurrent As Document, strPWD As String)
With docCurrent
.SaveAs2 WritePassword:=strPWD
End With
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。