Document.SaveAs2 方法 (Word)

使用新的名称或格式保存指定的文档。 此方法的一些参数与“另存为”对话框(“文件”选项卡)中的选项相对应。

语法

expressionSaveAs2( _FileName_ , _FileFormat_ , _LockComments_ , _Password_ , _AddToRecentFiles_ , _WritePassword_ , _ReadOnlyRecommended_ , _EmbedTrueTypeFonts_ , _SaveNativePictureFormat_ , _SaveFormsData_ , _SaveAsAOCELetter_ , _Encoding_ , _InsertLineBreaks_ , _AllowSubstitutions_ , _LineEnding_ , _AddBiDiMarks_ , _CompatibilityMode_ )

表达 返回 Document 对象的表达式。

参数

名称 必需/可选 数据类型 说明
FileName 可选 Variant 文档的名称。 默认值为当前文件夹和文件名。 如果从未保存过文档,将使用默认名称(例如,Doc1.doc)。 如果已经存在具有指定文件名的文档,则覆盖该文档,并且在覆盖前不提示用户。
FileFormat 可选 Variant 文档的保存格式。 可以是任何 WdSaveFormat 常量。 若要以另一种格式保存文档,请为 FileConverter 对象的 SaveFormat 属性指定适当的值。
LockComments 可选 Variant 如果为 True,则锁定文档注释。 默认值为 False
Password 可选 Variant 用于打开文档的密码字符串。 (请参阅下面的“备注”。)
AddToRecentFiles 可选 Variant 如果为 True,则将文档添加到“文件”菜单上最近使用的文件列表中。 默认值为 True
WritePassword 可选 Variant 用于保存文档更改的密码字符串。 (请参阅下面的“备注”。)
ReadOnlyRecommended 可选 Variant 如果为 True,则每次打开文档时,Microsoft Word 都将建议采用只读方式。 默认值为 False
EmbedTrueTypeFonts 可选 Variant 如果为 True,则 TrueType 字体随文档一起保存。 如果省略,则 EmbedTrueTypeFonts 参数将假定为 EmbedTrueTypeFonts 属性的值。
SaveNativePictureFormat 可选 Variant 如果该属性值为 True,则对于从其他系统平台(如 Macintosh)导入的图形,只保存其 Microsoft Windows 版本。
SaveFormsData 可选 Variant 如果为 True,则将用户在窗体中输入的数据保存为记录。
SaveAsAOCELetter 可选 Variant 如果文档包含附加的邮件,当该属性值为 True 时,将文档存为 AOCE 信函(同时保存邮件)。
Encoding 可选 Variant 用于另存为编码文本文件的文档的代码页或字符集。 默认为系统代码页。 不能将所有 MsoEncoding 常量与此参数一起使用。
InsertLineBreaks 可选 Variant 在将文档保存为文本文件时,如果该属性值为 True,则在每一行文本后插入换行符。
AllowSubstitutions 可选 Variant 将文档保存为文本文件时,如果该属性值为 True,则 Word 可以将一些符号替换为相似的文本。 例如,将版权符号显示为 (c)。 默认值为 False
LineEnding 可选 Variant Word 在另存为文本文件的文档中标记换行符和分段符的方式。 可以是以下 WdLineEndingType 常量之一: wdCRLF (默认) 或 wdCROnly
AddBiDiMarks 可选 Variant 如果为 True,则为输出文件添加控制符,以保留原始文档中文本的双向版式。
CompatibilityMode 可选 Variant 打开文档时,Word 使用的兼容性模式。 WdCompatibilityMode 常量。
重要说明
默认情况下,如果没有为此参数指定任何值,则 Word 输入值 0,这会指定应保留文档的当前兼容性模式。

返回值

示例

下面的代码示例将活动文档另存为 Test.rtf,格式为 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。