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 支持和反馈,获取有关如何接收支持和提供反馈的指南。