Метод Document.SaveAs2 (Word)
Сохраняет указанный документ с новым именем или форматом. Некоторые аргументы для этого метода соответствуют параметрам в диалоговом окне Сохранить как (вкладка Файл ).
выражение. 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 . Чтобы сохранить документ в другом формате, укажите соответствующее значение для свойства SaveFormat объекта FileConverter . | ||
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 | Если графика была импортирована с другой платформы (например, Macintosh), значение True используется для сохранения только версии импортированной графики 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 и обратная связь.