閱讀英文

共用方式為


Word) (Document.SaveAs2 方法

使用新的名稱或格式來儲存指定的文件。 這個方法的某些引數會對應至 [另存新檔] 對話方塊 ([檔案] 索引標籤) 中的選項。

語法

expressionSaveAs2( _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 常數。
重要事項
根據預設,如果未為此參數指定任何值,Word 會輸入值 0,指定應保留檔目前的相容性模式。

傳回值

範例

下列範例程式碼會將使用中文件儲存成 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

另請參閱

Document 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應