Document.SaveAs2 方法 (Word)
使用新的名称或格式保存指定的文档。 此方法的一些参数与“另存为”对话框（“文件”选项卡）中的选项相对应。
语法
expression。 SaveAs2( _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 常量。
|
返回值
无
示例
下面的代码示例将活动文档另存为 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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。